1. 打开Excel并创建新宏 打开Excel，按下 Alt + F11 键打开VBA编辑器。在“项目-工程”窗口中，右击你的工作簿名称，选择“插入” -> “模块”。在打开的模块窗口中，复制并粘贴以下代码：vba Sub ListFilesInFolder() Dim folderPath As String Dim fileName As String Dim i As Integer Dim ...
Function SetFolderPath(ByVal path As String) As String If Right(path, 1) <> "\" Then SetFolderPath = path & "\" Else SetFolderPath = path End If End Function
1).Value' 旧文件名NewFileName=SourceFolder&ws.Cells(i,2).Value&".mp4"' 新文件名' 检查文件...
代码语言:javascript 复制 folderPath = "C:\Users\YourName\Documents\MyFolder\" 注意:确保路径以反斜杠 \ 结尾。 步骤4:运行宏 关闭VBA 编辑器,返回 Excel。 按下ALT + F8 键,打开宏对话框。 选择ListFilesInFolder 宏,然后点击 运行。 结果 运行宏后,指定文件夹中的所有文件名将会按顺序列出在当前活...
) Set folder = fileSystem.GetFolder(folderPath) ' 遍历文件夹下的.xlsb文件 For Each file In folder.Files If LCase(Right(file.Name, 5)) = ".xlsb" Then ' 仅处理.xlsb文件 ' 打开文件 Set wb = Workbooks.Open(file.Path) ' 遍历每个工作表 For Each ws In wb.Worksh...
Set fso = CreateObject("Scripting.FileSystemObject") Dim folderPath As String folderPath = mc ' 修改为实际的目标文件夹路径 If Not fso.FolderExists(folderPath) Then ' 检查文件夹是否存在 fso.CreateFolder folderPath ' 创建文件夹 ' Else ' MsgBox "文件夹已存在!" End If Set fso = Nothing End ...
Set objshell = CreateObject("Shell.Application") '后期绑定Shell.Application '弹出对话框 Set objFolder = objshell.BrowseForFolder(0, "请选择文件夹", 0, 0) If Not objFolder Is Nothing Then Path = objFolder.Self.Path & "\" Else MsgBox "未选择文件夹,将退出" ...
Function ListFiles(ByVal folderPath As String, ByRef counter As Integer) '自定义函数-取得文件夹下的文件名,包括子文件夹 On Error GoTo ErrorHandler '出现错误处理 Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") Dim folder As Object ...
vba Sub ListFilesInFolders() Dim folderPath As String Dim ws As Worksheet Dim lastRow As Long Dim filePath As String ' 设置要遍历的文件夹路径 folderPath = "C:\Your\Folder\Path\" ' 请将此路径替换为你的实际路径 ' 设置输出工作表 Set ws = ThisWorkbook.Sheets("Sheet1") ' 请确保你的工作...
可以使用VBA编写一个宏来批量提取文件名到Excel表格。首先,打开Excel表格并按下“Alt+F11”快捷键打开VBA编辑器。然后,在新建的模块中编写以下代码: Sub ExtractFileNames() Dim folderPath As String, fileName As String Dim rowIndex As Long folderPath = "你的文件夹路径" ...