首页 > 代码库 > 多个Excel文件快速导入到DB里面
多个Excel文件快速导入到DB里面
1 . 文件比较多,需要把这么多的数据都导入到DB里面,一个个导入太慢了,能想到的是先把数据整个到一个Excel中,然后再导入
2. 第一步准备合并Excel,新建一个新的excel,命名为totaldata.xlsx,记得excel2016版本不支持xlsx导入,只支持xls的选择,所以把上面的后缀名统一改为.xls
3.双击打开totaldata.xlsx,Alt+F11,快速打开编辑器,双击"Sheet1",输入如下脚本
Sub 工作薄间工作表合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄名称")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub
4.运行->运行子过程/用户窗体,选择合并的多个excel ,点击确定,就可以看到文件都被整合到一个excel了
5. 核对下数据,ctrl+S保存
6.导入数据到SqlServerDb中去,打开数据,链接上,选择即将把数据到的DB点中->右击->Tasks->ImportData--->NEXT
7. 选择数据源,这里是Excel文件选择"Microsoft Excel",如果是记事本.txt的话,选择Flat File Source,其他根据情况选择,
点击Browse...选择导入的文件,totaldata.xlsx,然后 Next
8. 选择登陆方式,链接方式ServerName一般"."本地链接,然后Next
9.默认Next->默认Next->
10.Next->默认完成就好了!
多个Excel文件快速导入到DB里面
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。