vb 查找一个文件夹内所有CSV文件，按照索引值打开

可以使用以下代码实现：

Sub OpenCSVFiles()
    Dim FolderPath As String
    Dim FileName As String
    Dim CSVFile As String
    
    FolderPath = "C:\Example\Folder\"  ' 文件夹路径
    FileName = Dir(FolderPath & "*.csv") ' 查找第一个csv文件
    
    Do While FileName <> "" ' 循环查找csv文件
        CSVFile = FolderPath & FileName ' csv文件的完整路径
        Workbooks.Open Filename:=CSVFile ' 打开csv文件
        Range("A1").Select ' 选中第一个单元格
        ActiveWindow.FreezePanes = True ' 冻结窗格
        FileName = Dir ' 查找下一个csv文件
    Loop
End Sub

这段代码会打开文件夹内所有的CSV文件，并且在每个文件中选中第一个单元格并冻结窗格。你可以根据需要进行修改。