excel：将文本文件中的文本导入电子表格的下一个可用行？

Question

我正在使用以下 VBA 代码将我的文本文件中的文本导入 excel 中的列该行之前的任何文本。我需要一种方法让代码将文本插入电子表格的下一个可用行吗？

这是我的代码：

    Sub ImportFile()
    Close #1
    Open "Y:\Incident Logs\INSC89JH.txt" For Input As #1
    A = 1
     Do While Not EOF(1)
            Line Input #1, TextLine
            Cells(A) = TextLine
            A = A + 1
        Loop
    Close #1
End Sub

有人可以告诉我哪里出错了吗？谢谢

Answer 1

尝试改变 Cells(A) = TextLine

至 Range("A" & A).Value = TextLine

这应该可以将包含新行的文本文件放入每个循环的新行中

编辑。忽略我回答的顶部部分。如果有人觉得它有用，请留下它。

您需要进行检查以查看使用的范围。

试试这个

Sub ImportFile()

    Dim rowCount As Long

    rowCount = ActiveSheet.UsedRange.Rows.Count + 1

    If Cells(1, 1).Value = "" Then rowCount = 1


    Close #1
    Open "Y:\Incident Logs\INSC89JH.txt" For Input As #1
    A = 1
     Do While Not EOF(1)
            Line Input #1, TextLine
            Cells(rowCount, A) = TextLine
            A = A + 1
        Loop
    Close #1
End Sub

Answer 2

改变

Cells(A) = TextLine

到

Cells(A, 1) = TextLine

其中 Cells(A, 1) 中的 1 代表要插入文本的列（在本例中为 A 列）的编号。因此，如果您希望它出现在 C 列中，请将其更改为 Cells(A, 3).

excel：将文本文件中的文本导入电子表格的下一个可用行？

excel: import text from text file, onto next available row on spreadsheet?

import

excel

vba

text