BEX query runs using parameters entered by user in an Excel spreadsheet

Question

I'm trying to write a macro to automate certain functions for our users.</br>
</br>
Essentially, the users would enter numbers (relating to clients) in column A and e-mail adresses in column B.  A set of reports would run based on the first number entered, then the workbook would be saved and e-mailed to the first address in column B.  This would be repeated for the 2nd number/address and so on...  All Bex reports are in the same workbook.  At this point, I'm having a lot of problems finding code that will fill in the Bex query parameters automatically based on inputs in the spreadsheet.  Here is what I've worked up so far for the macro:</br>
</br>
Option Explicit</br>
</br>
'Macro step 1 u2013 run workbook for client number input and continue</br>
'EXAMPLE u2013 cell A3 = 1008, cell A4 = 1240</br>
'All BW queries should run based on the input given in column A (beginning wth A3).</br>
</br>
</br>
'Macro step 2 u2013 create directory for the new files and save the first file</br>
'     This step will allow the user to save the new files in a new folder in an existing directory, or even to create a new directory:</br>
</br>
Function GetFolderPath() As String</br>
    Dim oShell As Object</br>
    Set oShell = CreateObject("Shell.Application"). _</br>
    BrowseForFolder(0, "Please select folder", 0, "c:
")</br>
    If Not oShell Is Nothing Then</br>
        GetFolderPath = oShell.Items.Item.Path</br>
    Else</br>
        GetFolderPath = vbNullString</br>
    End If</br>
    Set oShell = Nothing</br>
End Function</br>
</br>
Sub Testxl()</br>
    Dim FName As String</br>
    Dim WbName As String</br>
    Dim Search As String</br>
    Dim Prompt As String</br>
    Dim Title As String</br>
    Dim MyDir1 As String</br>
    Dim MyDir2 As String</br>
    Dim Passed As Long</br>
     </br>
On Error GoTo Err:</br>
     </br>
    FName = GetFolderPath</br>
    If FName <> vbNullString Then</br>
        Prompt = "Please Select a FileName"</br>
        Title = "Name"</br>
        Search = InputBox(Prompt, Title)</br>
        If Search = "" Then Exit Sub</br>
    End If</br>
    FName = FName & "\" & Search</br>
    MkDir FName</br>
    ActiveWorkbook.SaveAs FName & "\" & Search & ".xls"</br>
     </br>
     'Test for existence of new folders.files</br>
    Passed = 1</br>
    GetAttr (FName)</br>
    Passed = 2</br>
    GetAttr (FName & "\" & Search & ".xls")</br>
    Passed = 3</br>
    GetAttr (ActiveWorkbook.Path & MyDir1)</br>
    Passed = 4</br>
    GetAttr (ActiveWorkbook.Path & MyDir2)</br>
</br>
    End</br>
     'Sheets("Sheet1").Range("B1").Value = Search **Add if you require the name to be recorded in your spreadsheet</br>
Err:</br>
    Select Case Err</br>
    Case 53:           MsgBox "File/Folder not created. Failed at step " & Passed</br>
    Case 75:    MsgBox "Folder already exists"</br>
    End Select</br>
End Sub</br>
</br>
'Macro step 3 u2013 save workbook</br>
ActiveWorkbook.Save</br>
</br>
'Macro step 4 u2013 e-mail workbook</br>
'EXAMPLE u2013 cell B3 = amay@email, cell B4 = bmay@email</br>
'The workbook should e-mail based on the input given in column B (beginning wth B3).</br>
wb.SendMail  u201Ccell B3u201D</br>
</br>
'Macro step 5 u2013repeat until no inputs remain</br>
'EXAMPLE u2013 cell A3 = 1008, cell A4 = 1240</br>
'Steps 1-4 should repeat for cell A4, then A5 (if necessary) and so on until no more inputs remain.  </br>
</br>
</br>
If anyone has any advice I'd love to try it out.</br>
</br>
Thank you for your time.</br>
Andy
Edited by: AndyMay on Jul 14, 2009 5:08 PM - I inserted html breaks

Answer 1

Option Explicit</br>
</br>
Sub KeyClient()</br>
</br>
'Macro step 1 - filter workbook for client number input and continue</br>
'EXAMPLE - cell B3 = 1008, cell B4 = 2048</br>
'All BW queries should run based on the input given in column B (beginning wth B3).</br>
</br>
'define x and begin loop</br>
Dim i, x As Integer</br>
Dim curCell As Range</br>
    For x = 3 To 22</br>
    Set curCell = Worksheets("Input").Cells(x, 2)</br>
</br>
'stop BW from refreshing until we are finished</br>
    Run "SAPBEX.XLA!SAPBEXPauseOn"</br>
    Run "SAPBEx.XLA!SAPBEXsetFilterValue", curCell, "", Sheets("Client Contribution").Range("C9")</br>
'BW resumes refreshing</br>
    Run "SAPBEX.XLA!SAPBEXPauseOff"</br>