word和excel测试软件,【转】自动化VBS操作EXCEL和WORD

****************************

' Excel操作

'****************************

'****************************

'定义Excel对象

' xlsApp Excel应用程序对象

' xlsWork Excel工作簿对象

'****************************

Dim xlsApp,xlsWork

'----------------------------------------------------------------------------------

'示例：调用获取excel当前路径并获取表中的使用的行数和列数

filepath = getpath() & "TestFramework.xls"

MsgBox filepath

xlsOpen(filepath)

xlsWork.WorkSheets("example").Activate

MsgBox "表中总共有" & xlsWork.WorkSheets("example").usedrange.rows.count & "行" '获取excel表中的所有使用行

MsgBox "表中总共有" & xlsWork.WorkSheets("example").usedrange.columns.count & "列" '获取excel表中的所有使用列

xlsClose()

'----------------------------------------------------------------------------------

'获取当前应用程序路径,把excel放到这个路径下以后就可以不用管路径问题了

function getpath()

dim wsheel

Set wsheel=wscript.createobject("wscript.shell")

getpath=wsheel.currentdirectory & "\"

End Function

'****************************

'函数名称：xlsOpen

'函数功能：打开Excel工作簿

'参数1：fileName Excel文件名称(包括路径)

' /*参数2：sheetName Excel工作表名称*/

'返回值：无

'****************************

Sub xlsOpen(fileName)

On Error Resume Next '遇见错误继续运行程序

Set xlsApp = CreateObject("Excel.Application") '创建应用程序对象

Set xlsWork = xlsApp.WorkBooks.open(fileName) '设置打开文件的对象

'xlsWork.WorkSheets(sheetName).Activate   '设置当前活动的工作表

'如果有错误则关闭Excel程序

If ERR.Number<>0 Then

MsgBox "asdf"

Call xlsClose()

End If

On error goto 0

End Sub

'****************************

'函数名称：xlsRead

'函数功能：读取Excel表格中指定单元格的数据

'参数1：sheetName工作表名称

'参数2：row单元格所在行

'参数3：col单元格所在列

'返回值：当前单元格的数据

'****************************

Function xlsRead(sheetName,row,col)

On Error Resume next

xlsRead = xlsWork.WorkSheets(sheetName).Cells(row,col).Value

'如果有错误则关闭Excel程序

If ERR.Number<>0 Then

Call xlsClose()

'Err.Clear()

End If

On error goto 0

End Function

'****************************

'函数名称：xlsWrite

'函数功能：写入数据到指定的Excle单元格

'参数1：sheetName工作表名称

'参数2：row单元格所在行

'参数3：col单元格所在列

'参数4：val要写入到单元格的数据

'返回值：无

'****************************

Function xlsWrite(sheetName,row,col,val)

On Error Resume next

xlsWork.WorkSheets(sheetName).Cells(row,col).Value = val

'如果有错误则关闭Excel程序

If ERR.Number<>0 Then

Call xlsClose()

End If

On error goto 0

End Function

'****************************

'函数名称：xlsSave

'函数功能：保存Excel工作簿数据

'参数：无

'返回值：无

'****************************

Sub xlsSave()

On Error Resume next

xlsWork.Save

'xlsWork.SaveAs "C:\aa.xls"  '另存为一个新文件

'如果有错误则关闭Excel程序

If ERR.Number<>0 Then

Call xlsClose()

End If

On error goto 0

End Sub

'****************************

'函数名称：xlsClose

'函数功能：关闭Excel工作簿

'参数：无

'返回值：无

'****************************

Sub xlsClose()

'关闭对象

xlsWork.Close

xlsApp.WorkBooks.Close