如何检查文件类型和在文件夹VBA中打开/保存文件

Dim fso As Object
Dim filePath As String
Dim fileExt As String

Set fso = CreateObject("Scripting.FileSystemObject")
filePath = "C:\path\to\file.txt"

fileExt = fso.GetExtensionName(filePath)

If fileExt = "txt" Then
    MsgBox "文件类型为文本文件"
ElseIf fileExt = "xlsx" Then
    MsgBox "文件类型为Excel文件"
Else
    MsgBox "未知文件类型"
End If

Dim fileDialog As Object
Dim filePath As String

Set fileDialog = Application.FileDialog(3) ' 3表示文件夹选择对话框

With fileDialog
    .Title = "选择文件夹"
    .AllowMultiSelect = False ' 是否允许选择多个文件夹
    If .Show = -1 Then ' 用户点击了“打开”按钮
        filePath = .SelectedItems(1)
        MsgBox "选择的文件夹路径为：" & filePath
    Else ' 用户点击了“取消”按钮
        MsgBox "未选择文件夹"
    End If
End With