Excel VbA 讀取某個(gè)文件夾下所有文件的內(nèi)容.doc

《Excel VbA 讀取某個(gè)文件夾下所有文件的內(nèi)容.doc》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、ExcelVbA讀取某個(gè)文件夾下所有文件的內(nèi)容SubGetAFolderMoreWorkBooks()DimfPathAsString‘路徑名DimfNameAsString‘文件名DimsNameAsString‘工作表名稱DimcellRangeAsString‘單元格范圍DimfNameCountAsInteger‘文件數(shù)目DimfNameList()AsString‘文件名列表DimrValueAsVariant‘某個(gè)單元格中的值DimjAsIntegerDimoldColAsInteger‘文件夾下表格的活動(dòng)單元格Dim

2、newColAsInteger‘新生成表格的活動(dòng)單元格j=1oldCol=11newCol=1fPath="C:DocumentsandSettingsUSERデスクトップcheck"sName="レビュー記録"fName=Dir(fPath&""&"*.xls")WhilefName<>""‘獲取該文件夾下所有表格的名字fNameCount=fNameCount+1ReDimPreservefNameList(1TofNameCount)fNameList(fNameCount)=fNamefName=DirWendW

3、orkbooks.AddIffNameCount=0ThenExitSubrValue=1Forj=1TofNameCountoldCol=11rValue=1WhilerValue<>0oldRange="A"&oldCol&":P"&oldColnewRange="B"&newCol&":R"&newColCells(newCol,1).Formula=fNameList(j)'MsgBox"fNameList:"&fNameList(j)IfrValue<>0ThenWithActiveSheet.Range(newRang

4、e).FormulaArray="='"&fPath&"["&fNameList(j)&"]"&sName&"'!"&oldRange.Value=.ValueEndWithEndIfoldCol=oldCol+1newCol=newCol+1rValue=ExecuteExcel4Macro("'"&fPath&"["&fNameList(j)&"]"&sName&"'!"&Range("a"&oldCol).Range("A1").Address(,,xlR1C1))WendNextjEndSub