工控编程吧

标题: VBS脚本代码 [打印本页]

作者: baikhgmv 时间: 2016-9-8 11:15
标题: VBS脚本代码
VBS脚本代码

Dim ExcelApp,ExcelBook

Set ExcelApp = GetObject(,"Excel.Application") '首先创建Excel对象

If TypeName(ExcleApp) = "Application" Then

For Each ExcelBook In ExcelApp.WorkBooks

If ExcelBook.FullName = "C:\WINCC_Report\ExcelReport\WinccExcel_Day.xlsx" Then '要访问的工作簿路径和名称

ExcelApp.ActiveWorkbook.Save '存盘

ExcelApp.Workbooks.Close '关闭工作簿：

ExcelApp.Quit '退出 Excel

Set ExcelApp= Nothing '与变量所引用的对象相关联的内存和系统资源才被释放。当 Nothing 赋值给某对象变量后，此变量就不再引用任何实际对象

Exit For

End If

各位大神，这里有几句话我没有注释，帮我解释一下，我不明白，随便看一下我解释有没有错误，谢谢

---------你哪里不明白？

vb读写Excel的程序网上例子一把把的。

-----------有两句话不明白

If TypeName(ExcleApp) = "Application" Then

For Each ExcelBook In ExcelApp.WorkBooks

----------If TypeName(ExcleApp) = "Application" Then 判断对象类型名是否为Application，即是否成功获取对象

For Each ExcelBook In ExcelApp.WorkBooks 循环遍历工作薄，也就是在所有工作薄中查找

欢迎光临工控编程吧 (https://www.gkbc8.com/)