Excel VBA编码从.txt文件中提取数据

我试图从.txt文件中提取数据，如附件所示，使用下面的编码。但是，我不知道如何保持负值，因为当我运行编码时，负号将丢失。请帮忙

---

假设文本文件只包含一行坐标。Z和值之间用空格分隔。您还可以扫描该行，并使用以下代码拆分为数组

Dim vTmp as variant
Dim i as long, j as long

Do Until EOF(1)
Line Input #1, textline
If InStr(text, "Coord. Z") then vTmp = split(textline, " ")
Loop

此代码生成一个数组vTmp，该数组包含有关联的字符（如果存在双空格，则为空条目）

下一步循环遍历生成的数组并转储工作表中的值

j = 1 'Start column

'Loop through array
For i = LBound(vTmp) to UBound(vTmp)
    If vTmp(i) <> "" 'If entry is not empty
        Sheet2.Cells(LastRow, j).value = vTmp(i) 'Dump entry
        j = j + 1 'Next column
    End if
Next i

j=1'起始列
'循环通过数组
对于i=LBound（vTmp）到UBound（vTmp）
如果vTmp（i）“”，如果条目不为空
表2.单元格（LastRow，j）.值=vTmp（i）'转储条目
j=j+1'下一列
如果结束
接下来我

j = 1 'Start column

'Loop through array
For i = LBound(vTmp) to UBound(vTmp)
    If vTmp(i) <> "" 'If entry is not empty
        Sheet2.Cells(LastRow, j).value = vTmp(i) 'Dump entry
        j = j + 1 'Next column
    End if
Next i