2010-09-24 36 views
1

我有一個powerpoint pres,它可以在按下按鈕時抓取excel表格中的一些數據。在powerpoint和excel之間交換變量VBA

Set EXL = New Excel.Application 
EXL.Visible = False 

Dim XLApp As Excel.Application 

Set XLApp = GetObject(, "Excel.Application") 

這是我如何設置新的Excel應用程序。

我想知道的是,我可以通過我的powerpoint幻燈片將變量發送到excel工作簿?我在我的PowerPoint幻燈片中有textfield,我希望文本在excel中的變量中使用。這可能嗎?如果是這樣,怎麼樣?

我如何從一個powerpoint模塊調用excel工作簿中的一個Sub來運行?

回答

2

(這是從Access數據庫的一些簡化的生產代碼,PowerPoint中可能有一些細微差別)

What I'm wondering is how I can send over a variable from my powerpoint slide into the excel workbook?

Sub SetXLCellValue(_ 
    FileStr As String, _ 
    TabStr As String, _ 
    Cell As String) 

    Dim XLApp As New Excel.Application 
    Dim ObjXL As Excel.Workbook 
    Set ObjXL = XLApp.Workbooks.Open(FileStr) 

    ObjXL.Worksheets(TabStr).Range(Cell).value = value 
    ObjXL.Save 
    ObjXL.Close True 
End Sub 
0

至於調用您的Excel應用程序中的子,你可以使用

XLApp.Run("MySub") 

這也有能力傳遞參數給方法(intellisense應該告訴你的方式)