Excel 使用宏导入多个Txt文件

我以前在这篇文章中问过这个问题：

过了一会儿，我创建了一个完整的新工作簿，当我尝试将此代码复制/粘贴到宏模块时，我得到一个编译错误：未定义用户定义类型….代码如下：

Sub ReadFilesIntoActiveSheet()
Dim fso As FileSystemObject
Dim folder As folder
Dim file As file
Dim FileText As TextStream
Dim TextLine As String
Dim Items() As String
Dim i As Long
Dim cl As Range
Dim sFolder As String, vDB, Ws As Worksheet
Dim rngT As Range
' Get a FileSystem object
  Set fso = New FileSystemObject

' get the directory you want

sFolder = "C:\Users\danial.smith\Documents\Maintenance\DataDump\Reports\RawData\"
Set folder = fso.GetFolder(sFolder)
' set the starting point to write the data to
Set Ws = ActiveSheet
'Set cl = ActiveSheet.Cells(1, 1)

' Loop thru all files in the folder
For Each file In folder.Files
    Workbooks.Open Filename:=sFolder & file.Name, Format:=1
    With ActiveWorkbook.ActiveSheet
        vDB = .UsedRange.Offset(1)
    End With
    ActiveWorkbook.Close
    Set rngT = Ws.Range("a" & Rows.Count).End(xlUp)(2)
    rngT.Resize(UBound(vDB, 1), UBound(vDB, 2)) = vDB
Next file
Set FileText = Nothing
Set file = Nothing
Set folder = Nothing
Set fso = Nothing

End Sub

---

我已尝试按照一些人的建议包括Microsoft ActiveX数据对象库，但仍然没有成功…不确定要做什么…

FileSystemObject需要引用Microsoft脚本运行时库

---

查看上一个工作簿中的引用。

Pro提示，VBE将突出显示缺少的类型…||在这里找到了答案！