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

Question

我有大量的文件需要导入到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

我导入的大多数文件都可以，因为它们是.csv，.txt。 或.xlsx文件。 但是，许多.csv和.txt文件在不同的行中包含逗号。 当我导入它们时，它们将行分成两部分，这会导致宏后面的部分出现问题。

当我正常导入文件时，不会出现逗号的问题，并且文件会导入到第一列，也就是它所在的位置。

有什么方法可以修改上面的代码，以将文件简单地导入第一列，而忽略逗号？

Answer 1

所以答案是在@ R3uK的帮助下

, Format:= 5

后

Workbooks.Open fileName:=FilesToOpen(x)