如何在word中实现对excel的操作?

amesman

想用vba在word中实现对excel的操作(vba代码在word中)

在word中做好了表格,排好了版式,然后想从excel中筛选中所需要的数据,添加到word表格中
步骤主要有:
1.在word中用vba打开excel文件,在指定的表单(sheet)中筛选出所需要的数据,然后复制筛选出的数据,粘贴至新建的excel空白簿,另存为excel文件;
2.打开上步新建的excel文件,复制数据到word指定表格中(自动追加至表格的后面).

现在的问题是excel中的宏代码好象不能在word中运行.请教各位兄弟姐妹高手,不胜感谢!

BODDY

抛开VBA，使用WORD邮件合并呢？

amesman

邮件合并不能在原表格后面进行追加,而且合并一条信息生成单独的一页.

守柔

原帖由 amesman 于 2009-3-19 23:16 发表
想用vba在word中实现对excel的操作(vba代码在word中)

在word中做好了表格,排好了版式,然后想从excel中筛选中所需要的数据,添加到word表格中
步骤主要有:
1.在word中用vba打开excel文件,在指定的表单(sheet)中筛 ...

因为论坛暂时不支持全文搜索，想找个例子，还真不太好找，但肯定多的是。
WORD VBA和EXCEL VBA有相似的地方，也有不同的地方。
找了一个，你先学习一下，有什么问题，再贴。
http://club.excelhome.net/thread-111211-2-258.html

冰风萧萧

我还是用笨办法，硬来.所以要学习

amesman

守柔版主

word里的一些vba属性,我发现在excel里不能使用.

还有个问题想请教一下,就在vba代码在excel里,操作word里的表格,自动从表格的最后一行添加表格,代码在word里运行没有问题,但移植到excel里就起不了作用了,很郁闷,不知可有解决的方法?

zhuomingkun

从word中访问excel就是客户断访问服务器，用dde可以，但是不太灵活，正在找更好的方法，那位仁兄知道，多多指教啊！

zhuomingkun

amesman解决了还请通知一声啊！！！！！
谢谢了！！！！！

守柔

原帖由 amesman 于 2009-3-26 19:11 发表
守柔版主

word里的一些vba属性,我发现在excel里不能使用.

还有个问题想请教一下,就在vba代码在excel里,操作word里的表格,自动从表格的最后一行添加表格,代码在word里运行没有问题,但移植到excel里就起不了作用 ...

我想只要你想到了，肯定是可行的，不是办法的问题，是你的方法的问题，确切的说，是你的对象的问题，程序间的访问，请使用对象限定符，特别是“Selection“对象。
如果你还是不会，把代码发上来，我看一下便是了。

amesman

呵呵,终于把您给盼出来了,代码如下:
您给看看啊
Private Sub CommandButton1_Click()  
    On Error Resume Next   
    Dim WordAPP As Object, myWord As Object   
    Dim Fullname As String   
    Fullname = ThisWorkbook.Path & "\新表格.doc"  
    Set WordAPP = CreateObject("Word.Application")
    Set myWord = WordAPP.documents.Open(ThisWorkbook.Path & "\表格.doc")   
     WordAPP.Visible = False        
     '============================追加表格==================================
       myWord.Activate
      myWord.tables(2).Rows.Last.Select '从最后一行开始添加表格
   Selection.InsertRowsBelow 10
     '============================追加表格==================================        
    With myWord
         With .tables(1)                                    
              .Cell(1, 2).Range = Date
         End With         
    End With        
   myWord.SaveAs Filename:=Fullname
   myWord.Close   
   Set myWord = Nothing
   Set WordAPP = Nothing
End Sub