分享成果，随喜正能量】时光如旅，岁月如茶，经得起品鉴，经得起品味，经得起欣赏，经得起点亮。。
在实际工作中要利用好VBA
应用10 如何利用VBA打开文件
打开文件是我们日常工作的一项重基本的操作，打开文件的目的一般情况下有两种，一是阅读、提取数据，二是追加保存数据。这些过程利用VBA都是可以实现的。我们这讲的学习任务就是掌握如何利用VBA打开文件。
1 VBA 打开文件的方法
VBA 提供了打开和处理文件的简单方法，这允许用户在打开文件后读或写或同时读取。
语法：
Open pathname For mode [Access access] [lock] As [#] filenumber [Len = reclength
参数：
1）pathname 必填。 指定文件名的字符串表达式，可包括目录或文件夹和驱动器。
2）mode 必填。 指定文件模式的关键字：Append、Binary、Input、Output 或 Random。 如果未指定，则以 Random 访问模式打开文件。
3）access 可选。 指定可对打开的文件执行的操作的关键字：Read、Write 或 Read Write。
4）lock 可选。 指定由其他进程限制在打开的文件上的操作的关键字：共享、锁定读取、锁定写入和锁定读写。
5）filenumber 必填。 一个有效文件号，范围为1到511（含1和511）。 使用FreeFile 函数可获取下一个可用的文件编号。
6）reclength 可选。 小于或等于 32,767（字节）的数。 对于以随机访问模式打开的文件，此值为记录长度。 对于序列文件，此值为缓冲的字符数。
如果pathname指定的文件不存在，那么在以 Append、Binary、Output 或 Random 模式打开文件时，即会创建它。
如果文件已由另一个进程打开，并且不允许指定的访问类型，则打开操作将失败，并将发生错误。
如果mode为Binary，则忽略Len子句。
在Binary,Input，Random模式中，你可以使用不同的文件号打开文件，而无需先关闭文件。 在 Append 和 Output 模式中，必须先关闭该文件，然后才能用不同文件号打开它。
2 只打开文件以便阅读
实例1：只打开文件，以便阅读
我们给大家展现一个实例，这个实例中我们利用Open语句打开一个文件，这个文件只是打开。我们看下面的代码;
Sub mynzA()
'声明变量
Dim pathname
'赋值
pathname = ThisWorkbook.Path & "\打开文件.xlsx"
'现在使用open语句打开文件
Workbooks.Open pathname
End Sub
代码截图：
代码的解读：上述代码利用OPEN语句打开一个当前文件夹下的“打开文件.xlsx"文件。
代码的运行结果：（略）
[待续]
本讲内容参考程序文件：应用010.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
分享成果，随喜正能量】走错了路，要记得回头；爱错了人，要懂得放手。人心都是相对的，以真换真；感情都是相互的，用心暖心。别去打扰那些已活在你记忆中的人，也许这才是最适合你们的距离。只是一起走过一段路而已，何必把怀念弄的比经过还长。 。