生成VBA代码，批量抓取文件夹下所有文件的名称

您可以使用以下的VBA代码来批量抓取文件夹下所有文件的名称：

Sub GetFileNames()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\TestFolder\") '指定文件夹路径
i = 1
For Each objFile In objFolder.Files
Worksheets("Sheet1").Cells(i, 1) = objFile.Name '将文件名写入到Sheet1的第i行第1列
i = i + 1
Next objFile
End Sub

您需要将代码中的文件夹路径修改为您要批量抓取文件的文件夹路径，并将文件名写入到您想要写入的工作表中。

相关问题

生成VBA代码，批量抓取文件夹下所有excel文档下，工作表名为“资产负债表”下，A2单元格的数据

你好，很高兴为您解答问题。

生成VBA代码，批量抓取文件夹下所有excel文档下，工作表名为“资产负债表”下，A2单元格的数据，可以按照以下步骤操作：

1. 在Excel中打开Visual Basic编辑器（VBE），按Alt+F11键打开VBE；

2. 在VBE中，选择“插入”菜单，选择“模块”进行代码的编写；

3. 编写以下代码：

Sub readexcel()

Dim filename As String
Dim foldername As String
Dim wb As Workbook
Dim ws As Worksheet
Dim dir As String
Dim i As Integer

dir = Application.ActiveWorkbook.Path & "\"

foldername = Application.FileDialog(msoFileDialogFolderPicker).Show
If foldername <> 0 Then

filename = Dir(foldername & "\*.xls*")

Do While filename <> ""

Set wb = Workbooks.Open(foldername & "\" & filename)
For Each ws In wb.Worksheets
If ws.Name = "资产负债表" Then
ws.Activate
Range("A2").Select
MsgBox ActiveCell.Value
End If
Next ws
Workbooks(filename).Close
filename = Dir
Loop

End If

End Sub

4. 点击“运行”按钮或按下F5键运行代码，即可批量抓取文件夹下所有Excel文档下，工作表名为“资产负债表”下，A2单元格的数据。