Create buttons in the workbook?

Question

Hello Experts,
Any information on how to create buttons to point to workbooks. These bottons correspond to different WorkBooks (not worksheets within workbook )
button1: WorkBook1
button2 : WorkBook2.
Thanks,
Sweatha

Answer 1

Hi Sweatha,
Are the workbooks already open?
Are the workbooks stored on a local PC or LAN drive (and referred to using Microsoft reference), or are they stored on BW server (and referred to using SAP server ID)?
If the workbooks are already open:
Code behind button #1:
Private Sub CommandButton1_Click()
    ActiveCell.Activate
    Workbooks(Workbook1).Activate
End Sub
Code behind button #2:
Private Sub CommandButton2_Click()
    ActiveCell.Activate
    Workbooks(Workbook2).Activate
End Sub
If the workbooks are stored on PC or LAN as *.xls files:
Code behind button #1:
Private Sub CommandButton1_Click()
Dim FileToOpen as String
    ActiveCell.Activate
    FileToOpen = Workbook1 'full path + name
    Workbooks.Open FileName:=FileToOpen
End Sub
Code behind button #2:
Private Sub CommandButton2_Click()
Dim FileToOpen as String
    ActiveCell.Activate
    FileToOpen = Workbook2 'full path + name
    Workbooks.Open FileName:=FileToOpen
End Sub
If the workbooks are stored on BW server and referred to using SAP server ID
Code behind button #1:
Private Sub CommandButton1_Click()
Dim wbID as string
    ActiveCell.Activate
    wbID = Workbook1 'example: "2A024RULBDK33U5BNZH60RATU"
    Run "SAPBEX.XLA!SAPBEXreadWorkbook", wbID
End Sub
Code behind button #2:
Private Sub CommandButton2_Click()Dim wbID as string
    ActiveCell.Activate
    wbID = Workbook2 'example: "2A024RULBDK33U5BNZH60RATT"
    Run "SAPBEX.XLA!SAPBEXreadWorkbook", wbID
End Sub
Regards, Pete