VBA遍历文件编辑.docx

Excel VBA - 遍历某个文件夹中文件、文件夹及批量建立txt我们可能会经常要将一个文件夹中的所有文件都遍历一遍，然后进行修改，下面就介绍用Dir函数实现遍历*.xlsx文件的方法Dir 函数返回一个?String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。语法Dir[(pathname[,?attributes])]第一个参数即是文件的地址，第一次引用的时候要标注，第二次用的时候就不必指出了，下面举个例子，遍历下面文件夹中的Excel2010文件，然后输出文件的名字~?批量遍历某类文件(*.xlsx)?[vb]?view plain?copy?print?Sub?OpenAndClose()??????Dim?MyFile?As?String??????Dim?s?As?String??????Dim?count?As?Integer??????MyFile?=?Dir(C:\Users\McDelfino\Desktop\2.JPL_SCAT_EXCEL全\??*.xlsx)??????读入文件夹中的第一个.xlsx文件??????count?=?count?+?1???????记录文件的个数??????s?=?s??count??、??MyFile??????Do?While?MyFile????????????MyFile?=?Dir????????第二次读入的时候不用写参数??????????If?MyFile?=??Then??????????????Exit?Do?????????当MyFile为空的时候就说明已经遍历完了，这时退出Do，否则还要运行一遍??????????End?If??????????count?=?count?+?1??????????If?count?Mod?2??1?Then??????????????s?=?s??vbTab??count??、??MyFile??????????Else??????????????s?=?s??vbCrLf??count??、??MyFile??????????End?If??????Loop??????Debug.Print?s??End?Sub??运行结果如下：53、遍历每个文件，并且修改文件，先将文件的名字存在数组中，然后通过数组遍历打开每个文件，修改，再关闭文件~[vb]?view plain?copy?print?Sub?OpenCloseArray()??????Dim?MyFile?As?String??????Dim?Arr(100)?As?String??????Dim?count?As?Integer??????MyFile?=?Dir(C:\Users\McDelfino\Desktop\2.JPL_SCAT_EXCEL全\??*.xlsx)??????count?=?count?+?1??????Arr(count)?=?MyFile????????????Do?While?MyFile????????????MyFile?=?Dir??????????If?MyFile?=??Then??????????????Exit?Do??????????End?If??????????count?=?count?+?1??????????Arr(count)?=?MyFile?????????将文件的名字存在数组中??????Loop????????????For?i?=?1?To?count??????????Workbooks.Open?Filename:=C:\Users\McDelfino\Desktop\2.JPL_SCAT_EXCEL全\??Arr(i)??循环打开Excel文件??????????????Cells(1,?1)?=?alex_bn_lee?????????????修改打开文件的内容??????????ActiveWorkbook.Close?savechanges?=?True?????关闭打开的文件??????Next??End?Sub??要是想要修改每个工作簿的内容可以这样遍历一下，显示将文件夹中的工作簿的名字存到一个字符串数组中，然后在用For...Next语句遍历?批量遍历某个文件夹中的所有文件(*.*)?注意：遍历的时候，顺序完全是按照文件名的顺序排的，而不是按照文件夹中文件的顺序~[vb]?view plain?copy?print?Sub?dlkfjdl()??????Dim?MyFile?As?String??????Dim?count?As?Integer??????count?=?1??????MyFile?=?Dir(C:\User