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

  Next

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 循环遍历工作薄，也就是在所有工作薄中查找