【精品小工具】Excel转CSV（VBScript）软件

工作中经常需要将excel转成CSV格式，所以编写了使用VBScript编写了一个一键转换工具，将待转换文件直接拖入到Excel2CSV.vbs即可生成对应的CSV文件 Excel2CSV.vbs代码如下： ' 创建一个Excel Application 对象 Dim objExcel: Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False ' 打开 Excel 文件 Dim objWorkbook: Set objWorkbook = objExcel.Workbooks.Open(WScript.Arguments.Item(0)) ' 获取 Excel 文件名和路径 Dim strSourceFilePath: strSourceFilePath = WScript.Arguments.Item(0) Dim strSourceFileName: strSourceFileName = Mid(strSourceFilePath, InStrRev(strSourceFilePath, "\") + 1) Dim strSourceFileBaseName: strSourceFileBaseName = Left(strSourceFileName, InStrRev(strSourceFileName, ".") - 1) ' 构造 CSV 文件名和路径 Dim strCsvFilePath: strCsvFilePath = Left(strSourceFilePath, InStrRev(strSourceFilePath, "\")) & strSourceFileBaseName & ".csv" ' 将活动工作表保存为 CSV 格式 objWorkbook.ActiveSheet.SaveAs strCsvFilePath, 6 ' 6 表示 csv 格式 ' 关闭 Excel 文件和应用程序 objWorkbook.Close False ' False 表示不保存更改 objExcel.Quit ' 释放对象 Set objWorksheet = Nothing Set objWorkbook = Nothing Set objExcel = Nothing ' 显示完成提示 MsgBox "转换完成"