哪位能给解释下啊 谢谢了 真是不懂啊

angle-ying

哪位能给解释下啊 谢谢了 真是不懂啊 加上注释就可以了 谢谢
Option Explicit

Dim fso,filePath,i

Dim ExcelBook,ExcelSheel,myExcelBook,myExcelSheet
filePath="E:\case.xls"
Set fso = CreateObject ("Scripting.FileSystemObject")
Set ExcelBook = CreateObject("Excel.Application")
Set ExcelSheel = CreateObject("Excel.Sheet")

Set myExcelBook = ExcelBook.Workbooks.Open(filePath)
Set myExcelSheet = myExcelBook.Worksheets("Sheet1")

angle-ying

？？？？怎么没有人回答 版主 帮我下啊 谢谢

shotstar

Option Explicit    强制显示声明变量

Dim fso,filePath,i   这个不用说了吧。。

Dim ExcelBook,ExcelSheel,myExcelBook,myExcelSheet
filePath="E:\case.xls"
Set fso = CreateObject ("Scripting.FileSystemObject")  创建FSO对象
Set ExcelBook = CreateObject("Excel.Application")    创建Excel对象
Set ExcelSheel = CreateObject("Excel.Sheet")    创建Excel的sheet对象

Set myExcelBook = ExcelBook.Workbooks.Open(filePath)    打开对应路径的excel文件，并获得这个excel对象
Set myExcelSheet = myExcelBook.Worksheets("Sheet1")     得到excel的sheet1的对象，也就是第一个工作簿。

上面的代码主要是用vbs的一些文件操作的方法，不过代码并不完整哦。获得sheet1的对象后就可以对这个sheet里面的单元格赋值或者读取单元格的值了。