使用 PowerPoint VBA 检查 Excel 中的数据答案

【问题标题】：Check data in Excel using PowerPoint VBA使用 PowerPoint VBA 检查 Excel 中的数据
【发布时间】：2020-04-10 21:47:39
【问题描述】：

我有一个 PowerPoint 演示文稿，其中包含指向 Excel 文件的数据链接，

我正在尝试创建一个无限循环的 PowerPoint 循环，每次幻灯片更改都会运行一个宏。这个宏需要连接到Excel文件，如果单元格B2>0输出一个动作，会在屏幕上产生动画。

我试图让 PowerPoint 打开 Excel 文件，但我无法做到这一点。

Private Sub OnSlideShowPageChange()
    Dim i As Integer
    Dim xlApp As Excel.Application
    Dim xlWorkBook As Object
    Dim Test As Object

    'i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
    'If i <> i Then Exit Sub

    Test = 0
    Set xlApp = New Excel.Application
    Set xlWorkBook = xlApp.Workbooks.Open("C:\Users\Michael\Documents\Wallboard Test Data.xlsx", True, False)
    Set Test = xlWorkBook.sheets("Hall of Fame").Select.Range("B2").Value

    MsgBox Test
End Sub

【问题讨论】：

应该不会太难。你坚持哪一部分？向我们展示您迄今为止尝试过的代码。
我已经添加了
删除.value，因为Test是一个对象，然后使用Msgbox Test.Value。现在您可以使用Val(Test.Value)>0 作为条件

标签： excel vba powerpoint

【解决方案1】：

Siddharth Rout "删除 .value 因为 Test 是一个对象，然后使用 Msgbox Test.Value 。现在你可以使用 Val(Test.Value)>0 作为条件"

【讨论】：