- 博客(1)
- 收藏
- 关注
原创 vb将文本文件写入excel
<br />i = 1<br />Open "c:/result.txt" For Input As #1<br />Do Until EOF(1)<br /> Input #1, tempLine<br /> 'If tempLine <> "" Then<br /> arr = Split(templine, " ")<br /> For j = LBound(arr) To UBound(arr)<br /> sh.Cells(i, 1).Nu
2011-05-29 11:49:00 1028
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人