'打开对话框,选择,取得文件夹路径,返回string Function SelectGetFolder() '选择单一文件 With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path If .Show = -1 Then 'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。 ' MsgBox ...
1 新建EXCEL工作薄，同时按下组合键ALT+F11调出VBA开发编辑器；2 点击“工具-引用(R)”；3 勾选“Microsoft Scripting Runtime”,点击确定；4 在左侧工程窗口中单击右键，点击“插入-模块”；5 在模块1中输入如图代码：Sub FindAllFiles(sFolder As Folder) Dim f As File Dim oFld As Fo...
.Title = "Select a Folder" .AllowMultiSelect = False .InitialFileName = ThisWorkBook.Path & "\" If .Show <> -1 Then GoTo CancelFolderSelection sFolderPathForSave = .SelectedItems(1) End With Set dlgSaveFolder = Nothing ''' 'File saving code goes here. ...
.SubFolders '每一个母文件夹下的子文件夹 Call get_folder_file(Folder.Path) Next Set Fso = Nothing End Function Sub 筛选路径() ’将上一步读取好的所有路径和文件名,筛选自己所需要的 ThisWorkbook.Sheets("sheet1").Select ’这三行是筛选出文件名是带有"_DD_"的及后缀是".csv"的 Cells.Select ...
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提供了多种选择单元格区域的方法,灵活运用可以提高代码效率: ' 选择A1单元格所在的连续区域 Range("A1").CurrentRegion.Select ' 选择指定区域:A1到B10 Range("A1:B10").Select ' 使用Cells选择区域(行列动态) Range(Cells(1, 1), Cells(10, 2)).Select ' 偏移选择:从A1偏移到B2 Range("A1").Offset...
其中FileName是必选的参数,表示要打开的工作簿名,如果没有指定路径,则代表当前路径。另外14个是可选参数,除了密码参数,其他的一般很少用。具体的含义可以参看VBA的帮助。 例: Workbooks.Open "F:\test.xls" 可以打开F盘的test.xls文件。 2、打开文本文件 ...
Range("1:4").Select ' 选择第1到4行 Range("A:C").Select ' 选择A到C列 Range("A:C").EntireColumn.Insert ' 在第1列左边插入三列空白列 使用Cells(row, column)(其中 row 是行号,column 是列标)可返回一个单元格。当工作表激活以后,使用 Cells 属性时不必明确声明工作表(它将返回活动工作表上的...
If.Show Then'显示文件选择对话框.ButtonName="Select Me"Set ipath=.SelectedItems'获取选择项,无论是否选择一项还是多项,返回的选项都是多项 End If End With IfIsEmpty(ipath)Then Exit Sub'如果按取消键,退出 ipath=ipath(1)'获取第一项选择 ...
#002 Range("A1:B2,D1:F3").Select '不连续区域选择 #003 Range(Cells(1, 1), Cells(9, 4)).Select '选择A1:D9区域 #004 Range("A1:D9").Select '选择A1:D9区域 #005 Range("A1").CurrentRegion.Select 'CurrentRegion属性选择 #006 ActiveSheet.UsedRange.Se...