vb打开excel文件的相关操作

最新推荐文章于 2020-11-24 22:00:06 发布

Lytton_jing

最新推荐文章于 2020-11-24 22:00:06 发布

阅读量2k

点赞数

分类专栏： Vb、Excel

本文链接：https://blog.csdn.net/ddjj_1980/article/details/8620524

版权

这篇博客介绍了如何使用Visual Basic(VB)来操作Excel文件，包括检查Excel应用程序是否已打开、创建新的Excel对象、判断文件是否存在、以及在打开文件后执行启动宏。代码示例中展示了在文件不存在或已被打开时的处理方式。

摘要由CSDN通过智能技术生成

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