只提取表格中指定内容到WORD中

yjwdjfqb · 发表于 2019-12-8 12:11

只提取表格中指定内容到WORD中

现在的代码是全部人员提取到，WORD中
想修改成，只提取妻子，或者丈夫的信息到WORD表格中，即每个人的配偶

请老师们帮修改下，谢谢老师了!

附件.rar (25.61 KB, 下载次数: 31)

lovemh1987 · 发表于 2019-12-8 12:34

仅供参考

yjwdjfqb · 发表于 2019-12-8 14:33

lovemh1987 发表于 2019-12-8 12:34
仅供参考

谢谢老师，是这样的，没有在表格的第一行呢，帮调整到这个表格的第一行好吧，谢谢了老师

蓝桥玄霜 · 发表于 2019-12-8 14:42

.Tables(2).Cell(g + 4, 2).Range.Text = re(0)
                     .Tables(2).Cell(g + 4, 3).Range.Text = re(1)
                     .Tables(2).Cell(g + 4, 4).Range.Text = Format(re(2), "yyyy.mm")
                     .Tables(2).Cell(g + 4, 5).Range.Text = re(3)
                     .Tables(2).Cell(g + 4, 6).Range.Text = re(4)
中的g+4 改为 5

lovemh1987 · 发表于 2019-12-8 14:52

本帖最后由 lovemh1987 于 2019-12-8 14:58 编辑

我测试过了在第一行啊不知道怎么现在你的代码我也运行不了啦。

yjwdjfqb · 发表于 2019-12-8 14:59

蓝桥玄霜发表于 2019-12-8 14:42
.Tables(2).Cell(g + 4, 2).Range.Text = re(0)
.Tables(2).Cell(g + 4, 3).Rang ...

蓝桥老师，我这儿修改了，还是没有对，老师传个你那个正确的附件好吧，谢谢了老师!

yjwdjfqb · 发表于 2019-12-8 15:00

lovemh1987 发表于 2019-12-8 14:52
我测试过了在第一行啊不知道怎么现在你的代码我也运行不了啦。

我这儿，张三这个人员可以

但其它人员就不行了，没有在WORD的第一行，如李四，就是没有在第一行

lovemh1987 · 发表于 2019-12-8 15:01

蓝桥玄霜发表于 2019-12-8 14:42
.Tables(2).Cell(g + 4, 2).Range.Text = re(0)
.Tables(2).Cell(g + 4, 3).Rang ...

蓝老师特定版本。

lovemh1987 · 发表于 2019-12-8 15:19

yjwdjfqb 发表于 2019-12-8 15:00
我这儿，张三这个人员可以

但其它人员就不行了，没有在WORD的第一行，如李四，就是没有在第一行

李四如果是在第二行的说，说明g 在循环后没有初始化为0，如果为0之后 g+4就等于5了在会在第一行。你自己在循环后初始化为0就好了，或者像蓝老师那样直接写死等于5 。不过那样的话，后期再添加人员就做不到动态添加了。

yjwdjfqb · 发表于 2019-12-8 15:34

lovemh1987 发表于 2019-12-8 15:19
李四如果是在第二行的说，说明g 在循环后没有初始化为0，如果为0之后 g+4就等于5了在会在第一行。你自己 ...

谢谢老师，我再试下喃!!!

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

[求助] 只提取表格中指定内容到WORD中

评分

最新热点 /1