使用 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

Answer 1

Siddharth Rout“刪除 .value 作為 Test 是一個對象，然后使用 Msgbox Test.Value 。現在您可以使用 Val(Test.Value)>0 作為條件”