EXCEL，写数据到WORD中排除二个项目

yjwdjfqb

EXCEL，写数据到WORD中排除二个项目
请老师们帮帮忙，谢谢老师们了！

EXCEL，写数据到WORD中排除二个项目.rar (54.33 KB, 下载次数: 4)

2019-12-9 22:25 上传

点击文件名下载附件

hfwufanhf2006

word 现在用的人少，就是打打字，没多少人用它来做统计，所以关于word的 vba 代码肯定多数人都不在行；
要把Excel数据弄到word里面，要是我来做，复制粘贴，稍微手工再改下就成了。
word的表格与excel表格本质上是很不一样的，为了兼顾外观和美观，要在word里面完全达到excel里的效果，要用“插入excel对象”来实现，反过来也是一样，要在excel完全体现与word一样的排版效果，也要“插入word对象”来实现，这事office的互操作性。不仅是这两个，常用的ppt也是这么操作的；
关于如何在word插入excel对象，在菜单-插入-快捷菜单“对象”，选microsoft excel工作表，excel里插入word的方法也是类似的

本质上，我的观点是复制粘贴就完事了，别搞代码，因为很少有人会写关于word的代码；

yjwdjfqb

hfwufanhf2006 发表于 2019-12-10 12:22
word 现在用的人少，就是打打字，没多少人用它来做统计，所以关于word的 vba 代码肯定多数人都不在行；
要 ...

谢谢了老师！！！

logo28

改成这样就好:
                '*************************************************************************
                If Trim(Cells(Target.Row, "E")) <> "" Then
                    renArr = Split(Cells(Target.Row, "E"), vbLf)
                    For hs = 0 To UBound(renArr)
                                 
                    
                    
                        re = Split(renArr(hs), ",")
                       
                       If InStr(re(0), "妻子") > 0 Or InStr(re(0), "丈夫") > 0 Then GoTo n         '现在是只写入妻子、丈夫二个项目到WORD中
                           
                                                               '想改成，除妻子、丈夫二个项目以外，其它项目都写到WORD中（即不写入这二个项目）
                        g = g + 1
                        .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)
                       
n:                 Next hs
                     
                     g = 0
                    
                    
                End If
                '*************************************************************************

yjwdjfqb

logo28 发表于 2019-12-18 20:41
改成这样就好:
                '******************************************************************** ...

老师你好，再麻烦你下
我修改成这样不行呢

                '*************************************************************************
                If Trim(Cells(Target.Row, "E")) <> "" Then
                    renArr = Split(Cells(Target.Row, "E"), vbLf)
                    For i = 0 To UBound(renArr)
                        If InStr(renArr(i), seltxt(0)) Or InStr(renArr(i), seltxt(1)) Then GoTo 跳转
                            re = Split(renArr(i), ",")
                            i = 0
                            .Tables(2).Cell(5 + i, 2).Range.Text = re(0)
                            .Tables(2).Cell(5 + i, 3).Range.Text = re(1)
                            .Tables(2).Cell(5 + i, 4).Range.Text = Format(re(2), "yyyy.mm")
                            .Tables(2).Cell(5 + i, 5).Range.Text = re(3)
                            .Tables(2).Cell(5 + i, 6).Range.Text = re(4)
                            Exit For
                       ''End If
跳转:                   Next i  '当符合上面IF判断的条件时,就跳转至此,退出i
                End If
                '*************************************************************************

yjwdjfqb

logo28 发表于 2019-12-18 20:41
改成这样就好:
                '******************************************************************** ...

老师你好，空了，帮我看下，5楼那个修改成那样，不行，是什么问题哈，谢谢了老师了！

logo28

你对照四楼的代码好好看一下,把不一样的地方改一致了才行
关于goto 后的跳转,这个是正确的