把发文稿纸中的内容提取到发文登记簿中？

ke3088 · 发表于 2009-11-4 00:46

sylun兄，谢谢您！

成功了，我太高兴了

，用r = .Range("a1:b65536").End(-4121).Row + 1好，如用r = .UsedRange.Rows.Count + 1第3行为空行。再次致以衷心的感谢！

sylun · 发表于 2009-11-4 10:20

原帖由 ke3088 于 2009-11-4 00:46 发表
如用r = .UsedRange.Rows.Count + 1第3行为空行

这是因为附件中第3行本身并非空行（J3单元格非空）。

另外，17楼代码中注释文字“右缩进”应为“右对齐”。又，AppExcel.Visible = True这一行只是便于测试，实际使用时如确实不需要查看，应将其略去。

ke3088 · 发表于 2009-11-4 23:48

附件中J3单元格中的公式，是为统计流水号的，用您的代码可删除J3的公式。谢谢！

ke3088 · 发表于 2009-11-5 15:36

现将完整的发文稿纸附后，与大家共同分享sylun兄的成果，谢谢sylun兄！

发文.rar (17.89 KB, 下载次数: 190)

szqhb · 发表于 2009-12-13 18:04

先做个记号，容后学习

v111v111v · 发表于 2018-12-23 14:15

两个表都和我们用的一样

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

[求助] 把发文稿纸中的内容提取到发文登记簿中？