打开操作excel,word

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

Set wobj = CreateObject(”Word.Application”)
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”