vba.workbooks.open

一、概述

vba.workbooks.open是vba Excel對象的一個方法，用於打開、導入Excel工作簿文件。該方法可以打開任何 Excel 工作簿，包括二進位文件（即.xls或.xlsb格式）、XML 文件（即.xlsx或.xlsm格式）和文本文件。

該方法的語法如下：

Workbooks.Open([Filename], [UpdateLinks], [ReadOnly], [Format], [Password], [WriteResPassword], [IgnoreReadOnlyRecommended], [Origin], [Delimiter], [Editable], [Notify], [Converter], [AddToMru], [Local], [CorruptLoad])

其中括弧內的參數均為可選參數，下面對參數做進一步講解。

二、參數詳解

1. Filename

表示想要打開的Excel文件的文件路徑。

2. UpdateLinks

指定是否要在打開文件時更新外部鏈接。如果省略該參數，則默認為False。如果該參數為True，則表示需要更新外部鏈接；如果該參數為False，則表示不需要更新外部鏈接。

3. ReadOnly

指定是否以只讀模式打開文件。如果省略該參數，則默認為False。如果該參數為True，則表示以只讀模式打開；如果該參數為False，則表示以可寫模式打開。

4. Format

指定要打開的文件的格式。如果省略該參數，則VBA將根據文件路徑中的文件擴展名自動判斷文件格式。常見格式包括：

• 1：打開文本文件，根據Delimiter參數指定的分隔符將文本文件分隔成表格。
• 2：打開文本文件，將文本文件內容按照逗號分隔符分隔成表格。
• 3：打開文本文件，將文本文件內容按照Tab分隔符分隔成表格。
• -4143：打開二進位Excel文件。
• 51：打開XML Excel文件。

5. Password

指定打開文件所需的密碼。如果文件有密碼，且你沒有指定正確的密碼，文件將無法打開。

6. WriteResPassword

指定可防寫文件所需的密碼。

7. IgnoreReadOnlyRecommended

指定是否要忽略只讀推薦選項。如果省略該參數，則默認為False。如果該參數為True，則表示忽略只讀推薦選項；如果該參數為False，則表示按照只讀推薦選項打開文件。

8. Origin

指定文件格式的國別/地區。如果省略該參數，則VBA將根據操作系統語言自動判斷。

9. Delimiter

指定文本文件的分隔符。如果格式參數是1，且沒有指定該參數，則默認為逗號。

10. Editable

指定導入文件時是否可編輯數據。如果省略該參數，則默認為True（可編輯）。如果該參數為True，則表示導入文件時可以編輯數據；如果該參數為False，則表示導入文件時不能編輯數據。

11. Notify

指定是否通知用戶打開外部鏈接。如果省略該參數，則默認為False。如果該參數為True，則表示需要通知用戶打開外部鏈接；如果該參數為False，則表示不需要通知用戶打開外部鏈接。

12. Converter

指定文件轉換器的名稱。如果省略該參數，則Excel將自動檢測並使用適當的轉換器。

13. AddToMru

指定是否將打開的文件添加到「最近使用的文件」列表。如果省略該參數，則默認為True。如果該參數為True，則表示添加到「最近使用的文件」列表；如果該參數為False，則表示不添加到「最近使用的文件」列表。

14. Local

指定文件的本地或非本地屬性。如果省略該參數，則默認為True，表示本地文件。如果該參數為True，則表示文件為本地文件；如果該參數為False，則表示文件為非本地文件。

15. CorruptLoad

指定是否要嘗試仍然打開已損壞的文件。如果省略該參數，則默認為False。如果該參數為True，則表示嘗試仍然打開已損壞的文件；如果該參數為False，則會顯示有關文件損壞的錯誤消息，文件將無法打開。

三、代碼示例

1. 最簡單的代碼示例：

Sub OpenWorkbook()
    Workbooks.Open("G:\Test.xlsx")
End Sub

2. 打開只讀文件並指定密碼：

Sub OpenWorkbook()
    Workbooks.Open("G:\Test.xlsx", ReadOnly:=True, Password:="123456")
End Sub

3. 打開帶有外部鏈接的文件並更新鏈接：

Sub OpenWorkbook()
    Workbooks.Open("G:\Test.xlsx", UpdateLinks:=True)
End Sub

4. 打開一個XML文件：

Sub OpenWorkbook()
    Workbooks.Open "G:\Test.xml", , , 51
End Sub

5. 打開一個文本文件：

Sub OpenWorkbook()
    Workbooks.Open "G:\Test.txt", , , 1
End Sub