针对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

针对Excel的vbs操作

标签：

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