针对Excel的vbs操作

  工程中具有导入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

原文地址:https://www.cnblogs.com/libcan/p/4415216.html