VBA在文件夾下的所有excel文件中查找相關數據。

其實是可以實現的。我給妳出個主意。首先，遍歷所有文件！這是可以做到的。我能給妳壹段代碼嗎？這個代碼我用來遍歷文件名，根據指定的目標查找所有文件！當然還有壹個控制我發不了！

私有子文件excel_Click()

Dim fd作為對象

Dim fso作為對象

Set fso = CreateObject("Scripting。文件系統對象”)

打開Excel內置的文件夾瀏覽框。

設置fd =應用程序。文件對話框(msoFileDialogFolderPicker)

如果fd。Show = -1然後

LookIn = fd。選擇編輯項目(1)

其他

MsgBox "您沒有選擇瀏覽目標文件夾！"，48，“系統提示”:退出短接

如果…就會結束

Sheet1。範圍(" A4:IV65536 ")。清楚的

申請。ScreenUpdating = False

暗淡我壹樣長

Dim strName作為字符串

Dim strNewNme作為字符串

Dim CaZao作為新文件Search.glFilesSearch

申請。顯示警報=假

用CaZao

。LookIn = fd。選擇編輯項目(1)

。FileType = FileType microsoftexcelworkbooks

。文件名= "*。xls* " '您可以在這裏打開任何類型的工作簿文件。

。SearchSubFolders = True

如果。execute()& gt；那麽0

for I = 1 To . found files . count

Sheet1。範圍(" A " & ampSheet1。[A65536]。結束(xlUp)。Row + 1) = i

Sheet1。範圍(" B " & ampSheet1。[A65536]。結束(xlUp)。添加錨點:=Sheet1。範圍(" B " & ampSheet1。[A65536]。結束(xlUp)。行)，地址:=。FoundFiles(i)，TextToDisplay:=。發現文件(I)

Sheet1。範圍(" c " & ampSheet1。[A65536]。結束(xlUp)。Row) = GetFileType(。發現文件(I))

Sheet1。範圍(" D " & ampSheet1。[A65536]。結束(xlUp)。Row) = FileLen(。發現文件(I))

Sheet1。範圍(" E " & ampSheet1。[A65536]。結束(xlUp)。Row) = FileDateTime(。發現文件(I))

接下來我

其他

MsgBox "您選擇的目錄中沒有Excel文件！"，vbQuestion，Title:= "系統信息"

如果…就會結束

以…結尾

設置CaZao = Nothing

範圍(“A:A，D:D”)。挑選

選擇。水平對齊= xlCenter

Sheet1。範圍(“A4”)。挑選

申請。ScreenUpdating = True

申請。顯示警報=真

末端接頭

然後，將這些表名的值相加，通過循環統計確定單元格！還有妳說的那種，找出壹排所有的表，思路有問題！而是這些表以行數據的形式存在，然後根據輸入的數據在後面顯示行的值！有機會我幫妳做！