• 利用 GetObject 方法打開Excel文檔

Sub GetWorkbook() Dim wbWorkFile As Workbook Set wbWorkFile = GetObject("D:\test.xlsx") ' wbWorkFile.Windows(1).Visible = True ' 這種方法打開的文件是隐藏的，如果需要顯示，則設置Visible值為ture wbWorkFile.Close False Set wbWorkFile = Nothing End Sub

• 利用 Open 方法打開Excel文檔

Sub OpenWorkbook() Dim wbWorkFile As Workbook Set wbWorkFile = Workbooks.Open("D:\test.xlsx") wbWorkFile.Windows(1).Visible = False wbWorkFile.Close False Set wbWorkFile = Nothing End Sub

延伸其擴展方法：

• GetObject封裝方法，可以作為共通Function

Sub GetWorkbook() Dim objExcel As Object ' 用于存放Microsoft Excel 引用的變量。 Dim blnExcelWasNotRunning As Boolean ' 用于最後釋放的标記。 ' 測試 Microsoft Excel 的副本是否在運行。 On Error Resume Next ' 延遲錯誤捕獲。 ' 不帶第一個參數調用 Getobject 函數将返回對該應用程序的實例的引用。如果該應用程序不在運行，則會産生錯誤。 Set objExcel = Getobject(, "Excel.Application") If Err.Number <> 0 Then blnExcelWasNotRunning = True Err.Clear ' 如果發生錯誤則要清除 Err 對象。 Set objExcel = Getobject("C:\excel.xlsx") ' 将對象變量設為對要看的文件的引用。 ' 設置其 Application 屬性，顯示 Microsoft Excel。然後使用 objExcel 對象引用的 Windows 集合顯示包含該文件的實際窗口。 objExcel.Application.Visible = True objExcel.Parent.Windows(1).Visible = True ' 在此處對文件進行操作。 ' ... ' 如果在啟動時，Microsoft Excel 的這份副本不在運行中，則使用 Application 屬性的 Quit 方法來關閉它。 ' 注意，當試圖退出 Microsoft Excel 時，标題欄會閃爍，并顯示一條消息詢問是否保存所加載的文件。 If blnExcelWasNotRunning = True Then objExcel.Application.Quit End IF Set objExcel = Nothing ' 釋放對該應用程序 End Sub

• OpenWorkbook封裝方法，可以作為共通Function

Function OpenWorkbook(ByVal strWorkbookFilePath As String) Dim wb As Workbook Dim fileName As String fileName = Dir(strWorkbookFilePath) On Error Resume Next Set wb = Workbooks(fileName) On Error GoTo 0 If wb Is Nothing Then Set wb = Workbooks.Open(strWorkbookFilePath) End If Set OpenWorkbook = wb End Function

VBA編程神器 VBA代碼助手 可以極大提高編程速度，降低編程門檻歡迎使用

私信回複 代碼助手 即可獲得

用法 輸入 字典 空格 即可看到如下提示 也可輸入 dic 空格 zd 空格 均可得到提示

本提示數據庫可完全自定義!