如何从Word中获得对打开的Excel电子表格的引用？

我有一些VBA代码，从Excel中复制东西，并将其粘贴到Word中。 我遇到的问题是如何打开电子表格。 我可以通过使用绝对path引用来打开它

Workbooks.Open“C：\ path \ filename.xls”

我宁愿使用相对path引用来引用电子表格。 我能够find从Excel工作簿到另一个相对path引用的代码，但它似乎并不工作，如果你从Word做它。

Answer 1

添加对Excel对象库的引用，然后在代码中创build一个对象并使用该对象来控制Excel的一个实例。 为了以防万一，请确保避免像ActiveWorkbook这样的事情。

添加参考后：

 Sub DoStuffWithExcelInWord() Dim xl As Excel.Application Dim wkbk As Excel.Workbook Dim wk As Excel.Worksheet Set xl = CreateObject("Excel.Application") Set wkbk = xl.Workbooks.Open("C:\test.csv") Set wk = wkbk.Sheets(1) Debug.Print wk.Cells(1, 1).Value xl.Quit Set wk = Nothing Set wkbk = Nothing Set xl = Nothing 

结束小组

你可以使用Excel自动化Word，如果这更多的是你要找的东西非常相似。