Set excelApp = CreateObject("excel.Application")
excelApp.Visible = true
excelApp.Workbooks.Open "d:\1.xls"
Set osheet = excelApp.Sheets.Item(1) '重命名sheet
osheet.Name = "hello"
osheet.Cells(1,1) = "test123" '第一行第一列输入数据
excelApp.ActiveWorkbook.Save
Set excelApp = nothing
用这样操作excle的方式,以后可以自定义做一个测试报表
也可以创建Excel.Application对象来对Excel文件进行操作。
Set ExcelApp=CreateObject("Excel.Application") ‘创建ExcelApp对象
Set ExcelWor=ExcelApp.Workbooks.Open("C:/Users/luyime/Desktop/another.xls") ‘打开excel文件工作簿
Set ExcelShe=ExcelWor.Worksheets("Sheet1").UsedRange ‘这里需要用到UsedRange,表示Sheet1所使用单元格的范围,否则会将所有单元格都打印出
rowcount=ExcelShe.Rows.count ‘计算使用的单元格行数
columncount=ExcelShe.Columns.count ‘计算使用的单元格的列数
For i=1 to rowcount
For j=1 to columncount
Msgbox ExcelShe.Cells(i,j) ‘打印出单元格的内容
Next
Next
Set ExcelShe=Nothing
ExcelWor.Close ‘关闭工作簿对象
ExcelApp.Quit ‘退出ExcelApp对象
以上主要是利用了WorkSheet对象的一些属性和方法,如UsedRange,Cells,Rows,Columns等等
下面是操作word
wobj.Visible = True
Set Doc = wobj.Documents.Add
Set Range = Doc.Paragraphs.Add.Range
Range.Text = “The first Paragraph”
Doc.Paragraphs.Add
Set Range2 = Doc.Paragraphs.Add.Range
Range2.Text = “The second Paragraph”