codecamp

VBA中读取文件的步骤

你已经从前面的章节里知道了如何使用VBA打开一个电子表格,例如指令:


Application.Workbooks.Open Filename:= "C:\Excel\Report.xls"



打开位于文件夹C:\Excel里面的文件Report.xls。除了使用专门的应用程序打开文件之外,你如果也想要创建VBA过程能够打开其它类型的文件并使用它们的内容的话,你就应该学习一些关于被称为低级别的文件I/O(input/output)。接下来关于顺序,随机和二进制文件的章节将会带你直接接触你的数据。

文件访问类型

计算机使用的文件类型有三种:

①顺序访问文件是指按储存相同的顺序找回数据的文件。例如以CSV格式(逗号分割文本),TXT格式(以Tab键分割的文本)或者PRN格式(以空格分隔的文本)储存的文件。顺序文件访问经常用来写文本文件,例如错误日志,参数设定和报告。顺序文件有下列模式:Input,Output和Append。模式决定了文件打开后你如何使用它。

②随机访问文件是文本文件,它的数据以同等长度储存并在一个以逗号分割的区域了。随机访问文件只有一个模式——Random

③二进制访问文件是图形文件和其它非文本文件。二进制文件只能够在Binary模式下访问。

使用顺序文件

你的电脑硬盘上有成百上千的顺序文件。参数文件,错误日志,HTML文件以及所有类型的无格式文本文件都是顺序文件。这些文件以字母顺序在硬盘上储存。新文本行的开始以两个专门的字符表示,一个叫做carriage return (回车),另一个叫line feed(换行)。当你使用顺序文件时,你从文件的开头始,一个字符一个字符的向前移动,一行接一行,直到文件的结尾。顺序文件容易打开和操作,任何文本编辑器都可以。


技巧:什么是顺序文件?

顺序文件就是访问它里面的记录时必须按它占据的顺序进行的文件,这意味着在你想访问第三个记录之前,你必须先访问第一个记录,接着是第二个记录。


技巧:使用Open语句打开文件

当你使用顺序访问来打开一个文件时,该文件必须是已经存在的。


读取储存于顺序文件里的数据

我们来用一个已经在你电脑上的顺序文件并且在Excel  VB编辑器窗口直接使用VBA来读取它的内容。要从一个文件读取数据,你就必须先使用Open语句打开该文件。这是它的语法:
Open pathname For mode [Access access][lock] As [#]filenumber [Len=reclength]
Open语句有三个必须的参数,它们是pathname, mode, 和 filenumber。上面的语法里,这三个参数前面都有用粗体显示的关键字。

①Pathname是你要打开的文件名称

②Pathname可以包括驱动器和文件夹名称

③Mode是个决定文件如何打开的关键字。顺序文件可以以下列模式之一来打开:Input,Output  或Append。使用Input读文件,Output写文件,将覆盖任何存在的文件,以及Append来写入文件,同时附加上任何已经存在的信息。

④Access是决定决定文件读写的关键字,Access可以是:Shared(共享),Lock Read(锁定读),Lock Write(锁定写)或Lock Read Write(锁定读写)。

⑤Lock决定了哪些文件的操作是允许其它过程进行的。例如,如果某文件是在网络环境下打开的,“锁定”决定了其他人如何访问它。下述锁定关键字是可以用的:Read,Write 或者 ReadWrite。

⑥Filenumber是从1到511的数字,该数字用来指向顺序操作中的文件。通过使用VB内置函数FreeFile,你可以获得一个唯一的文件号码。

⑦Open语句里的最后一个成员reclength明确顺序文件里总字符数,或者是随机文件里记录大小。

考虑一下前面的例子,为了读取数据,要打开C:\Autoexec.bat或者其它顺序文件,你应该使用下面的指令:
Open "C:\Autoexec.bat" For Input As #1
如果某文件已经打开输入了,那么从它读取数据。在打开一格顺序文件后,你就可以使用下面的语句读取它的内容:Line Input #或者 Input # 或者使用Input 函数。

逐行读取文件

使用下面的语句来逐行读取Autoexec.bat或者其它任何顺序文件里的内容:

Line Input #filenumber, variableName

#filenumber是用Open语句打开文件时使用的数字,variableName是个String或者Variant变量,用来储存读取的行。


Line Input #语句仅读取一开启顺序文件里的一行并且储存在一变量里。记住,Line Input # 语句一次读取顺序文件里的一个字符,直到它遇到回车字符(Chr(13))或者回车-换行字符(Chr(13)& Chr(10))。这些字符(回车,换行)在读取过程中返回的文本里是会忽略掉的。

接下来的过程ReadMe示范如何使用Open和Line Input #语句逐行读取Autoexec.bat文件的内容。试试用同样的方法来读取其它顺序文件。

1. 在当前工程里面插入新模块并重命名为SeqFiles

2. 输入下列过程ReadMe:

Sub ReadMe()
Dim rLine As String
Dim i As Integer ' line number
i = 1
Open "C:\Autoexec.bat" For Input As #1
' stay inside the loop until the end of file is reached
Do While Not EOF(1)
Line Input #1, rLine
MsgBox "Line " & i & " in Autoexec.bat reads: " _
& Chr(13) & Chr(13) & rLine
i = i + 1
Loop
MsgBox i & " lines were read."
Close #1
End Sub

3. 按下F8,逐句运行该过程

为了读取内容,过程ReadMe将文件Autoexec.bat在模式Input里作为文件号码1打开。Do…While循环告诉VB一直执行循环里面的语句,直到到达文件结尾。文件的结尾由函数EOF的结果决定。


EOF函数当下个要读取的字符已经过了文件结尾时,返回逻辑值True。注意,EOF要求一个参数——你要检查的打开了的文件号码,是前面Open语句使用的同一个数字。使用EOF函数来确保VB不会超出文件结尾处。


Line Input # 语句将每行内容储存于变量rLine里,然后,信息框显示行号和它的内容。之后如果函数EOF的结果还是为假(还未到达文件结尾处)的话,VBA给行计数器增加1,并且开始读取下一行。当函数EOF结果为真是,VB就会退出循环。在VBA结束前,还会再运行两条语句,显示读取行的总数,以及关闭该打开的文件。




 







VBA中删除文件的步骤
VBA从顺序文件中读取字符
温馨提示
下载编程狮App,免费阅读超1000+编程语言教程
取消
确定
目录

关闭

MIP.setData({ 'pageTheme' : getCookie('pageTheme') || {'day':true, 'night':false}, 'pageFontSize' : getCookie('pageFontSize') || 20 }); MIP.watch('pageTheme', function(newValue){ setCookie('pageTheme', JSON.stringify(newValue)) }); MIP.watch('pageFontSize', function(newValue){ setCookie('pageFontSize', newValue) }); function setCookie(name, value){ var days = 1; var exp = new Date(); exp.setTime(exp.getTime() + days*24*60*60*1000); document.cookie = name + '=' + value + ';expires=' + exp.toUTCString(); } function getCookie(name){ var reg = new RegExp('(^| )' + name + '=([^;]*)(;|$)'); return document.cookie.match(reg) ? JSON.parse(document.cookie.match(reg)[2]) : null; }