如何在PowerPoint中访问Excel单元格中的数据(使用VB6.3)

Sub AccessExcelData()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim cellValue As Variant
    
    ' 创建Excel对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set xlWorkbook = xlApp.Workbooks.Open("C:\路径\文件名.xlsx")
    
    ' 选择要访问的工作表
    Set xlWorksheet = xlWorkbook.Sheets("工作表名称")
    
    ' 读取单元格A1中的数据
    cellValue = xlWorksheet.Range("A1").Value
    
    ' 在PowerPoint中显示数据
    MsgBox cellValue
    
    ' 关闭Excel文件
    xlWorkbook.Close
    
    ' 退出Excel应用程序
    xlApp.Quit
    
    ' 释放对象
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
End Sub