Excel_VBA实现：弹出对话框进行打开另存（附FileDialog 属性）

?????????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)

本文内容

1. 语法
2. 参数
3. 备注
4. 示例

返回一个?FileDialog?对象，它表示文件对话框的实例。

语法

expression.FileDialog?(fileDialogType)

expression：表示?Application?对象的变量。

参数

展开表

备注

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

?