如何Word中用VBA打开Excel表格，读取其中的内容写入到Word？

goldowl2011

Good codes.Thanks a lot .

卓嘎

进来学习学习，感谢！

kevinchan2006

zhaogang1960 发表于 2012-12-18 16:51
Open方法加一个参数: ReadOnly:=True

再次求教版主，请问下面的代码有什么作用？我看不懂。为什么要这么做呢？我把那个2改成1或者3都不能运行。

1. projectno = Left(projectno, Len(projectno) - 2)

复制代码

zhaogang1960

kevinchan2006 发表于 2012-12-20 13:26
再次求教版主，请问下面的代码有什么作用？我看不懂。为什么要这么做呢？我把那个2改成1或者3都不能运行。 ...

Word表格中的文本后面有回车键和""，它们的asc码分表示13和7，你在原Word文档中运行一下下面代码就知道了：

1. Sub AA()
   
2.     Dim projectno As String
   
3.     Dim excelobject As Object, wb As Object, r As Long, i As Long, arr
   
4.     projectno = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Range
   
5.     MsgBox Asc(Right(projectno, 2))
   
6.     MsgBox Asc(Right(projectno, 1))
   
7.     MsgBox Chr(Asc(Right(projectno, 1)))
   
8.     projectno = Left(projectno, Len(projectno) - 2)
   
9.    
   
10. '    Set excelobject = CreateObject("excel.application") '启动Excel程序
    
11. '    excelobject.Visible = False   '不可见
    
12. '    Set wb = excelobject.Workbooks.Open(ActiveDocument.Path & "\project.xls")
    
13. '    On Error Resume Next
    
14. '    r = excelobject.WorksheetFunction.Match(projectno, wb.Sheets(1).Columns(1), 0)
    
15. '    If Err = 0 Then
    
16. '        arr = wb.Sheets(1).Cells(r, 2).Resize(, 4)
    
17. '        With ActiveDocument.Tables(1)
    
18. '            For i = 1 To 4
    
19. '                .Cell(i, 2).Range = arr(1, i)
    
20. '            Next
    
21. '        End With
    
22. '    End If
    
23. '    excelobject.Quit
    
24. End Sub
    
25. 
    

复制代码

kevinchan2006

zhaogang1960 发表于 2012-12-20 13:42
Word表格中的文本后面有回车键和" "，它们的asc码分表示13和7，你在原Word文档中运行一下下面代码就知道了 ...

多谢版主！不愧是MVP！
此外还解决了我之前的另外一个类似这个的问题（之前我引用表格中的数据，每次都会多个回车，很头疼）。

kevinchan2006

忍不住还要多问一句版主：
如果Word表格中的字段顺序和Excel中的一致，用您的循环判断的方法会很快，但是如果我有很多Word文档，每个文档表格中的字段顺序可能会有变化，要怎么办？
我能想到的方法是采用书签的方式，但是采用书签有一个不好的地方是如果一个Word文档重复读了2次Excel中的数据，则2次数据都会写入到Word中，这样就等于白做了。
所以我想问一下：Word表格中能不能像Excel一样，可以先判断特定文字（这里就是指字段名）所在的单元格的行数和列数，再Offset活动单元格，最后向活动单元格中写入数据呢？这样就能应万变了。多谢！

zhaogang1960

kevinchan2006 发表于 2012-12-25 21:07
忍不住还要多问一句版主：
如果Word表格中的字段顺序和Excel中的一致，用您的循环判断的方法会很快，但是如 ...

还真不会，这时我第一次在Word中写VBA，请上传几个这样的文件分析一下，要么到Word板块问问

kevinchan2006

zhaogang1960 发表于 2012-12-25 21:12
还真不会，这时我第一次在Word中写VBA，请上传几个这样的文件分析一下，要么到Word板块问问

似乎Word中没有类似的函数。我已经决定用书签解决问题了，多谢版主！！

excel学弟

先留印学习。

ke3088

下了，谢谢