我想從 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 中處理它們。怎么做？
uj5u.com熱心網友回復：
這是從 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 資料自動化創建演示文稿是一個常見用例）。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/313371.html
上一篇：從關閉的作業簿復制變數范圍
下一篇：如何計算費用excel-VBA