在命令行上將XLS轉換為CSV如何在windows命令行中將XLS文件轉換為CSV文件。這臺機器安裝了MicrosoftOffice 2000。如果不可能使用MicrosoftOffice，我愿意安裝OpenOffice。
3 回答
嚕嚕噠
TA貢獻1784條經驗 獲得超7個贊
if WScript.Arguments.Count < 2 Then
WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls Destination.csv"
Wscript.QuitEnd IfDim oExcelSet oExcel = CreateObject("Excel.Application")Dim oBookSet oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))oBook.SaveAs WScript.Arguments.Item(1), 6oBook.Close FalseoExcel.Quit
WScript.Echo "Done"XlsToCsv.vbs [sourcexlsFile].xls [destinationcsvfile].csv
Smart貓小萌
TA貢獻1911條經驗 獲得超7個贊
if WScript.Arguments.Count < 2 Then
WScript.Echo "Please specify the source and the destination files. Usage: ExcelToCsv <xls/xlsx source file> <csv destination file>"
Wscript.Quit
End If
csv_format = 6
Set objFSO = CreateObject("Scripting.FileSystemObject")
src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0))
dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1))
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(src_file)
oBook.SaveAs dest_file, csv_format
oBook.Close False
oExcel.Quit
慕桂英3389331
TA貢獻2036條經驗 獲得超8個贊
FOR /f "delims=" %%i IN ('DIR *.xlsx /b') DO ExcelToCSV.vbs "%%i" "%%i.csv"添加回答
舉報
0/150
提交
取消