如何從 PowerPoint 中的 Excel 單元格訪問數據（使用 VB 6.3）

Question

我想從 Excel 訪問數據以在 powerpoint 中使用。 我找到了本教程https://www.datanumen.com/blogs/2-effective-methods-to-extract-numbers-from-your-excel-cells/ ，但它描述了如何單獨在 Excel 中使用它：

Sub ExtractNumbersFromCells()
  Dim objRange As Range, nCellLength As Integer, nNumberPosition As Integer, strTargetNumber As String

  '  Initialization
  strTargetNumber = ""

  '  Go through all the cells in the target range
  For Each objRange In Range("B4:B14")
    nCellLength = Len(objRange)

    '  Extract numbers from cells
    For nNumberPosition = 1 To nCellLength
      If IsNumeric(Mid(objRange, nNumberPosition, 1)) Then
        strTargetNumber = strTargetNumber & Mid(objRange, nNumberPosition, 1)
      End If
    Next nNumberPosition

    objRange.Offset(0, 1) = strTargetNumber
    strTargetNumber = ""
  Next objRange
End Sub

例如，我在行上有我的值：B4:B14 ... 我想在 PowerPoint 中處理它們。 怎么做？

Answer 1

這是從 PPT 自動化 Excel 的一個非常基本的示例：

'Requires VBA Project reference to "Microsoft Excel xx.0 Object Library"
Sub Tester()

    Dim xlApp As Excel.Application
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
    Dim x As Long
    
    Set xlApp = New Excel.Application    'open Excel
    xlApp.Visible = True                 'make visible
    
    Set wb = xlApp.Workbooks.Open("C:\Temp\Test.xlsx") 'open a workbook
    Set ws = wb.Worksheets("Sheet1")                   'get a worksheet reference
    
    For x = 1 To 5                       'loop over a range
        Debug.Print ws.Cells(x, 1).Value 'read cell value
    Next x
    
    wb.Close False                       'don't save changes
    xlApp.Quit                           'close excel
    
End Sub

您可以在網上找到的大多數 VBA 示例都涵蓋了從 Excel 自動化 PPT（因為使用 Excel 數據自動化創建演示文稿是一個常見用例）。