VBA打开文件 并显示

在VBA（Visual Basic for Applications）中，你可以使用`OpenFileDialog`和`Workbook`对象来打开Excel文件并显示它。下面是一个简单的示例，展示了如何通过VBA宏实现这个功能：

Sub OpenAndDisplayFile()
    ' 创建一个对话框让用户选择文件
    Dim openFileDialog As FileDialog
    Set openFileDialog = Application.FileDialog(msoFileDialogOpen)
    
    ' 设置默认路径和文件类型过滤
    openFileDialog.InitialFileName = "C:\\" ' 可修改为你想要的默认路径
    openFileDialog.Filter = "Microsoft Excel (*.xlsx;*.xlsm)|*.xlsx;*.xlsm|All Files (*.*)|*.*"
    
    ' 如果用户选择了文件，则打开它
    If openFileDialog.Show = -1 Then
        ' 获取用户选择的文件名
        Dim filename As String
        filename = openFileDialog.SelectedItems(1)
        
        ' 打开工作簿
        Dim wb As Workbook
        Set wb = Workbooks.Open(filename)
        
        ' 显示打开的工作簿
        wb.Visible = True ' 如果你想让用户看到工作簿，这行会使其可见
        ' 或者你可以在这里添加其他操作，比如处理工作表、数据等
        
        ' 关闭对话框
        Set openFileDialog = Nothing
    End If
End Sub