Excel使用Vba讀取文件夾下所有文件

最近使用VBA編程，要用到一個(gè)功能，使得Excel能夠讀取指定文件夾下的所有文件名稱。使用的是Excel2010版本，但是在Excel2003版本中能夠使用的FileSearch在Excel2010版中會(huì)出錯(cuò)，因此不得不另找其它方法，下面介紹三種方法，在Excel單元格中顯示特定目錄下的文件名稱（文件大小，日期時(shí)間等），也可以自行修改符合自己的使用要求。在Excel2010和Excel2003版本中均測(cè)試過(guò)可行。我工作中使用繁體，第三種方法使用的是繁體，所以在簡(jiǎn)體系統(tǒng)下會(huì)亂碼，這個(gè)不會(huì)妨礙程序運(yùn)行，gongxi1是我設(shè)置的一個(gè)窗體，可忽略。第三種不僅僅能導(dǎo)入特定文件下的所有文件，也可以導(dǎo)入文件夾下的文件夾文件。第一種：Subtestit()DimkAsVariantDimmAsVariantm=1

myvar=FileList("C:\Users\ownding\SkyDrive\文檔\工作事項(xiàng)")

Fori=LBound(myvar)ToUBound(myvar)

Debug.Printmyvar(i)

Next

ForEachkInmyvar

Sheets("sheet1").Cells(m,1)=k

m=m+1

Nextk

EndSubFunctionFileList(fldrAsString,OptionalfltrAsString="*.*")AsVariant

DimsTempAsString,sHldrAsString

IfRight$(fldr,1)<>""Thenfldr=fldr&""

sTemp=Dir(fldr&fltr)

IfsTemp=""Then

FileList=Split("Nofilesfound","|")'確保返回?cái)?shù)組

ExitFunction

EndIf

Do

sHldr=Dir

IfsHldr=""ThenExitDo

sTemp=sTemp&"|"&sHldr

Loop

FileList=Split(sTemp,"|")EndFunction-----------------------------------------------------------------------------第二種：OptionExplicitSubListFiles()

DimDirectoryAsString

DimrAsLong

DimfAsString

DimFileSizeAsDouble

WithApplication.FileDialog(msoFileDialogFolderPicker)

.InitialFileName=Application.DefaultFilePath&""

.Title="Selectalocationcontainingthefilesyouwanttolist."

.Show

If.SelectedItems.Count=0Then

ExitSub

Else

Directory=.SelectedItems(1)&""

EndIf

EndWith

r=1'

插入表頭

Cells.ClearContents

Cells(r,1)="Filesin"&Directory

Cells(r,2)="Size"

Cells(r,3)="Date/Time"

Range("A1:C1").Font.Bold=True

'

獲得第一個(gè)文件

f=Dir(Directory,vbReadOnly+vbHidden+vbSystem)

DoWhilef<>""

r=r+1

Cells(r,1)=f

DoWhileLen(Filename)<>0

IfLeft(Filename,1)<>"."Then'諷玡dir

PathAndName=CurrDir&Filename

If(GetAttr(PathAndName)AndvbDirectory)=vbDirectoryThen

'纗т隔畖

ReDimPreserveDirs(0ToNumDirs)AsString

Dirs(NumDirs)=PathAndName

NumDirs=NumDirs+1

Else

'盢隔畖㎝嘿糶

Cells(WorksheetFunction.CountA(Range("A:A"))+2,1)=CurrDir

Cells(WorksheetFunction.CountA(Range("B:B"))+2,2)=Filename

'秸俱ゅン

Filesize=FileLen(PathAndName)

IfFilesize<0ThenFilesize=Filesize+4294967296#

Cells(WorksheetFunction.CountA(Range("C:C"))+2,3)=Filesize

Cells(WorksheetFunction.CountA(Range("D:D"))+2,4)=FileDateTime(PathAndName)