Question

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

的绝对路径引用打开它

Workbooks.Open“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，如果这更像是您正在寻找的东西。

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

1 个答案: