使用VBScript将xls / xlsx文件（所有工作表）转换为csv（用分号分隔）

我需要将包括所有工作表在内的Excel文件（* .xls，* .xlsx）转换为每张工作表的CSV文件。 输出CSV文件应由SheetName（s）命名并用分号（而不是逗号）分隔。 我已经完成了这个，通过将几个VBS脚本粘合成一个，但是我仍然有一个错误。 我的代码下面的代码是用分号分隔的XLS文件中的所有表格进行转换，但是有一个小错误是，如果有多个工作表，下一张表格的内容被第一张表格覆盖。 请问有什么不对？ 我在CMD运行它： xls_to_csv.vbs ExcelFile.xls OutPutdir

'------------------- SET SEMI-COLON DELIMITER VIA WIN REGISTERS --------------- strDelimiter = ";" strSystemDelimiter = "" ' This will be used to store the current sytem value Const HKEY_CURRENT_USER = &H80000001 ' Get the current List Separator (Regional Settings) from the registry strKeyPath = "Control Panel\International" strValueName = "sList" strComputer = "." Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") objRegistry.GetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strSystemDelimiter ' Set it temporarily to our custom delimiter objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strDelimiter '----------------------------- CONVERT XLS TO CSV ------------------------------ Dim strExcelFileName Dim strCSVFileName Dim objFSO Set objFSO = CreateObject("scripting.filesystemobject") strPath = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(1)) strExcelFileName = WScript.Arguments.Item(0) 'file name to parses rem get path where script is running Set fso = CreateObject ("Scripting.FileSystemObject") 'use this to find current path strScript = Wscript.ScriptFullName strScriptPath = fso.GetAbsolutePathName(strScript & "\..") rem If the Input file is NOT qualified with a path, default the current path LPosition = InStrRev(strExcelFileName, "\") if LPosition = 0 Then 'no folder path strExcelFileName = strScriptPath & "\" & strExcelFileName strScriptPath = strScriptPath & "\" else 'there is a folder path, use it for the output folder path also strScriptPath = Mid(strExcelFileName, 1, LPosition) End If rem msgbox LPosition & " - " & strExcelFileName & " - " & strScriptPath ' use this for debugging Dim objXL Dim objWorkBook, local Set objXL = CreateObject("Excel.Application") Set objWorkBook = objXL.Workbooks.Open(strExcelFileName) objXL.DisplayAlerts = False rem loop over worksheets For Each sheet In objWorkBook.Sheets 'only saveAS sheets that are NOT empty if objXL.Application.WorksheetFunction.CountA(sheet.Cells) <> 0 Then rem sheet.Rows(1).delete ' this will remove Row 1 or the header Row local = true call objWorkBook.SaveAs(strPath & "\" & sheet.Name & ".csv", 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, local) End If Next rem clean up objWorkBook.Close objXL.quit Set objXL = Nothing Set objWorkBook = Nothing Set fso = Nothing '------------------------- RETURN REGISTRY CHANGES BACK -------------------- ' Reset the system setting to its original value objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strSystemDelimiter rem end script 

Answer 1

您正在尝试保存工作表，但您正在使用WorkBook对象。 尝试使用您使用For语句提取的WorkSheet对象

  Dim WorkSheet For Each WorkSheet In objWorkBook.Sheets If objXL.Application.WorksheetFunction.CountA(WorkSheet.Cells) <> 0 Then WorkSheet.SaveAs strPath & "\" & WorkSheet.Name & ".csv", 6 End If Next 

这对我有用。

为了强调不同，我已经将“工作表”改为“工作表”。 当然“表”或任何其他对象名称将工作得很好。

Answer 2

我的build议是使用不同的语言。 为了改变分隔符，编辑registry项是至less可以说的“hacky”。

它可以通过简单的Python脚本和使用xlrd和csv包来完成。 这将使它可以在多个平台上使用。 您可以使用Py2exe轻松地将您的Python脚本转换为.exe。