VBScript将文本文件的内容复制到现有的Excel表中

Question

我正在尝试使用VBScript打开，读取文本文件的内容并将其复制到excel中的预先存在的表中。够容易吧？我刚刚开始学习VB（上周），似乎无法真正做到正确。这是我到目前为止所做的。

Option Explicit

Dim objFileToRead
Dim objFSO
Dim objFileToWrite
Dim strFileText
Dim strFileCopy

Dim xl
Dim xlBook
Dim xlObject
Dim PasteCell

Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("Path",1)

    strFileText = objFileToRead.ReadAll()
    objFileToRead.Close

Set xl = CreateObject("Excel.application")
Set xlBook = xl.Workbooks.Open("Path")
Set xlObject = xl.ActiveWorkbook.Worksheets(1)
Set PasteCell = xlObject.Range("Table1[RequestId]")

    xl.Application.Visible = True
    xl.DisplayAlerts = False

    PasteCell.Value = strFileText

因此，文件被读取，但完全放入第一个单元格。那么，我的想法是否正确，我需要逐行阅读文本文件？或者还有另一种方法可以做到这一点。由于文本以制表符分隔约7列，我还需要考虑到这一点。还有另一种更简单的方法吗？谢谢。