如何使用vba导入将取代现有列中数据的文本文件

Sub ImportTextFile()
    Dim filePath As String
    Dim delimiter As String
    Dim textFile As Integer
    Dim textData As String
    Dim dataArray() As String
    Dim rowIndex As Long
    Dim columnIndex As Long
    
    ' 设置文件路径和分隔符
    filePath = "C:\path\to\textfile.txt"
    delimiter = ","
    
    ' 打开文本文件
    textFile = FreeFile
    Open filePath For Input As textFile
    
    ' 读取文本文件数据
    Do Until EOF(textFile)
        Line Input #textFile, textData
        dataArray = Split(textData, delimiter)
        
        ' 将数据写入工作表中的指定列
        rowIndex = rowIndex + 1
        columnIndex = 1
        For Each dataItem In dataArray
            Cells(rowIndex, columnIndex).Value = dataItem
            columnIndex = columnIndex + 1
        Next dataItem
    Loop
    
    ' 关闭文本文件
    Close textFile
End Sub