>[info] 需求：要將非常多的EXCEL的內容導入Mysql，且不是能直接導入的格式
> 代碼作用：將多個EXCEL文件 合并到一個excel中 一個文件
> 宏代碼調用快捷鍵 **ALT+F11** 或 點擊 **開發工具 - VB**
> 插入/新建 **模塊** 復制已下內容 后 點擊 **運行**
```
# i是變量 i后面的數字是 將內容填到第幾行
Sub 循環打開工作簿提取固定位置數據()
Application.ScreenUpdating = False
myfile = Dir(ThisWorkbook.Path & "\*.xls*")
i = 1
Do While myfile <> ""
If myfile <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & myfile)
i = i + 1
ThisWorkbook.Worksheets(1).Cells(i, 2) = wb.Worksheets(1).Range("d2") '需要修改range("d2")為你需要提取的單元格地址
ThisWorkbook.Worksheets(1).Cells(i, 3) = wb.Worksheets(1).Range("a1")
ThisWorkbook.Worksheets(1).Cells(i, 4) = wb.Worksheets(1).Range("c8")
wb.Close False
End If
myfile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "完成"
End Sub
```
