VBA批量导入全站仪数据

  Sub 批量导入数据()
    Dim Filename As Variant, myText, S, mArr() As String, narr() As String
    Dim i, y As Long, j As Long
    Filename = ThisWorkbook.Path & "\1112X.GT7"      '指定文件字符串
    j = 1
    With Worksheets("sheet1")
        .Cells.ClearContents
        Open Filename For Input As #1
        Do While Not EOF(1)
            
        Line Input #1, myText    ' 读入一行数据并将其赋予某变量
        S = Replace(myText, "    ", ",")
            mArr = Split(S, ",")    '按逗号分开这个字符，循环赋值给单元格
          
          
            
    
            For i = 0 To UBound(mArr)
                .Cells(j, i + 1) = mArr(i)
            Next i
            j = j + 1
        Loop
        Close #1    ' 关闭文件。
    End With
End Sub