打开时有会弹出这样的窗口: 打开Excel文件VBA代码: 设置打开某类文件,参照下面规则:“文件类型说明文字,*文件类型”: SubOpenExcel()DimstrFileNameAsStringstrFileName= Application.GetOpenFilename("Excel 工作簿(*.xlsx),*.xlsx,Excel 启用宏的工作簿(*.xlsm),*.xlsm,Excel 97-2003 工作簿 (*.xls),*.x...
按下Alt + F11打开VBA编辑器。 在“插入”菜单中选择“模块”,在打开的代码窗口中粘贴上述代码。 按下F5运行代码,或者关闭VBA编辑器回到Excel,然后通过“开发者”选项卡中的“宏”按钮选择并运行GetExcelFileName宏。这样,你就可以看到弹出的消息框显示当前Excel文件的名称了。
Sub testGetOpenFilename() Dim FileToOpen As Variant FileToOpen = Application.GetOpenFilename("文本文件(*.txt),*.txt") If FileToOpen <> False Then MsgBox "想要打开文件: " & FileToOpen End If End Sub 运行代码后的效果如图...
Sub mytest_GetOpenFilename() fileToOpen = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "打开文件", , True) 'MsgBox TypeName(fileToOpen) If TypeName(fileToOpen) = "Boolean" Then MsgBox "你选择了“取消”,将要退出程序": Exit Sub For Each rr In fileToOpen MsgBox ...
Debug.Print fso.GetFileName("c:\abc\test.txt") '立即窗口显示"test.txt" 8、GetFolder 方法 语法:object.GetFolder(folderspec) 作用:返回一个和指定路径中文件夹相对应的 Folder 对象。 示例: Dim fd Set fd = fso.GetFolder("c:\windows") '变量f就代表了文件夹windows对象 ...
在Excel VBA中设置GetOpenFilename的参数。工具/原料 ThinkPad Windows 10 2019 Excel 笔记本电脑 方法/步骤 1 FileFilter:限定文件类型,例如此处只设置可选Excel类型的文件。2 执行之后,在可选文件类型就只有设置好的类型。3 FilterIndex:设置的限定文件类型的默认值,如上图中,默认为类型1,当我们设置Filter...
Excel VBA中的GetOpenFilename方法详解 GetOpenFilename方法: 显示标准的“打开”对话框,获取用户文件名,而不必真正打开任何文件。 expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect) expression必需。该表达式返回一个Application对象。 FileFilterVariant类型,可选。一个指定文件筛选...
Call getfilename(fs_folder) With ThisWorkbook.Worksheets("名称列表") .Columns(1).AutoFit .Columns(2).AutoFit .Activate End With End Sub Sub getfilename(fso) With Worksheets("名称列表") .UsedRange.ClearContents Dim addrow '--- .Cells(1, 1) = "完整路径" .Cells(1, 2) = "文件名" add...
在Excel VBA中,如果需要Excel获取指定路径的文件名以方便用户的操作体验,可通过VBAExcel获取指定路径的文件名。Excel2003可通过VBA宏Excel获取指定路径的文件名。 Excel获取指定路径的文件名的方法: 首先按“Alt+F11”组合键,Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入...