>[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
```
