以下是引用lisida888在2009-9-13 15:29的发言:
Dim A As String
Dim B As String
Private Sub Form_Load()
A = "c:\CAD.txt"
B = "c:\123.xls"
Open A For Binary As #1
A = Input(LOF(1), 1)
Close #1
Open B For Output As #2
Print #2, A
Close #2
...
如何高手指点把附件中的txt文件中的内容存放到EXCEL里,该附件中第一行前4个是输出对象名,后面的是参数名接着下面的行是每个对象输出的值。对象参数超过256列,现在想把这些参数提取出来存在EXCEL里,估计要存放成两个表,参能存完所有的参数。