excel文件的多个sheet表合并成一个csv文件并导入数据库

作者：WenWu_Both

出处：http://blog.csdn.net/wenwu_both/article/

版权：本文版权归作者和CSDN博客共有

转载：欢迎转载，但未经作者同意，必须保留此段声明；必须在文章中给出原文链接；否则必究法律责任

最近帮一个老师处理数据，结果他发给我的是一堆excel文件，而且每个excel文件又包含很多sheet表，所以想把这些sheet整合成一个csv文件，但excel的“另存为”只支持当前sheet的操作，如果一个个文件一个个sheet的操作过来，实在是费事，所以想到了调用excel的VBA，很轻松的完成了任务，怕后面遗忘了，所以记录一下：

（1）sheet表转成csv文件

VBA代码：

Sub SaveToCSVs()
Dim fDir As String
Dim wB As Workbook
Dim wS As Worksheet
Dim fPath As String
Dim sPath As String
fPath = "C:\Users\JiaoTong\Desktop\data\"
sPath = "D:\csvdata\"
fDir = Dir(fPath)
Do While (fDir <> "")
If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then
On Error Resume Next
Set wB = Workbooks.Open(fPath & fDir)
'MsgBox (wB.Name)
For Each wS In wB.Sheets
wS.Copy 'to a new workbook
wS.SaveAs sPath & wB.Name & ".csv", xlCSV
Next wS
wB.Close False
Set wB = Nothing
End If
fDir = Dir
On Error GoTo 0
Loop
End Sub

其中’fPath’为存放原始数据（excel文件）的路径

‘sPath’为存放生成数据（csv文件）的路径



上述代码是将文件夹里所有excel文件的所有sheet表均转化成csv，如果有些sheet表不想导出，可以先选择好想要导出的sheet表，然后执行以下代码：

Option Explicit
Sub ExportSelectionToCSV()
Dim wks As Worksheet
Dim newWks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
wks.Copy 'to a new workbook
Set newWks = ActiveSheet
With newWks
Application.DisplayAlerts = False
.Parent.SaveAs Filename:="D:\csvdata\" & .Name, _
FileFormat:=xlCSV
Application.DisplayAlerts = True
.Parent.Close savechanges:=False
End With
Next wks
End Sub

（2）多个csv文件合并

第一步将文件夹里的所有excel文件的所有sheet表均转化成了csv文件，下面我们将这些csv文件合并成一个csv文件。

运行cmd文件，切换到存放csv的文件夹，执行以下命令：

copy *.csv all_data.csv

即将文件夹里的所有csv文件合并成all_data.csv文件。



（3）导入数据库

导入数据库我就不多讲了吧，选择合适的数据库执行导入即可（MySQL，Oracle，MongoDB等）

PS: 其实这个过程也可以编写Python脚本实现，有兴趣的可以试一下。