麻烦高手用VBA做一个按纽将TXT文件汇入DOC表格

lzxdy · 发表于 2017-11-12 13:52

sahe 发表于 2017-11-12 11:46
表格直接插入word文档

Q2.rar (129.91 KB, 下载次数: 4)

sahe · 发表于 2017-11-12 15:15

lzxdy 发表于 2017-11-12 13:52

每页转出来第一列及第五列的字只出现一半麻烦老师修改一下

lzxdy · 发表于 2017-11-12 16:44

sahe 发表于 2017-11-12 15:15
每页转出来第一列及第五列的字只出现一半麻烦老师修改一下

如果单元格数值位数显示不完整，可预先调整i列宽以适应，代码前列宽数字可适当修改：

Q2.rar (130.32 KB, 下载次数: 2)
转换后效果如图：
QQ图片20171112164250.png

sahe · 发表于 2017-11-12 18:13

老师可否设定每页第一第二第三第四及第五列高

lzxdy · 发表于 2017-11-12 20:38

sahe 发表于 2017-11-12 18:13
老师可否设定每页第一第二第三第四及第五列高

行高可调整

sahe · 发表于 2017-11-12 21:08

lzxdy 发表于 2017-11-12 20:38
行高可调整

我的意思是我在2010word时第一行及第五行都只看到一半字,能够将第一行设定行高19第五行设定行高20麻烦老师

lzxdy · 发表于 2017-11-13 10:19

sahe 发表于 2017-11-12 21:08
我的意思是我在2010word时第一行及第五行都只看到一半字,能够将第一行设定行高19第五行设定行高20麻烦老 ...

行高是自适应的，如要调整可加上：
.Rows(1).Height = 19
.Rows(5).Height = 20
调整各行高时注意整个表格不要超过页面。
附件包含2003及2010格式的，经测试运行正常。

Q2.rar (376.22 KB, 下载次数: 8)

sahe · 发表于 2017-11-13 17:46

谢谢老师可以嘞

sahe · 发表于 2018-9-8 10:52

lzxdy 发表于 2017-11-5 15:56
试试：

K1.rar (17.35 KB, 下载次数: 0)

麻烦您帮忙将K1A.TXT档汇入K1A.DOC表格内,K1B.DOC为结果,依照数据多寡汇入表格,由左而右排列,遇有-999.000就为空白,用EXECL VBA执行谢谢!

补充内容 (2018-9-13 06:29):
除了-999.000为空白,其它遇到有负数的高程要显示出来

sahe · 发表于 2018-9-8 11:02

lzxdy 发表于 2017-11-5 15:56
试试：

K1.rar (17.35 KB, 下载次数: 1)

麻烦您将K1A.TXT汇入K1A.DOC表格内,K1B.DOC为结果,依据资料多寡由左而右,

遇到有-999.000高程则为空白,麻烦您用EXECL VBA 2003及2010版

补充内容 (2018-9-13 06:29):
除了-999.000为空白,其它遇到有负数的高程要显示出来

		自动登录	找回密码
密码			免费注册

[求助] 麻烦高手用VBA做一个按纽将TXT文件汇入DOC表格