如何利用vba程序在word中调用<em>excel</em>单元格中的数据-excel 宏 取

建安三年（公元198年），曹操讨伐吕布来，苦战日久未果。而吕布却因内患陈登，且惑于妻妾之言源，终为曹操所擒。白门楼上，刘备以丁原、董卓的缘由将吕布致死。曹操也怒斩高知顺，泪别陈宫，义降张道辽。吕布既定，曹操势力进一步扩大。[1]

'代码已经测试过，请注意保持良好习惯，及时采纳，谢谢。

Sub PasteToWordDoc()
'
' 需要引用MIcrosoft Word 12.0 Object Library（注：12.0是版本号，可以不同）e799bee5baa6e79fa5e98193e78988e69d83338
'
Application.ScreenUpdating = False '关闭屏幕刷新'

Selection.Copy

Dim wdApp As Word.Application, wdDoc As Word.Document
Dim strDocPath As String '全路径文件名
Dim blnNoWd As Boolean, blnNoWdd As Boolean

On Error Resume Next

strDocPath = "C:\Users\wine\Desktop\可ihikhoi年.docm" '如果与Excel工作薄同路径，采用这面的语句也可
'strDocPath = ThisWorkbook.Path & "\可ihikhoi年.docm"

'调用word程序对象
Set wdApp = GetObject(, "Word.Application") '实例化word对象变量

If wdApp Is Nothing Then '判断word程序是否正在运行
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = False
blnNoWd = True
End If

'调用word 文档对象

Set wdDoc = wdApp.Documents(strDocPath)
If wdDoc Is Nothing Then
Set wdDoc = wdApp.Documents.Open(Filename:=strDocPath, Visible:=flase)
blnNoWdd = True
Else
wdDoc.Activate
End If

wdApp.Selection.PasteExcelTable False, False, False
wdDoc.Save

'恢复环境
If blnNoWdd Then wdDoc.Close: Set wdDoc = Nothing
If blnNoWd Then wdApp.Quit: Set wdApp = Nothing
Application.ScreenUpdating = True
On Error GoTo 0

End Sub

可用抄CreateObject函数创建对EXCEL的引用，然后就可打开EXCEL工作簿，将表格中的袭数据复制到WORD中，参考代码如下：

Set xlapp = CreateObject("excel.application")
With xlapp.Open("带路径的EXCEL文件名")
   .Sheets(1).Range("A1:H8").Copy
   '粘贴到WORD指定位置zhidao
End With
xlapp.Quit

Sub test()
    Set oExcel = GetObject(, "Excel.Application")
    Set oWb = oExcel.Workbooks.Open("D:\test.xls") '写你自己的Excel路径
    MsgBox oWb.Sheets("Sheet1").Range("C5") '取"Sheet1"工作表C5单元格的值
    oExcel.Quit '退出Excel
End Sub

按 Alt+F11 打开VBE窗口，通过菜单选择“插入”7a686964616fe78988e69d83330-“模块”，输入以上代码。 

这里采用的是后置绑定方法，无需事先加载Excel对象引用库。

前置绑定方法参见：http://zhidao.baidu.com/question/126725210.html

 

如果在此过程中希望Excel窗口不可见，可在调用open方法打开Excel之前设置visible属性：

oExcel.Visible = False