Vba 将带有逗号的文本文件导入Excel

我有大量文件需要导入Excel。我发现，并部分修改了这段代码（我不记得在哪里，所以我不能相信），这段代码在90%以上的时间都有效

Sub Extractions()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.DisplayStatusBar = False

Dim FilesToOpen
Dim x As Integer

    On Error GoTo ErrHandler

    FilesToOpen = Application.GetOpenFilename _
      (fileFilter:="Microsoft Excel Files (*.*?), *.*?", MultiSelect:=True, Title:="Files to Import")

    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "No Files were selected"
        GoTo ExitHandler
    End If

    x = 1
    While x <= UBound(FilesToOpen)
        Workbooks.Open fileName:=FilesToOpen(x)
        Sheets().Move before:=ThisWorkbook.Sheets _
          (ThisWorkbook.Sheets.Count)
        x = x + 1
    Wend

ExitHandler:
    Application.ScreenUpdating = False
    Exit Sub

ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
    Resume

End Sub

Sub-Extractions（）
Application.ScreenUpdating=False
Application.DisplayAlerts=False
Application.DisplayStatusBar=False
暗文件打开
作为整数的Dim x
关于错误转到错误处理程序
FilesToOpen=Application.GetOpenFilename_
（文件筛选器：=“Microsoft Excel文件（*.*），**？”，多选：=True，标题：=“要导入的文件”）
如果TypeName（FilesToOpen）=“Boolean”，则
MsgBox“未选择任何文件”
去出口
如果结束
x=1
而在@R3uK的帮助下，答案是

，格式：=5

之后

Workbooks.Open文件名：=FilesToOpen（x）
，属性：格式和Delimiter@R3uK谢谢你的帮助。从链接（英文版，may the Francase n'est pas mal non plus），正确的代码是将
，格式：=5
放在
工作簿之后。打开文件名：=FilesToOpen（x）
很高兴我能帮忙，我对法文版不好，我甚至没有注意到。知道你可以发布并接受自己的答案，将你的问题标记为已解决！；）