注册 登录
编程论坛 VB6论坛

求帮助——把TXT文件按要求填到XLS里

ba0712 发布于 2017-11-11 18:33, 2114 次点击
只有本站会员才能查看附件,请 登录
,请大师给一下原代码!非常感谢!我是菜鸟中的菜鸟!请各位多包涵!!!!
6 回复
#2
xyxcc1772017-11-11 21:15
这张图说明不了你要实现什么?
#3
chen35232017-11-11 21:51
建议用数据库管理“标签数据”估计效果会好点,如果Execl够用了就直接输入到表格去,何必要转一圈再回到原点?
#4
ba07122017-11-13 08:18
回复 楼主 ba0712
补充说明:TXT文件中的123.TXT是客户给的,有时会给乱码,
只有从行下标识别选取指定的号码,按要求写到表格中
#5
ba07122017-11-13 08:19
回复 2楼 xyxcc177
我想把TXT文件转成右边表格
#6
xiangyue05102017-11-14 08:47
如果只是你说的这样,完全可以直接复制txt中的内容,在Excel中粘贴,自然就变成一列。或者用Excel自带的导入数据
其他地方手输,利用快速填充即可。
乱码的事情,除非你能确定什么是乱码,或者反过来说你能确定什么是有效的数据。你前面帖子里讲到的根本和乱码没有关系

非要用代码的话,建议用VBA,录制一两段宏之后修改就好。 给你一段示例
程序代码:

dim r_i as integer
r_i=1
Open "C:\1.txt" for input as #1
do while not EOF(1)

 line input #1,a

 cells(r_i,1)=a

 r_i=r_i+1
loop
close #1

#7
ba07122017-11-14 11:51
回复 6楼 xiangyue0510
非常感谢!
1