vb打开excel文件的相关操作

最新推荐文章于 2023-02-16 11:19:12 发布

原创

最新推荐文章于 2023-02-16 11:19:12 发布 · 2.1k 阅读

0 ·

CC 4.0 BY-SA版权

这篇博客介绍了如何使用Visual Basic(VB)来操作Excel文件，包括检查Excel应用程序是否已打开、创建新的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
      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,