UFT fso与excel之间的应用

Posted 2020-08-03

‘定义excel对象，excel工作簿对象，工作表对象

Dim exlapp,exlworkbook,exlworksheet

‘定义文件系统对象

Dim fso

‘创建excel

Set exlapp=CreateObject("excel.application")

‘创建文件对象

Set fso =CreateObject("scripting.filesystemobject")

‘判断当前路径是否存在excel文件

If fso.FileExists("c:\test.xlsx")Then

‘如果存在excel文件，则执行该代码

    Set exlworkbook=exlapp.Workbooks.Open("c:\test.xlsx")    

Else

‘如果不存在excel文件，则执行该代码

    Set exlworkbook=exlapp.Workbooks.Add

End If

‘创建工作表

Set exlworksheet=exlapp.Worksheets.Add

‘给工作表赋值

exlworksheet.cells(1,"c")="放到达到"

‘保存excel文件，如果已经有该文件，则使用save方法进行保存，

‘如果是新建的excel文件，原来不存在的话，则用savaas方法进行保存

If fso.FileExists("c:\test.xlsx")Then

    MsgBox "excel存在"

    exlworkbook.Save

Else

        MsgBox "excel不存在"

    exlworkbook.SaveAs("c:\test.xlsx")

End If

‘关闭工作薄

exlworkbook.Close

‘退出excel对象

exlapp.Quit

‘释放资源

Set exlapp =Nothing

Set exlworkbook =Nothing

Set exlworksheet =Nothing

Set fso =nothing