如何通过 VBA 将数据从文本文件传输到 Excel 中的特定单元格？

Question

我有将数据从文本文件传输到 Excel 工作表到 C 列的代码。这是一个代码片段。

Dim my_file As Integer
Dim text_line As String
Dim file_name As String
Dim i As Integer

file_name = "C:\Users\" & Environ("Username") & "\Desktop\Test.txt"

my_file = FreeFile()
Open file_name For Input As my_file

i = 1

While Not EOF(my_file)
    Line Input #my_file, text_line
    Cells(i, "C").Value = text_line
    i = i + 1
Wend

但我想将数据传输到 C4。 如何调整代码以实现我的目标？

Answer 1

• 从某个单元格 C4 开始编写整个文件，并随着每一行向下写

Sub TestMe()

    Dim myFile As Long
    Dim textLine As String
    Dim fileName As String

    fileName = "C:\Users\" & Environ("Username") & "\Desktop\Test.txt"

    myFile = FreeFile()
    Open fileName For Input As myFile

    Dim writing As String
    Dim i As Long: i = 4
    While Not EOF(myFile)
        Line Input #myFile, textLine
        Worksheets(1).Cells(i, "C").Value = textLine
        i = i + 1
    Wend

End Sub

• 将整个文件写入单个单元格

这个从Test.txt获取所有行并将它们写入第一个工作表的Range("C4")中：

Sub TestMe()

    Dim myFile As Long
    Dim textLine As String
    Dim fileName As String

    fileName = "C:\Users\" & Environ("Username") & "\Desktop\Test.txt"

    myFile = FreeFile()
    Open fileName For Input As myFile

    Dim writing As String

    While Not EOF(myFile)
        Line Input #myFile, textLine
        writing = writing & vbCrLf & textLine
    Wend

    Worksheets(1).Cells(4, "C").Value = writing        

End Sub

它是通过循环完成的：

While Not EOF(myFile)
    Line Input #myFile, textLine
    writing = writing & vbCrLf & textLine
Wend

它将每一行写入变量writing ，在需要时添加新行（ VbCrLf是新行）。 最后Worksheets(1).Cells(4, "C").Value = writing将文件的文本写入工作表C4 。