利用VBA文件处理语句来处理文件.docx
《利用VBA文件处理语句来处理文件.docx》由会员分享,可在线阅读,更多相关《利用VBA文件处理语句来处理文件.docx(19页珍藏版)》请在冰点文库上搜索。
利用VBA文件处理语句来处理文件
利用VBA文件处理语句来处理文件
VBA包含了许多用于文件操作的语句和函数,可以满足绝大多数情况下的文件操作要求。
下面我们按照操作目的进行一一介绍。
(一)文件处理
1.Name语句
语法:
NameoldpathnameAsnewpathname
功能:
重命名一个文件、目录、或文件夹,移动一个文件。
说明:
在一个已打开的文件上使用Name,将会产生错误。
进行文件操作时,一定要注意错误处理。
示例:
OnErrorResumeNext'错误处理
Name"f:
\TEST.xls"As"f:
\TEST123.xls"'重命名
Name"f:
\TEST.xls"As"f:
\dll\TEST.xls"'移动文件
Name"f:
\TEST.xls"As"d:
\TEST123.xls"'跨驱动器移动并重命名文件
注意:
Name不能移动一个目录或文件夹。
2、FileCopy语句
语法:
FileCopysource,destination
功能:
复制一个文件。
说明:
如果对一个已打开的文件使用FileCopy语句,则会产生错误。
示例:
FileCopy"f:
\TEST.xls","e:
\TEST.xls"'从F盘复制TEST.xls到E盘
3、Kill语句
语法:
Killpathname
功能:
从磁盘中删除文件。
说明:
Kill支持多字符(*)和单字符(?
)的统配符来指定多重文件。
如果使用Kill来删除一个已打开的文件,则会产生错误。
示例:
Kill"f:
\TEST.xls"’删除F盘的TEST.xls文件
Kill"f:
\*.xls"'删除F盘所有xls文件
4、GetAttr函数
语法:
GetAttr(pathname)
功能:
获取一个文件、目录、或文件夹的属性。
返回一个Integer值。
返回值
由GetAttr返回的值,是下面这些属性值的总和:
常数值描述
vbNormal0常规
vbReadOnly1只读
vbHidden2隐藏
vbSystem4系统文件
vbDirectory16目录或文件夹
vbArchive32存档文件
vbalias64指定的文件名是别名。
只在Macintosh中可用。
说明:
若要判断是否设置了某个属性,在GetAttr函数与想要得知的属性值之间使用And运算符与逐位比较。
如果所得的结果不为零,则表示设置了这个属性值。
示例:
Debug.PrintGetAttr("F:
\test.txt")'若为存档文件,在立即窗口可看到值为32
Debug.PrintGetAttr("F:
\test.txt")'将属性—高级—可存档文件的勾去掉后,值为0
为判断一个文件是否只读,可用下法:
Debug.PrintGetAttr("F:
\test.txt")AndvbReadOnly
若值非零,说明时只读的。
5、SetAttr语句
语法:
SetAttrpathname,attributes
功能:
为一个文件设置属性。
说明:
如果想要给一个已打开的文件设置属性,则会产生运行时错误。
示例:
SetAttr"F:
\test.txt",vbHidden'设置隐藏属性。
SetAttr"F:
\test.txt",vbHidden+vbReadOnly'设置隐藏并只读。
6、FileLen函数
语法:
FileLen(pathname)
功能:
获取一个文件的长度,单位是字节。
说明:
当调用FileLen函数时,不需要打开文件,如果所指定的文件已经打开,则返回的值是这个文件在打开前的大小。
7、FileDateTime函数
语法:
FileDateTime(pathname)
功能:
获取一个文件被创建或最后修改后的日期和时间。
示例:
Debug.PrintFileDateTime("F:
\TEST.xls")'在立即窗口可看到2007-3-2919:
28:
27
(二)目录处理
1、CurDir函数
语法:
CurDir[(drive)]
功能:
返回当前的路径。
说明:
drive参数是可选的,它指定一个存在的驱动器。
如果没有指定驱动器,或drive是零长度字符串(""),则CurDir会返回当前驱动器的路径。
示例:
Debug.PrintCurDir'返回“C:
\DocumentsandSettings\yc\MyDocuments”。
Debug.PrintCurDir("C")'返回“C:
\DocumentsandSettings\yc\MyDocuments”。
Debug.PrintCurDir("D")'返回“D:
\”。
2、ChDir语句
语法:
ChDirpath
功能:
改变当前的目录或文件夹。
说明:
ChDir语句改变缺省目录位置,但不会改变缺省驱动器位置。
缺省驱动器一般是C。
示例:
ChDir"D:
\temp"
Debug.PrintCurDir'返回“C:
\DocumentsandSettings\yc\MyDocuments”。
Debug.PrintCurDir("D")'返回“D:
\temp”。
与上例比较,此时D盘的当前目录已经变为“D:
\temp”,但是缺省驱动器还是C。
3、ChDrive语句
语法:
ChDrivedrive
功能:
改变当前的驱动器。
说明:
如果使用零长度的字符串(""),则当前的驱动器将不会改变。
如果drive参数中有多个字符,则ChDrive只会使用首字母。
示例:
ChDrive"D"
ChDir"D:
\temp"
Debug.PrintCurDir'返回“D:
\temp”。
Debug.PrintCurDir("D")'返回“D:
\temp”。
与上例比较,用CurDir返回的是“D:
\temp”,当前驱动器已经变为D了。
4、Dir函数
语法:
Dir[(pathname[,attributes])]
两个参数都是可选的,attributes表示文件属性。
功能:
返回一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。
说明:
在第一次调用Dir函数时,必须指定pathname,否则会产生错误。
如果也指定了文件属性,那么就必须包括pathname。
Dir会返回匹配pathname的第一个文件名。
若想得到其它匹配pathname的文件名,再一次调用Dir,且不要使用参数。
如果已没有合乎条件的文件,则Dir会返回一个零长度字符串("")。
一旦返回值为零长度字符串,并要再次调用Dir时,就必须指定pathname,否则会产生错误。
不必访问到所有匹配当前pathname的文件名,就可以改变到一个新的pathname上。
但是,不能以递归方式来调用Dir函数。
以vbDirectory属性来调用Dir不能连续地返回子目录。
示例:
Debug.PrintDir("F:
\TEST.xls")’返回"TEST.xls"
Debug.PrintDir("F:
\*.xls")’返回按条件第一个找到的文件名。
Debug.PrintDir("F:
\*.txt",vbReadOnly)’返回第一个只读的txt文件
以下过程可显示C盘根目录下的所有目录.
SubDirC()
MyPath="c:
\"
MyName=dir(MyPath,vbDirectory)'找寻第一项。
DoWhileMyName<>""'开始循环。
'跳过当前的目录及上层目录。
IfMyName<>"."AndMyName<>".."Then
'使用位比较来确定MyName代表一目录。
If(GetAttr(MyPath&MyName)AndvbDirectory)=vbDirectoryThen
Debug.PrintMyName'如果它是一个目录,将其名称显示出来。
EndIf
EndIf
MyName=dir'查找下一个目录。
Loop
EndSub
以下过程利用递归可以查找目录和子目录下的所有文件。
PublicSubFindFile(mPathAsString,OptionalsFileAsString="")
OnErrorResumeNext
DimsAsString,sDir()AsString
DimiAsLong,dAsLong
IfRight(mPath,1)<>"\"Then
mPath=mPath&"\"
EndIf
'查找目录下的文件
s=dir(mPath&sFile,vbArchive+vbDirectory+vbHidden+vbNormal+vbReadOnly+vbSystem)
DoWhiles<>""
Debug.PrintmPath&s
s=dir
Loop
'查找目录下的子目录
s=dir(mPath,vbArchive+vbDirectory+vbHidden+vbNormal+vbReadOnly+vbSystem)
DoWhiles<>""
Ifs<>"."Ands<>".."Then
If(GetAttr(mPath&s)AndvbDirectory)=vbDirectoryThen
d=d+1
ReDimPreservesDir(d)
sDir(d)=mPath&s
EndIf
EndIf
s=dir
Loop
'开始递归
Fori=1Tod
FindFilesDir(d)&"\"
Next
EndSub
5、MkDir语句
语法:
MkDirpath
功能:
创建一个新的目录或文件夹。
说明:
path可以包含驱动器。
如果没有指定驱动器,则MkDir会在当前驱动器上创建新的目录或文件夹。
示例:
MkDir"MYDIR"'在当前目录建立新的目录或文件夹。
6、RmDir语句
语法:
RmDirpath
功能:
删除一个存在的目录或文件夹。
说明:
如果想要使用RmDir来删除一个含有文件的目录或文件夹,则会发生错误。
在试图删除目录或文件夹之前,先使用Kill语句来删除所有文件。
示例:
RmDir"MYDIR"'将MYDIR删除。
(三)处理文本文件
1、Open语句
语法:
OpenpathnameFormode[Accessaccess][lock]As[#]filenumber[Len=reclength]
其中access、lock、reclength为可选参数,一般不用。
mode指定打开文件的方式。
有5种:
Input:
以输入方式打开,即读取方式。
Output:
以输出方式打开,即写入方式。
Append:
以追加方式打开,即添加内容到文件末尾。
Binary:
以二进制方式打开。
Random:
以随机方式打开,如果未指定方式,则以Random方式打开文件。
filenumber是一个有效的文件号,范围在1到511之间。
可以指定,也可使用FreeFile函数可得到下一个可用的文件号。
说明:
如果pathname指定的文件不存在,那么,在用Append、Binary、Output、或Random方式打开文件时,可以建立这一文件。
示例:
Open"F:
\TEST.txt"ForInputAs#1'以输入方式打开
Open"F:
\TEST.xls"ForBinaryAs#1'以二进制方式打开
2、Close语句
语法:
Close[filenumberlist]
filenumberlist参数为一个或多个文件号,若省略filenumberlist,则将关闭Open语句打开的所有活动文件。
说明:
打开文件后,必须在使用完后关闭文件。
示例:
DimI,FileName
ForI=1To3
FileName="TEST"&I'创建文件名。
OpenFileNameForOutputAs#I'打开文件。
Print#I,"Thisisatest."'将字符串写入文件。
NextI
Close'将三个已打开的文件全部关闭。
3、Reset语句
语法:
Reset
功能:
关闭所有用Open语句打开的磁盘文件。
说明:
Reset语句关闭Open语句打开的所有活动文件,并将文件缓冲区的所有内容写入磁盘。
示例:
DimFileNumber
ForFileNumber=1To5
Open"TEST"&FileNumberForOutputAs#FileNumber
Write#FileNumber,"HelloWorld"'将数据写入文件。
NextFileNumber
Reset'关闭文件并将缓冲区内的数据写到磁盘中。
4、FreeFile函数
语法:
FreeFile[(rangenumber)]
参数rangenumber指定一个范围,以便返回该范围之内的下一个可用文件号。
指定0(缺省值)则返回一个介于1–255之间的文件号。
指定1则返回一个介于256–511之间的文件号。
功能:
提供一个尚未使用的文件号。
示例:
DimfnumAsInteger
fnum=FreeFile
Open"F:
\TEST.txt"ForInputAs#fnum
Close#fnum
5、EOF函数
语法:
EOF(filenumber)
功能:
返回一个Integer,它包含Boolean值True,表明已经到达为Random或顺序Input打开的文件的结尾。
6、LOF函数
语法:
LOF(filenumber)
功能:
返回一个Long,表示用Open语句打开的文件的大小,该大小以字节为单位。
7、Loc函数
语法:
LOc(filenumber)
功能:
返回一个Long,在已打开的文件中指定当前读/写位置。
8、Input#语句
语法:
Input#filenumber,varlist
功能:
从已打开的顺序文件中读出数据并将数据指定给变量。
说明:
通常用Write#将Input#语句读出的数据写入文件。
为了能够用Input#语句将文件的数据正确读入到变量中,在将数据写入文件时,要使用Write#语句而不使用Print#语句。
使用Write#语句可以确保将各个单独的数据域正确分隔开。
示例:
本示例使用Input#语句将文件内的数据读入两个变量中。
本示例假设TESTFILE文件内含数行以Write#语句写入的数据;也就是说,每一行数据中的字符串部分都是用双引号括起来,而与数字用逗号隔开,例如,("Hello",234)。
DimMyString,MyNumber
Open"TESTFILE"ForInputAs#1'打开输入文件。
DoWhileNotEOF
(1)'循环至文件尾。
Input#1,MyString,MyNumber'将数据读入两个变量。
Debug.PrintMyString,MyNumber'在立即窗口中显示数据。
Loop
Close#1'关闭文件。
9、Write#语句
语法:
Write#filenumber,[outputlist]
功能:
将数据写入顺序文件。
说明:
通常用Input#从文件读出Write#写入的数据。
如果省略outputlist,并在filenumber之后加上一个逗号,则会将一个空白行打印到文件中。
多个表达式之间可用空白、分号或逗号隔开。
空白和分号等效。
用Write#将数据写入文件时将遵循几个通用的约定,使得无论什么区域都可用Input#读出并正确解释数据:
·在写入数值数据时总使用句号作为十进制分隔符。
·对于Boolean类型的数据,或者打印#TRUE#或者打印#FALSE#。
无论在什么地区,都不将True和False这两个关键字翻译出来。
·使用通用的日期格式将Date类型的数据写入文件中。
当日期或时间的部件丢失或为零时,只将现有部分写入文件中。
·如果outputlist的数据为Empty,则不将任何数据写入文件。
但对Null数据,则要写入#NULL#。
·如果outputlist数据为Null数据,则将#NULL#写入文件中。
·对于Error类型的数据,输出看起来与#ERRORerrorcode#一样。
无论在什么地区,都不将关键字Error翻译出来。
与Print#语句不同,当要将数据写入文件时,Write#语句会在项目和用来标记字符串的引号之间插入逗号。
没有必要在列表中键入明确的分界符。
Write#语句在将outputlist中的最后一个字符写入文件后会插入一个新行字符,即回车换行符,(Chr(13)+Chr(10))。
示例:
Open"F:
\test.txt"ForOutputAs#1'打开输出文件。
Write#1,"HelloWorld",1234'写入以逗号隔开的数据。
Write#1,'写入空白行。
DimMyBool,MyDate,MyNull,MyError
'赋值Boolean、Date、Null及Error等。
MyBool=False:
MyDate=#February12,1969#:
MyNull=Null
MyError=CVErr(32767)
'Boolean数据以#TRUE#或#FALSE#的格式写入。
'日期以通用日期格式写入,例如:
#1994-07-13#代表
'1994年1月13日。
Null数据以#NULL#格式写入。
'Error数据以#ERROR错误代号#的格式写入。
Write#1,MyBool;"isaBooleanvalue"
Write#1,MyDate;"isadate"
Write#1,MyNull;"isanullvalue"
Write#1,MyError;"isanerrorvalue"
Close#1'关闭文件。
我们可以看到写入的内容为:
"HelloWorld",1234
#FALSE#,"isaBooleanvalue"
#1969-02-12#,"isadate"
#NULL#,"isanullvalue"
#ERROR32767#,"isanerrorvalue"
10、LineInput#语句
语法:
LineInput#filenumber,varname
功能:
从已打开的顺序文件中读出一行并将它分配给String变量。
说明:
通常用Print#与LineInput#语句配合使用。
LineInput#语句一次只从文件中读出一个字符,直到遇到回车符(Chr(13))或回车–换行符(Chr(13)+Chr(10))为止。
回车–换行符将被跳过,而不会被附加到字符串上。
示例:
DimTextLine
Open"TESTFILE"ForInputAs#1'打开文件。
DoWhileNotEOF
(1)'循环至文件尾。
LineInput#1,TextLine'读入一行数据并将其赋予某变量。
Debug.PrintTextLine'在立即窗口中显示数据。
Loop
Close#1'关闭文件。
11、Input函数
语法:
Input(number,[#]filenumber)
其中number指定要返回的字符个数。
功能:
返回String,它包含以Input或Binary方式打开的文件中的字符。
说明:
通常用Print#或Put将Input函数读出的数据写入文件。
Input函数只用于以Input或Binary方式打开的文件。
与Input#语句不同,Input函数返回它所读出的所有字符,包括逗号、回车符、空白列、换行符、引号和前导空格等。
示例:
DimMyChar
Open"f:
\test.txt"ForInputAs#1
DoWhileNotEOF
(1)'循环至文件尾。
MyChar=Input(1,#1)'读入一个字符。
Debug.PrintMyChar'显示到立即窗口。
Loop
Close#1
下面这个函数可以将文本文件的数据一次读入到一个字符串(但是若包含中文时会出错,因为一个中文字占2个字节)。
PublicFunctionReadText(FileNameAsString)
Dimfnum%,isopenAsBoolean
OnErrorGoToerro
fnum=FreeFile()
OpenFileNameForInputAs#fnum
isopen=True
ReadText=Input(LOF(fnum),fnum)
erro:
IfisopenThenClose#fnum
IferrThenDebug.Printerr.Number,err.Description
EndFunction
12、Print#语句
语法:
Print#filenumber,[outputlist]
outputlist参数的设置如下:
[{Spc(n)|Tab[(n)]}][expression][charpos]
Spc(n)用来在输出数据中插入空白字符,而n指的是要插入的空白字符数。
Tab(n)用来将插入点定位在某一绝对列号上,这里,n是列号。
使用无参数的Tab将插入点定位在下一个打印区的起始位置。
expression要打印的数值表达式或字符串表达式。
charpos指定下一个字符的插入点。
使用分号将插入点定位在上一个显示字符之后。
用Tab(n)将插入点定位在某一绝对的列号上,用无参数的Tab将插入点定位在下一个打印区的起始处。
如果省略charpos,则在下一行打印下一个字符。
功能:
将格式化显示的数据写入顺序文件中。
说明:
通常用Line