vba文件夾的文件數

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

Ⅱ 如何利用VBA獲取文件夾里邊word文件個數

下面的代碼在我電腦上執行通過，希望對比編程有所借鑒：

OptionExplicit
SubYgB()
Dimn,f
n=0
f=Dir("d:我的文檔exp*.doc*")
Whilef<>""
n=n+1
f=Dir
Wend
MsgBox"總共有"&n&"個WORD文件"
EndSub

Ⅲ excel vba 代碼如何取得一個文件夾里有多少個excel文件， 就是計算一個文件夾里有幾個e

Sub tt()
Dim p$, f$, n%
p = ThisWorkbook.Path & "\" '換成你設定的路徑
f = Dir(p & "*.xls*")
If f <> "" Then
Do Until f = ""
n = n + 1
f = Dir
Loop
End If
MsgBox n
End Sub

Ⅳ excel表格用vba查詢指定文件夾里子文件夾數量

需要溝通才能理解你的意圖

Ⅳ Excel VBA 求一個文件夾內所有工作簿中工作表的個數

新建一個xlsm文件，復制如下代碼到這個文件中，F5執行代碼
就可彈出工作表數量（注意工作簿默認是xlsx格式）
Sub 魚木混豬()
Application.ScreenUpdating = False
f = Dir(ThisWorkbook.Path & "\*.xlsx")
Do While f <> ""
Workbooks.Open ThisWorkbook.Path & "\" & f
數量 = 數量 + ActiveWorkbook.Sheets.Count
ActiveWorkbook.Close
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox 數量
End Sub

Ⅵ 如何用vba依次打開本文件夾中所有文件 ，統計每個文件夾中的數據 ，並

Sub合()
DimrangeArray()AsString
DimbkAsWorkbook
DimshtAsWorksheet
DimwbCountAsInteger
wbCount=Workbooks.Count
ReDimrangeArray(1TowbCount-1)
ForEachbkInWorkbooks
IfNotbkIsThisWorkbookThen
Setsht=bk.Worksheets(1)
i=i+1
rangeArray(i)="'["&bk.Name&"]"&sht.Name&"'!"&_
sht.Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1)
EndIf
Next
Worksheets(1).Range("A1").ConsolidaterangeArray,xlSum,True,True'匯總多個工作薄的第一個工作表
Setsht=Nothing
EndSub

這是一個將當前工作薄中的所有除當前打開的工作薄的數據匯總到當前工作薄的代碼，供您參考。

您的各表中的數據結構不清楚，不好處理。這代碼也不是本人寫的。本人也是在此基礎上根據自己的需要另寫代碼處理自己的問題的。

希望能幫到您。

Ⅶ 在vba中如何計算txt文件的條數

Private Sub Form_Load()
Dim filetxt As String
filetxt = String(FileLen("文本文件"), " ")
Open "文本文件" For Binary As 1
Get #1, , filetxt
Close 1
Hx = Split(filetxt, vbCrLf)
Lines = UBound(Hx) '文本文件行數

Ⅷ vba 某路徑下有多少個子文件夾

Private MyDirectory() As String
Private n As Long

Sub MyMain()
Dim i As Integer
n = 0
'調用自定義遞歸過程
Call FindMyPath("C:\AAA\BBB\") '假設要搜索"C:\AAA\BBB\」里的所有子文件夾
'輸出所有子文件夾
For i = 1 To UBound(MyDirectory)
Debug.Print MyDirectory(i)
Next i
'輸出子文件夾總數
Debug.Print UBound(MyDirectory)
End Sub

'自定義遞歸過程
Private Sub FindMyPath(ByVal MyPath As String)
Dim MyDirCount As Long
Dim MyDirs() As String
Dim MyResult As String
Dim i As Long

MyDirCount = 0
If Right$(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
MyResult = Dir(MyPath, vbDirectory + vbSystem + vbReadOnly + vbHidden + vbNormal + vbArchive)
Do While Len(MyResult) > 0
DoEvents
If MyResult <> "." And MyResult <> ".." Then
If (GetAttr(MyPath & MyResult) And vbDirectory) = vbDirectory Then
n = n + 1
ReDim Preserve MyDirectory(n)
MyDirectory(n) = MyPath & MyResult
MyDirCount = MyDirCount + 1
ReDim Preserve MyDirs(MyDirCount)
MyDirs(MyDirCount) = MyPath & MyResult

End If
End If
MyResult = Dir(, vbDirectory + vbSystem + vbReadOnly + vbHidden + vbNormal + vbArchive)
Loop

For i = 1 To MyDirCount
Call FindMyPath(MyDirs(i))
Next i
End Sub

Ⅸ 利用VBA將文件夾中文件的內容快速匯總到一個工作簿中的代碼

第1個問題如果不在代碼裡面明確指定引用的sheet，就是默認的當前系統就是active sheet。
第2個問題，你的賦值語句的寫法不對。

Ⅹ excel vba 中如何取得目錄下文件的數量

FunctionFileCount(cPathAsString)asInteger
cFile=Dir(cPath&"*.*")
DoWhilecFile<>""
FileCount=FileCount+1
cFile=Dir
Loop
EndFunction

這是一段自定義函數，在Excel VBA編輯模式下，主菜單「插入」——「模塊」，將代碼粘貼到右側編輯區。如果在工作表狀態下使用，在單元格輸入：=FileCount("c:XXX")就可以得出c:XXX文件夾下的所有文件個數（不含子文件夾)；如果在代碼中使用，則可以：nFileCount=FileCount("c:XXX")得到文件個數。注意：cPath參數必須以「」符號結尾。