Question

xp系统vbs操作文本数据写入excel，求此vbs脚本完整代码

1.文本数据没有固定行数，但每一行的数据模式是固定的；
2.excel2003表格内容是固定的，文本数据填入表格内的空白位
3.本人vbs不懂，请求帮助，给出代码。

文本数据如：
100; 100X100x100 -0.3/-0.1 装上镶件打 旋转、镜像

Answer 1

给你参考代码:
读取e:\readme.txt文本文件里面的数据写入到sheet1中
Sub read()
On Error Resume Next
Dim n1, n2, n3, n4
Dim i As Integer
Workbooks("Sheet1").Select
Range("A1").Activate
Open "e:\readme.txt" For Input As #1
i = 0
Do While Not EOF(1)
Input #1, n1, n2, n3, n4
ActiveCell.Offset(i, 0).Value = n1
ActiveCell.Offset(i, 1).Value = n2
ActiveCell.Offset(i, 2).Value = n3
ActiveCell.Offset(i, 3).Value = n4
Cells(i, 0).Activate
i = i + 1
Loop
Close #1
End Sub