资源描述：
《vba文本文件处理（vba text file processing）》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、vba文本文件处理（VBAtextfileprocessing）Processingtextfiles1,OpenstatementSyntax:Open,pathname,For,mode,[Access,access],[lock],,As,[#]filenumber,[Len=reclength]Amongthem,access,lock,reclengthareoptionalparameters,generallydonotuse.Modespecifiesthewaytoopenafile.Thereare5kinds:Input:openasinput,iereadmo
2、de.Output:openinoutputmode,thatis,writemode.Append:openbyappending,thatis,addingcontenttotheendofthefile.Binary:Opensinbinarymode.Random:openinarandomway,andifnotspecified,openthefileinRandommode.Filenumberisavalidfilenumberrangingfrom1to511.YoucanspecifyorusetheFreeFilefunctiontogetthenextavai
3、lablefilenumber.Explanation:ifthefilespecifiedbypathnamedoesnotexist,youcanbuildthisfilewhenyouopenthefileinAppend,Binary,Output,orRandommode.Example:Open"F:TEST.txt"ForInputAs#1isopenedasinputTheOpen"F:TEST.xls"ForBinaryAs#1isopenedinbinarymode2,ClosestatementSyntax:Close[filenumberlist]Thef
4、ilenumberlistparameterisoneormorefilenumbers.Iffilenumberlistisomitted,allactivefilesopenbytheOpenstatementwillbeclosed.Explanation:afteryouopenthefile,youmustclosethefileafteruse.Example:Dim,I,FileNameForI=1,To3FileName=TEST'&I'createsthefilename.OpenFileName,For,Output,As,#I'openthefile."Prin
5、t#I","Thisisatest.",writesthestringtothefile.NextI'Close'closesallthreeopenfiles.3,ResetstatementSyntax:ResetFunction:closealldiskfilesopenedwithOpenstatements.Explanation:theResetstatementclosesallactivefilesopenbytheOpenstatementandwritesallofthecontentsofthefilebuffertodisk.Example:DimFileNu
6、mberForFileNumber=1,To5Open"TEST"&FileNumber,For,Output,As,#FileNumber"Write#FileNumber","HelloWorld",writesdatatothefile.NextFileNumberReset'closesthefileandwritesthedatainthebuffertodisk.4,FreeFilefunctionSyntax:FreeFile[(rangenumber)]Parameterrangenumberspecifiesarangeinordertoreturnthenexta
7、vailablefilenumberwithinthatrange.Specifying0(default)returnsafilenumberbetween1and255.Specify1toreturnafilenumberbetween256-511.Function:provideafilenumberthathasnotbeenusedyet.Example:DimFNumAsIntegerFNum=FreeFileOpen"F:TEST.tx
