工程中具有导入Excel数据的功能,但是需要满足一定的格式。为了在导入之前,对Excel的格式进行规范,对vbs脚本语言进行了一定的了解,并实现了一个可以将Excel全部单元格设为文本格式的vbs脚本。具体内容如下:
Set args = WScript.Arguments
Path = WScript.Arguments(0)
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open (Path)
Set ExcelSheet = ExcelApp.Sheets.Item(1)
With ExcelSheet
.Cells.NumberFormatLocal = "@"
msgbox("done")
End with
ExcelBook.Save
ExcelBook.Close
Set ExcelBook = nothing
ExcelApp.Quit
在MFC中,其调用的方式是:
“Wscript.exe vbs路径 Excel路径”
值得注意的是,在Excel中,单元格首加“ ‘ ”和直接右键设为文本格式,这两种的效果是不一样的。例如,在CSpreadSheet类中,后者是无法读取的。
另外借鉴了一篇文章:
http://www.cnblogs.com/sirrah/articles/2349153.html
时间: 2024-10-26 03:00:24