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
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 ...
1).Value' 旧文件名NewFileName=SourceFolder&ws.Cells(i,2).Value&".mp4"' 新文件名' 检查文件...
) 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 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 "未选择文件夹,将退出" ...
'打开对话框,选择,取得文件夹路径,返回string Function SelectGetFolder() '选择单一文件 With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path If .Show = -1 Then 'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。 ' 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编写一个宏来批量提取文件名到Excel表格。首先,打开Excel表格并按下“Alt+F11”快捷键打开VBA编辑器。然后,在新建的模块中编写以下代码: Sub ExtractFileNames() Dim folderPath As String, fileName As String Dim rowIndex As Long folderPath = "你的文件夹路径" ...
其中FileName是必选的参数,表示要打开的工作簿名,如果没有指定路径,则代表当前路径。另外14个是可选参数,除了密码参数,其他的一般很少用。具体的含义可以参看VBA的帮助。 例: Workbooks.Open "F:\test.xls" 可以打开F盘的test.xls文件。 2、打开文本文件 ...