Question

Excel 在线等，怎么利用VBA从txt文件中提取特定位置的数据

Answer 1

'在下面的代码中，tf 是由 FileSystemObject 的 OpenTextFile 方法返回的 TextStream 对象：
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs,tf,str
Set fs = CreateObject("Scripting.FileSystemObject")
Set tf = fs.OpenTextFile("c:\testfile.txt", ForReading, TristateFalse)
'跳到指定字符数，这里指定10个字符。
tf.Skip(10)
'把指定数量的字符读到字符串，这里指定20个字符。
str = tf.Read(20)
tf.Close

Answer 2

首先你得上图，才知道下一步该怎么做