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

原创文章，作者：小蓝，如若转载，请注明出处：https://www.506064.com/n/189908.html