Question

VBA 怎样把一个文件夹下所以excel文件的每个sheet转换成CSV文件

Answer 1

加班写的，希望满足你的需要。
确实忽略了Sheet表的功能，粗心所致，道歉！
应ynzsvt的要求，增加每个表的导出功能。
Sub XLS2CSV()
Dim fs, f, f1, fc
Dim Wkbook As Workbook
Dim WkSheet As Worksheet
Dim FileCount As Integer
Dim SheetCount As Integer
Dim DirName As String
FileCount = 0
SheetCount = 0
DirName = Application.FileDialog(msoFileDialogFolderPicker).Show
If DirName = -1 Then
DirName = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
Application.DisplayAlerts = False
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
Set fc = f.Files
If fc.Count > 0 Then
For Each f1 In fc
If Right(f1.Name, 3) = "xls" Then
FileCount = FileCount + 1
Set Wkbook = Application.Workbooks.Open(f1)
For Each WkSheet In Wkbook.Sheets
WkSheet.Select
Wkbook.SaveAs Filename:=DirName & "\" & Left(f1.Name, Len(f1.Name) - 4) & WkSheet.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
SheetCount = SheetCount + 1
Next
Wkbook.Close
End If
Next
End If
End If
MsgBox "转换完成！ " & Chr(10) & FileCount & "个文件被转换 " & SheetCount & "个Sheet被转换"
End Sub
'说明：执行该宏后，选择要转换的文件夹。
'该文件夹下所有Excel文件的所有Sheet都将被转换为csv格式。
'保存路径为原excel文件所在路径，文件名为"原excel文件名+Sheet名.csv"

Answer 2

学习了，好像工作表没循环吧。