word中读取excel中某个单元格的值

likedanni

Sub Temp() Set MyXl = CreateObject("F:\VBA编程\test.xls") MyXl.sheets(1).Range("A4").Cells End Sub

我想在word中读去excel中某个单元格的值用上面的方法有错，请问应该怎么写，谢谢！

守柔

Sub Temp() Set myxl = CreateObject("F:\Example.xls") MsgBox myxl.sheets(1).Range("A4").Value myxl.Close False Set myxl = Nothing End Sub

konggs

这个四句，没注释，我看不懂。

老大，加个注吧，也让我进步一下。

likedanni

谢谢 ！！：）

Sub Temp() Set myxl = CreateObject("F:\Example.xls") myxl.sheets(1).Range("A4").Value myxl.Close False Set myxl = Nothing End Sub 没有MsgBox 时也有问题？是不是myxl.sheets(1).Range("A4").Value不能直接使用？

守柔

TO 孔兄：这是一个创建后期绑定的EXCEL对象。

通过CREATEOBJECT方法创建后，WORD将会在后台调用EXCEL（此处为WORKBOOK），然后，可以返回、设置或者处理此对象的相关属性等。

对于新手，使用AUTOMATION方法更容易一些。

TO 楼主，我好奇怪啊，你看来是一窍不通啊！

你想，你最终使用myxl.sheets(1).Range("A4").Value值是想做什么？你得告诉程序啊！

konggs

谢谢老大的指点：我先去看看automation的知识。我又长见识了。

顺说一句：楼主：你这么改，不就行了吗？不会，什么都指望老大教你吗？

Sub Temp() Dim myxl As Object Set myxl = CreateObject("F:\Example.xls") Selection.TypeText Text:=myxl.Sheets(1).Range("A4").Value myxl.Close False Set myxl = Nothing End Sub

likedanni

konggs，你说的那个我是知道的！我只是想问问myxl.sheets(1).Range("A4").Value直接引用就会出问题！ 因为我对vb的语法不怎么知道的！呵呵！跟其他语言有好大的区别

谢谢你们！

iamatig

得自己翻语言书...这个不可能要人家也教你...

菊石泽露

慢慢学习，我还没学到这呢！

65307570

弱弱的问一句：这个能不能用超级链接，自动更新吗？

就是选择性粘贴？

[此贴子已经被作者于2007-2-10 15:47:44编辑过]