Question

我正在尝试使用以下代码帮助在Powerpoint 2010中使用VBA打开Excel文件。

Private Sub CommandButton1_Click()
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

xlApp.Workbooks.Open "C:\lol\Book1.xlsx", True, False
Set xlApp = Nothing

Range("A8").Value = "Hello"
End

但我收到以下错误。

编译错误用户定义类型未定义。

我错过了什么。任何人都可以共享示例代码片段来打开excel文件，更改单元格值并使用VBA在Powerpoint 2007和2010中关闭Excel文件。

我经常搜索并尝试不同的代码，但每次都会遇到相同的错误。：（

提前致谢。：）

Answer 1

您是否添加了对Excel对象模型的引用？这样可以避免使用后期绑定对象（并且在编码时可以获得Intellisense的帮助。）

您需要转到工具 - ＆gt;引用并检查“Microsoft Excel v.x对象库”（我认为该数字会根据您使用的办公室版本而变化。

如果您这样做，您的代码应该可以使用，您也应该删除

CreateObject("Excel.Application")

行并将其替换为

Set xlApp = new Excel.Application

移动

Set xlApp = nothing

到你的子程序结束。

其余的代码对我来说很好。

Answer 2

后期绑定代码就是这个

Private Sub test()
Dim xlApp As Object
Dim xlWorkBook As Object

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
Set xlWorkbook = xlApp.Workbooks.Open("C:\lol\Book1.xlsx", True, False)
xlWorkbook.sheets(1).Range("A8").Value = "Hello"

Set xlApp = Nothing
Set xlWorkbook = Nothing


End Sub

最好使用早期绑定。

从Powerpoint在VBA中打开Excel文件

2 个答案: