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

Question

我有一些 VBA 代码可以从 Excel 中复制内容并将其粘贴到 Word 中。我遇到的问题是如何打开电子表格。我可以使用绝对路径引用打开它

工作簿。打开“C:\path\filename.xls”

我更愿意使用相对路径引用来引用电子表格。我能够找到从 Excel 工作簿到另一个工作簿的相对路径引用的代码，但如果您从 Word 中执行此操作，它似乎不起作用。

Answer 1

添加对 Excel 对象库的引用，然后在代码中创建一个对象并使用该对象来控制 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
End Sub

您也可以使用 Excel 创建非常相似的东西来自动化 Word，如果这更多的是您正在寻找的东西。