从多个txt文档导入excel

Sub 读取数据()
   Dim fd As FileDialog
   Set fd = Application.FileDialog(msoFileDialogFilePicker)
   Dim NewWB As Workbook
   Set NewWB = Workbooks.Add
   NewWB.Application.ActiveWindow.Caption = "临时数据.xls"
   With fd
      .Filters.Clear
      .Filters.Add "文本文件", "*.txt", 1
      .Filters.Add "所有文件", "*.*", 2
      .Title = " 请选择要合并的txt文件 "
      If .Show = -1 Then
         Application.ScreenUpdating = False
         Dim vrtSelectedItem As Variant
         Dim j As Integer
         Dim iLineCount As Long
         
         j = 1
         iLineCount = 1
         Application.DisplayAlerts = False
         For Each vrtSelectedItem In .SelectedItems
            Dim TempWB As Workbook
            Set TempWB = Workbooks.Open(vrtSelectedItem, , , 2)    ；设置导入分隔符：2代表逗号
            j = j + 2
            TempWB.Sheets(1).Range("d:d").Copy
            NewWB.Sheets(1).Paste NewWB.Sheets(1).Columns(j)
            NewWB.Sheets(1).Columns.AutoFit                                    ；列宽自适应
            TempWB.Close False
            
         Next
      Else
         NewWB.Close False
         Exit Sub
      End If
   End With
  

End Sub

Workbooks 对象的 Open 方法参数说明

打开一个工作簿。

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable,Notify, Converter, AddToMru, Local, CorruptLoad)

expression      必选。该表达式返回一个 Workbooks 对象。

FileName      String 类型，必需。要打开的工作簿的文件名。

UpdateLinks      Variant 类型，可选。指定文件中链接的更新方式。如果省略本参数，则提示用户选择链接的更新方式。否则，该参数的取值应为下表中的某个值。

值	含义
0	不更新任何引用。
1	更新外部引用，但不更新远程引用。
2	更新远程引用，但不更新外部引用。
3	同时更新远程引用和外部引用。

如果 Microsoft Excel 正在打开以 WKS、WK1 或 WK3 格式存储的文件并且 UpdateLinks 参数为 2，则 Microsoft Excel 根据与该文件关联的图形创建图表。如果该参数为 0，则不创建任何图表。

ReadOnly      Variant 类型，可选。如果该值为 True，则以只读模式打开工作簿。

Format      Variant 类型，可选。如果 Microsoft Excel 正在打开一个文本文件，则该参数用于指定分隔字符，如下表所示。如果省略本参数，则使用当前的分隔符。

值	分隔符
1	制表符
2	逗号
3	空格
4	分号
5	没有分隔符
6	自定义字符（请参阅 Delimiter 参数）