请问能不能实现这样的功能？

littlelittle

就是我想创建一个宏，运行这个宏的时候，Word能自动打开某个Excel文档，然后把某些数据拷贝到Word里。

请问能不能实现这样的功能？怎么做？

p.s 我试了很久还是不知道应该怎么打开某个Excel。

谢谢！

konggs

用 automation啊。搜一下。很多的。

Sub a323a()
Dim appexcel As Excel.Application
Dim aworkbook As Excel.Workbook
Dim astring As String
'工具、引用、勾选Microsoft Excel 11.0 Oject Library
'再运行,确认e:\公式.xls的存在，当然，你可以改成你的
Set appexcel = CreateObject("excel.application")
Set aworkbook = appexcel.Workbooks.Open("E:\公式.xls")
    astring = aworkbook.Worksheets(1).Range("a1").Value

    aworkbook.Close False
    appexcel.Quit
    ActiveDocument.Content.InsertAfter "最后的内容" & astring
End Sub

wenflower

哇，楼上的好厉害哪。呵呵

littlelittle

赫赫，多谢啦~