將帶逗號的文本文件導入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)