excel_vba可实现弹窗进行人机交互，本案例实现弹窗选择需要打开的excel文件，选择文件后打开该文件，然后弹窗提示该文件另存为路径及目录，代码如下：
Sub 打开文件对话框()
On Error Resume Next
With Application.FileDialog(msoFileDialogOpen)
.Title = "请选择你要的文件"
.AllowMultiSelect = True
.InitialFileName = "C:\Users\Administrator\Desktop\"
.Filters.Clear
.Filters.Add "excel files", "*.xls,*.xlsx,*.dwg"
If .Show = True Then
Set gof = .SelectedItems
.Execute
Else: Exit Sub
End If
End With
ActiveSheet.Cells(11, 5).Value = gof.Item(1)
MsgBox "另存为"
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "另存为"
.AllowMultiSelect = True
.InitialFileName = "C:\Users\Administrator\Desktop\"
If .Show = True Then
Set gof = .SelectedItems
.Execute
Else: Exit Sub
End If
End With
'ActiveWorkbook.Close
End Sub
Application.FileDialog 属性 (Excel)
本文内容
返回一个 FileDialog 对象，它表示文件对话框的实例。
语法
expression .FileDialog (fileDialogType)
expression ：表示 Application 对象的变量。
参数
展开表
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| fileDialogType | 必需 | MsoFileDialogType | 文件对话框的类型。 |
备注
MsoFileDialogType 可为下述常量之一：
- msoFileDialogFilePicker。 允许用户选择文件。
- msoFileDialogFolderPicker。 允许用户选择文件夹。
- msoFileDialogOpen。 允许用户打开文件。
- msoFileDialogSaveAs。 允许用户保存文件。
示例
在此示例中，Microsoft Excel 打开文件对话框，允许用户选择一个或多个文件。 选择这些文件后，Excel 会在单独的消息中显示每个文件的路径。
VB复制
Sub UseFileDialogOpen()
Dim lngCount As Long
' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
MsgBox .SelectedItems(lngCount)
Next lngCount
End With
End Sub