多个Excel文件快速导入到DB里面

1 . 文件比较多，需要把这么多的数据都导入到DB里面，一个个导入太慢了，能想到的是先把数据整个到一个Excel中，然后再导入

2. 第一步准备合并Excel，新建一个新的excel，命名为totaldata.xlsx，记得excel2016版本不支持xlsx导入，只支持xls的选择，所以把上面的后缀名统一改为.xls

3.双击打开totaldata.xlsx,Alt+F11,快速打开编辑器，双击"Sheet1",输入如下脚本

Sub 工作薄间工作表合并()

Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄名称")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub