您的位置:首页 > 编程语言 > VB

vbs脚本 将excel表格转换成csv 文本可读文件

2014-03-25 21:33 537 查看
Const xlCSV = 6

Set objExcel = CreateObject("Excel.Application")

Set objWorkbook = objExcel.Workbooks.Open("C:\a.xlsx")

objExcel.DisplayAlerts = FALSE

objExcel.Visible = TRUE

Set objWorksheet = objWorkbook.Worksheets("Sheet1")

objWorksheet.SaveAs "c:\a.csv", xlCSV

objExcel.Quit
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息