编程论坛
注册
登录
编程论坛
→
VB6论坛
求帮助——把TXT文件按要求填到XLS里
ba0712
发布于 2017-11-11 18:33, 2114 次点击
只有本站会员才能查看附件,请
登录
,请大师给一下原代码!非常感谢!我是菜鸟中的菜鸟!请各位多包涵!!!!
6 回复
#2
xyxcc177
2017-11-11 21:15
这张图说明不了你要实现什么?
#3
chen3523
2017-11-11 21:51
建议用数据库管理“标签数据”估计效果会好点,如果Execl够用了就直接输入到表格去,何必要转一圈再回到原点?
#4
ba0712
2017-11-13 08:18
回复 楼主 ba0712
补充说明:TXT文件中的123.TXT是客户给的,有时会给乱码,
只有从行下标识别选取指定的号码,按要求写到表格中
#5
ba0712
2017-11-13 08:19
回复 2楼 xyxcc177
我想把TXT文件转成右边表格
#6
xiangyue0510
2017-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
ba0712
2017-11-14 11:51
回复 6楼 xiangyue0510
非常感谢!
1