angle-ying 发表于 2010-3-24 20:49:03

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

哪位能给解释下啊 谢谢了 真是不懂啊 加上注释就可以了 谢谢
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 发表于 2010-3-25 17:20:45

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

shotstar 发表于 2010-3-25 22:53:11

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里面的单元格赋值或者读取单元格的值了。
页: [1]
查看完整版本: 哪位能给解释下啊 谢谢了 真是不懂啊