I recorded the macro below to open data from a text file, but I need to be able to select a different filename every time it runs. How can I add a file selection dialog to the following code that will allow me to select something other than the file 0125-FEA-I-S_reduced_input.txt?
Sub SelectMultipleFileTypes() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "请选择一个Excel文件" .Filters.Clear ' 清除现有过滤器 .Filters.Add "Excel文件", "*.xlsx;*.xls" ' 添加新的过滤器 .AllowMultiSelect = False ' 不允许多选 If .Show ...
Workbook Codes 17 根据对话框选择打开文件Workbook Open File Dialog Sub mynzvba_open_dialog() Dim strFile As String strFile = Application.GetOpenFilename() Workbooks.Open (strFile) End Sub 本节内容参考程序文件:Chapter03-2.xlsm 18 检查工作簿文件是否打开Check if a Workbook is Open Sub mynzvba...
您可以使用InitialFileName属性来设置默认路径和文件名。例如,下面的示例代码将默认路径设置为用户桌面上的“测试”文件夹: Sub SelectFileIniPath() Dim fd As FileDialog Setfd = Application.FileDialog(msoFileDialogOpen) fd.AllowMultiSelect = False fd.Title = "请选择要打开的文件" fd.Filters.Clear fd.Filte...
下面是选择文档的页面设置代码：Sub glkSelectDocPageSetup()Dim glkFileDialog As FileDialog '定义选择文件对话框Dim glkSelectedItem As Variant '定义变量Dim glkDoc As Document '定义文档Set glkFileDialog = Application.FileDialog(msoFileDialogFilePicker) '设置变量With glkFileDialog '...
.Filters.Add "All File", "*.*", 1 '增加规则到第一位 If .Show Then '显示文件选择对话框 .ButtonName = "Select Me" Set ipath = .SelectedItems '获取选择项,无论是否选择一项还是多项,返回的选项都是多项 End If End With If IsEmpty(ipath) Then Exit Sub '如果按取消键,退出 ...
62 xlDialogFormatMove 128 “设置移动格式”对话框 63 xlDialogFormatSize 129 “设置大小”对话框 64 xlDialogFormulaReplace 130 “替换公式”对话框 65 xlDialogSelectSpecial 132 “特殊选定”对话框 66 xlDialogApplyNames 133 “应用名称”对话框 67 xlDialogReplaceFont 134 “替换字体”对话框 68 xlDialog...
Application.Dialogs(XlBuiltInDialog.xlDialogSaveAs).Show Application.Dialogs(5).Show 如下图2所示。 图2 我们可以使用对话框中的所有功能,使用内置对话框可以节省大量编程工作。 在VBA对象浏览器中,我们可以找到所有的内置对话框列表。打开VBE,按F2键打开对象浏览器,在...
1.本节课我们进行讲解File Dialog 有个性地打开文件,点击打开文件可以出现打开文件对话框。 2.按住ctrl可以进行多选文件,然后点击打开即可。 3.打开VBA进行编辑代码,编辑内容如图所示。 4.然后点击按钮进行试验,多选表格点击打开。 5.本节课的几个重点内容部分如图所示。
Application.Dialogs(XlBuiltInDialog.xlDialogSaveAs).Show Application.Dialogs(5).Show 如下图2所示。 图2 我们可以使用对话框中的所有功能,使用内置对话框可以节省大量编程工作。 在VBA对象浏览器中,我们可以找到所有的内置对话框列表。打开VBE,按F2键打开对象浏览器,在顶部的下拉列表框中选择“Excel”,搜索“Xl...