1. 打开Excel软件
2. 打开 Microsoft Visual Basic应用程序
快捷键:Alt + F11键
3. 创建新模块,并添加如下代码
Sub WorkbooksSaveAsCsvToFolder()'UpdatebyExtendoffice1031Dim xObjWB As WorkbookDim xObjWS As WorksheetDim xStrEFPath As StringDim xStrEFFile As StringDim xObjFD As FileDialogDim xObjSFD As FileDialogDim xStrSPath As StringDim xStrCSVFName As StringDim xS As StringApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseApplication.Calculation = xlCalculationManualApplication.DisplayAlerts = FalseOn Error Resume NextSet xObjFD = Application.FileDialog(msoFileDialogFolderPicker)xObjFD.AllowMultiSelect = FalsexObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"If xObjFD.Show <> -1 Then Exit SubxStrEFPath = xObjFD.SelectedItems(1) & "\"Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)xObjSFD.AllowMultiSelect = FalsexObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"If xObjSFD.Show <> -1 Then Exit SubxStrSPath = xObjSFD.SelectedItems(1) & "\"xStrEFFile = Dir(xStrEFPath & "*.xls*")Do While xStrEFFile <> ""xS = xStrEFPath & xStrEFFileSet xObjWB = Application.Workbooks.Open(xS)xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSVxObjWB.Close savechanges:=FalsexStrEFFile = DirLoopApplication.Calculation = xlCalculationAutomaticApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
4. 按F5
键,在弹出的第一个弹框中选择要转换的文件夹
点击==OK
==
5. 在弹出的第二个弹框中选择文件保存的位置
点击OK