51Testing软件测试论坛

标题: 哪位能给解释下啊谢谢了真是不懂啊 [打印本页]

作者: angle-ying 时间: 2010-3-24 20:49
标题: 哪位能给解释下啊谢谢了真是不懂啊
哪位能给解释下啊谢谢了真是不懂啊加上注释就可以了谢谢
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
？？？？怎么没有人回答版主帮我下啊谢谢

作者: shotstar 时间: 2010-3-25 22:53
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里面的单元格赋值或者读取单元格的值了。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)