VBA Excel 提示用户选择默认文件夹中的文件

VBA Excel是一种功能强大的编程语言，可以帮助我们自动化处理Excel文件中的各种任务。在实际应用中，有时我们需要让用户选择默认文件夹中的文件，并对这些文件进行操作。本文将介绍如何通过VBA Excel提示用户选择默认文件夹中的文件，并提供一个案例代码供参考。

vba
Sub SelectFiles()
    Dim fileNames As Variant
    
    fileNames = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "选择文件", , True)
    
    If Not IsArray(fileNames) Then
        MsgBox "未选择任何文件"
        Exit Sub
    End If
    
    ' 对选择的文件进行处理
    For i = LBound(fileNames) To UBound(fileNames)
        ' 在这里添加你需要的文件处理代码
        MsgBox fileNames(i)
    Next i
End Sub

vba
Sub SelectFiles()
    Dim fileNames As Variant
    
    fileNames = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "选择文件", , True)
    
    If Not IsArray(fileNames) Then
        MsgBox "未选择任何文件"
        Exit Sub
    End If
    
    ' 对选择的文件进行处理
    For i = LBound(fileNames) To UBound(fileNames)
        ' 在这里添加你需要的文件处理代码
        MsgBox fileNames(i)
    Next i
End Sub