查看文件夾內excel行數

『壹』 excel如何統計一個文件夾多個excel里的內容

• 1

  新建一個空白的Excel文件，點擊數據工具欄，依次選擇「新建查詢」-「從文件」-「從文件夾」。

  

『貳』 VBA查找文件夾下所有excel文件中的相關數據

事實上可以實現的,我給你一個思路,一是遍歷所有文件!這是可以辦到的,給你一段代碼?這個代碼我用來遍歷文件名稱的,根據指定目標找出所有文件!當然還有一個控制項我發不上來!
Private Sub filesexcel_Click()
Dim fd As Object
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
'開啟Excel內建的資料夾瀏覽方塊
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then
LookIn = fd.SelectedItems(1)
Else
MsgBox "您未選擇瀏覽目標文件夾!", 48, "系統提示": Exit Sub
End If
Sheet1.Range("A4:IV65536").Clear
Application.ScreenUpdating = False
Dim i As Long
Dim strName As String
Dim strNewNme As String
Dim CaZao As New FilesSearch.glFilesSearch
Application.DisplayAlerts = False
With CaZao
.LookIn = fd.SelectedItems(1)
.FileType =
'.Filename = "*.xls*" '這里可以打開任何類型的工作簿文件
.SearchSubFolders = True

If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Sheet1.Range("A" & Sheet1.[A65536].End(xlUp).Row + 1) = i
Sheet1.Range("B" & Sheet1.[A65536].End(xlUp).Row).Hyperlinks.Add Anchor:=Sheet1.Range("B" & Sheet1.[A65536].End(xlUp).Row), Address:=.FoundFiles(i), TextToDisplay:=.FoundFiles(i)
Sheet1.Range("c" & Sheet1.[A65536].End(xlUp).Row) = GetFileType(.FoundFiles(i))
Sheet1.Range("D" & Sheet1.[A65536].End(xlUp).Row) = FileLen(.FoundFiles(i))
Sheet1.Range("E" & Sheet1.[A65536].End(xlUp).Row) = FileDateTime(.FoundFiles(i))
Next i
Else
MsgBox "您選擇的目錄沒有Excel文件!", vbQuestion, Title:="系統信息"
End If
End With

Set CaZao = Nothing
Range("A:A,D:D").Select
Selection.HorizontalAlignment = xlCenter
Sheet1.Range("A4").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub
然後,再增加用循環統計這些表名稱旨定單元格的值就行了!而你說的那種,把所有表的某一行找出來,思路是有問題的!而是這些表以行數據的形式存在,然後根據輸入的數據在後面顯示行的值!有機會我幫做做哦!