excel - 使用 PowerPoint VBA 检查 Excel 中的数据

Question

我有一个 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

标签： excelvbapowerpoint

Answer 1

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