vb打开excel文件的相关 *** 作

概述Dim xlApp As EXCEL.Application Dim xlBook As EXCEL.Workbook Dim filename Dim reportini As String filename = "\ReportModel\BatchReport.xlsm" reportini = App.Path + "\report.ini" On Error Resume Next   

Dim xlApp As EXCEL.Application
Dim xlBook As EXCEL.Workbook
Dim filename
Dim reportini As String

filename = "\ReportModel\BatchReport.xlsm" reportini = App.Path + "\report.ini" On Error Resume Next gstrLanguage = getstring(reportini,"database","Language") Call Textini Set xlApp = Getobject(,"Excel.Application") '判断EXCEL是否打开 If Err.Number <> 0 Then Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 xlApp.Visible = False '设置EXCEL对象不可见 End If Err.Clear If Dir(App.Path & filename) = "" Then '判断文件是否存在 MsgBox Msg_7,vbOKOnly,Title_SysMsg Exit Sub End If '判断文件是否打开 For Each xlBook In xlApp.Workbooks If xlBook.name = Right(filename,16) Then MsgBox Msg_6,Title_SysMsg xlBook.Activate xlApp.windowstate = xlMaximized Exit Sub End If Next Set xlBook = xlApp.Workbooks.Open(App.Path & filename) '打开工件簿文件 xlBook.RunautoMacros (xlautoOpen) '运行EXCEL启动宏 'xlBook.RunautoMacros (xlautoClose) '运行EXCEL关闭宏 xlApp.Visible = True

总结

以上是内存溢出为你收集整理的vb打开excel文件的相关 *** 作全部内容，希望文章能够帮你解决vb打开excel文件的相关 *** 作所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。