Question

利用VBA在word中调用excel的数据 编译错误：方法和数据成员未找到

我已经在word的VBA环境上，工具->引用 中选中了 Micrsoft Excel 14.0 Object Library
求高手回答啊，小弟QQ：809239352
Private Sub CommandButton1_Click()
Dim temp As String
temp = Application.Workbooks("111.xls").Sheets("Sheet1").Range("A10")
MsgBox temp
End Sub

Answer 1

这是在EXCEL环境中直接引用EXCEL的语句。
在WORD中不能这样引用。
代码如下：
Private Sub CommandButton1_Click()
Dim xls As New Excel.Application
Dim wk As New Excel.Workbook
Dim sh As New Excel.Worksheet
Set wk = xls.Workbooks.Open("d:\111.xls")
Set sh = wk.Sheets("Sheet1")
temp = sh.Range("A10")
Set sh = Nothing
wk.Close
Set wk = Nothing

xls.Quit
Set xls = Nothing

MsgBox temp

End Sub

追问

那，请问，在excel中调用word，该怎么设置呢？是不是类似的啊？
文章《利用VBA在Excel和Word中完成复杂的数据引用》中，有一些说明，是不是一定要这样做，没有别的办法了啊？谢谢了。

追答

在EXCEL中调用WORD方法上差不多的，都是要先定义APPLICATION及对象。
不过，我想Excel和Ｗｏｒｄ都是MSOFFICE家族成员，应该有数据交换的通道吧，
但我不太会。