求助：vb如何读取txt文件的内容，并写入excel文件 - 编程论坛

#2

zhu_xl2009-09-13 09:12

没人回答阿，如果谁有相似的例子可以粘贴一个给我学习一下阿。期待？？？？？

#3

lisida8882009-09-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
End Sub

#4

zhu_xl2009-09-14 21:33

以下是引用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里，估计要存放成两个表，参能存完所有的参数。

#5

lz26442009-09-14 23:40

附件乱七八糟的,你到底要怎么弄呢? 说得详细点!

#6

zhu_xl2009-09-16 07:00

数据其实不乱的，只是从交换机导出的时候有点每对齐，而且参数超过了256列，所以看出来很短乱

#7

zhu_xl2009-09-16 07:01

看上去很简单，就是把里面的参数提取出来存放在EXCEL上。第一行为参数名

#8

bczgvip2009-09-16 19:29

手动操作,不就行了?

#9

zhu_xl2009-09-17 21:14

数据量大，手动不是办法。

#10

bczgvip2009-09-19 09:42

定义了过多字段.

#11

goup2009-09-20 19:42

字段头看其来是有点多，但是只要谁举个例子，好比就拿里面的几个字段头举例阿。怎么进行提取。期待高手来解决。

#12

bczgvip2009-09-20 20:13

只有本站会员才能查看附件，请登录

#13

bczgvip2009-09-20 20:18

只有本站会员才能查看附件，请登录

看看吧!~最多254 个

#14

vkesslike0012011-06-14 11:01

新来的，谢谢，

#15

sw_tang2012-09-06 19:03

谢谢，同样的问题