Excel转CSV（VBScript）

2023-04-05编程源码 浏览

工作中经常需要将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 "转换完成"