用逗号将文本文件导入到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 

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

当我正常导入文件时，不会发生逗号问题，文件将导入第一列，这是它需要的位置。

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

Answer 1

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

, Format:= 5

后

Workbooks.Open fileName:=FilesToOpen(x)