1. 打开Excel并创建新宏 打开Excel，按下 Alt + F11 键打开VBA编辑器。在“项目-工程”窗口中，右击你的工作簿名称，选择“插入” -> “模块”。在打开的模块窗口中，复制并粘贴以下代码：vba Sub ListFilesInFolder() Dim folderPath As String Dim fileName As String Dim i As Integer Dim ...
Dim objshell As Object Dim objFolder As Object 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 "未选...
folderPath = mc ' 修改为实际的目标文件夹路径 If Not fso.FolderExists(folderPath) Then ' 检查文件夹是否存在 fso.CreateFolder folderPath ' 创建文件夹 ' Else ' MsgBox "文件夹已存在!" End If Set fso = Nothing End Sub Function DeleteExcelFileUsingFSO(filePath As String) Dim fso As Object Di...
SetFolderPath用来将不是\结尾的路径后面加上\ Function SetFolderPath(ByVal path As String) As String If Right(path, 1) <> "\" Then SetFolderPath = path & "\" Else SetFolderPath = path End If End Function
代码语言:javascript 复制 folderPath = "C:\Users\YourName\Documents\MyFolder\" 注意:确保路径以反斜杠 \ 结尾。 步骤4:运行宏 关闭VBA 编辑器,返回 Excel。 按下ALT + F8 键,打开宏对话框。 选择ListFilesInFolder 宏,然后点击 运行。 结果 运行宏后,指定文件夹中的所有文件名将会按顺序列出在当前活...
输入以下VBA代码：Sub 创建文件夹()Dim folderNames() As String Dim parentFolder As String Dim folderPath As String Dim i As Integer ' 指定要创建的文件夹名称，可根据需求添加或修改 folderNames = Split("1月,2月,3月", ",")parentFolder = "E:\桌面\" ' 替换你想要创建文件夹的路径 ' 循环...
输入以下VBA代码: Sub 创建文件夹() Dim folderNames() As String Dim parentFolder As String Dim folderPath As String Dim i As Integer ' 指定要创建的文件夹名称,可根据需求添加或修改 folderNames = Split("1月,2月,3月", ",") parentFolder = "E:\桌面\" ' 替换你想要创建文件夹的路径 ...
) 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...
Workbooks.Open fl.Path '打开文件 statements'处理代码 Workbooks(fl.Name).Close Savechanges:=True '关闭文件 End If Next End Sub 而后又发现Excel VBA内置的Dir()函数同样也可以,实现如下: Sub main() Dim nm As String nm = Dir(folderpath& "*.xls*") 'folderpath指文件夹路径,string型,实践中自行...
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 ...