Need VBA code help in For Loop and Sap Scripting Please check and help me

A

ahmed18

Board Regular
Joined
Jul 13, 2016
Messages
72
Hello All

I want to make automation of importing files from sap to excel with Different company code and Account # so as i have make a macro but it not working properly so please check the Codes and help me and also i have enclosed the screen shot of excel sheets and my codes as well

Please help me in error and guide me

Screen shot of My excel sheet

Excel 2012
ABCDEFG
Company CodeAccountGCLCYearName to be Saved GCName to be Saved GC
FR40"12011000 30_" & WorksheetFunction.Substitute(WorksheetFunction.Text(Now(), "mm_dd_yyyy"), " ", "_") & ".xls""12011000 10_" & WorksheetFunction.Substitute(WorksheetFunction.Text(Now(), "mm_dd_yyyy"), " ", "_") & ".xls"
FR40"12011000 30_" & WorksheetFunction.Substitute(WorksheetFunction.Text(Now(), "mm_dd_yyyy"), " ", "_") & ".xls""12011000 10_" & WorksheetFunction.Substitute(WorksheetFunction.Text(Now(), "mm_dd_yyyy"), " ", "_") & ".xls"
FR40"12016000 30_" & WorksheetFunction.Substitute(WorksheetFunction.Text(Now(), "mm_dd_yyyy"), " ", "_") & ".xls""12016000 10_" & WorksheetFunction.Substitute(WorksheetFunction.Text(Now(), "mm_dd_yyyy"), " ", "_") & ".xls"
FR40"12016000 30_" & WorksheetFunction.Substitute(WorksheetFunction.Text(Now(), "mm_dd_yyyy"), " ", "_") & ".xls""12016000 10_" & WorksheetFunction.Substitute(WorksheetFunction.Text(Now(), "mm_dd_yyyy"), " ", "_") & ".xls"

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
[TD="align: center"]1[/TD]

[TD="align: center"]2[/TD]

[TD="align: right"]12011000[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]2016[/TD]

[TD="align: center"]3[/TD]

[TD="align: right"]12011000[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]2016[/TD]

[TD="align: center"]4[/TD]

[TD="align: right"]12016000[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]2016[/TD]

[TD="align: center"]5[/TD]

[TD="align: right"]12016000[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]2016[/TD]

</tbody>
Sheet1​



Vba codes are below

Code: 
Sub SAPLoginMacro() 'DESIGNED TO LOG IN & EXTRACT DATA FROM SAP USING USER LOGIN AND PASSWORD

Dim stSapUName As String, stSapPW As String
Dim SapguiApp As Object, connection As Object, session As Object


Dim lastcouumn As Integer
Dim lastrow As Long


     
     
    
stSapUName = InputBox("Please enter your SAP User name", "SAP User Name")
stSapPW = InputBox("Please enter your SAP Password", "SAP Password")






On Error GoTo errFailed
    '****************************************************************************************
    'ESTABLISH CONNECTION TO SAP                                                            *
    '****************************************************************************************
    Set SapguiApp = CreateObject("Sapgui.ScriptingCtrl.1")
    Set connection = SapguiApp.OpenConnection("LH1", True)
    Set session = connection.Children(0)
    
On Error GoTo 0




    With session
        '************************************************************************************
        'LOGON TO SAP                                                                       *
        '************************************************************************************
        .findById("wnd[0]/usr/txtRSYST-BNAME").Text = stSapUName
        .findById("wnd[0]/usr/pwdRSYST-BCODE").Text = stSapPW
        .findById("wnd[0]").sendVKey 0
    
        '************************************************************************************
        'PROCESSES THE POPUP IF MULTIPLE LOGINS DETECTED                                    *
        '************************************************************************************
        If .Children.Count > 1 Then
            .findById("wnd[1]/usr/radMULTI_LOGON_OPT1").Select
            .findById("wnd[1]/tbar[0]/btn[0]").press
        End If
    
        '************************************************************************************
        'NAVIGATES TO THE TCODE                                                    *
        '************************************************************************************
            .findById("wnd[0]").maximize
            .findById("wnd[0]/tbar[0]/okcd").Text = "fs10n"
            .findById("wnd[0]").sendVKey 0
            
        
        On Error Resume Next
        '************************************************************************************
        'SELECTS THE FILE TYPE SPREADSHEET AND SAVES FILE TO HARD DRIVE                     *
        '************************************************************************************
        .findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").pressToolbarContextButton _
        "&MB_EXPORT"
            
            
            For i = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
            lastrow = ActiveSheet.Range(Rows.Count).End(xlUp).Row
            
            
            
            
            
            On Error Resume Next
            
            
     
'       lastColumn = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column
'       lastRow = ActiveSheet.Range( Rows.Count).End(xlUp).Row
'       For i = 0
'       A1 = range(
        session.findById("wnd[0]/usr/ctxtSO_SAKNR-LOW").Text = Cells(i, 2).Value
        session.findById("wnd[0]/usr/ctxtSO_BUKRS-LOW").Text = Cells(i, 1).Value
        session.findById("wnd[0]/usr/txtGP_GJAHR").Text = Cells(i, 5).Value
        session.findById("wnd[0]/usr/ctxtSO_GSBER-LOW").SetFocus
        session.findById("wnd[0]/usr/ctxtSO_GSBER-LOW").caretPosition = 0
        session.findById("wnd[0]").sendVKey 19
        session.findById("wnd[0]/usr/ctxtGP_CURTP").Text = Cells(i, 3).Value
        session.findById("wnd[0]/usr/ctxtGP_CURTP").SetFocus
        session.findById("wnd[0]/usr/ctxtGP_CURTP").caretPosition = 2
        session.findById("wnd[0]/tbar[1]/btn[8]").press
        session.findById("wnd[0]/usr/cntlFDBL_BALANCE_CONTAINER/shellcont/shell").pressToolbarContextButton "&MB_EXPORT"
        session.findById("wnd[0]/usr/cntlFDBL_BALANCE_CONTAINER/shellcont/shell").selectContextMenuItem "&PC"
        session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").Select
        session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").SetFocus
        session.findById("wnd[1]/tbar[0]/btn[0]").press
        
        .findById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\Users\YOUR USERID HERE\12011000\"
        .findById("wnd[1]/usr/ctxtDY_FILENAME").Text = Cells(i, 6).Value & ".xls"
        session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 2
        session.findById("wnd[1]/tbar[0]/btn[0]").press
        session.findById("wnd[0]").sendVKey 3
        session.findById("wnd[0]/usr/ctxtGP_CURTP").Text = Cells(i, 4).Value
        session.findById("wnd[0]/usr/ctxtGP_CURTP").SetFocus
        session.findById("wnd[0]/usr/ctxtGP_CURTP").caretPosition = 2
        session.findById("wnd[0]/tbar[1]/btn[8]").press
        session.findById("wnd[0]/usr/cntlFDBL_BALANCE_CONTAINER/shellcont/shell").pressToolbarContextButton "&MB_EXPORT"
        session.findById("wnd[0]/usr/cntlFDBL_BALANCE_CONTAINER/shellcont/shell").selectContextMenuItem "&PC"
        session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").Select
        session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").SetFocus
        session.findById("wnd[1]/tbar[0]/btn[0]").press
        
        .findById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\Users\YOUR USERID HERE\12011000\"
        .findById("wnd[1]/usr/ctxtDY_FILENAME").Text = Cells(i, 7).Value & ".xls"
     '"Muzzu_" & WorksheetFunction.Substitute(WorksheetFunction.Text(Now(), "mm_dd_yyyy"), " ", "_") & ".xls"
        session.findById("wnd[0]").sendVKey 3
     
     
     'i = i + 1
     
     Next i
    
    
    


    End With


    On Error GoTo 0
    '****************************************************************************************
    'CLEAR ALL SET VARIABLES                                                                *
    '****************************************************************************************
    Set session = Nothing
    Set connection = Nothing
    Set SapguiApp = Nothing
    
    
    
           


'********************************************************************************************
'DISPLAY ERROR HANDLING MESSAGE BOX                                                        *
'********************************************************************************************
errFailed:
    MsgBox "The connection to SAP has been halted by the user."
    
    
    


End Sub

Below is the link where u can find the my excel sheet and code in it

https://app.box.com/s/eekvctxswoija2xoi5rzhy34k4obv9nh

Thanks in advance
Ahmed Muzamil:)
 
Last edited by a moderator:
Sort by date Sort by votes
Try this...

Code: 
Sub SAPLoginMacro() 'DESIGNED TO LOG IN & EXTRACT DATA FROM SAP USING USER LOGIN AND PASSWORD

Dim lastRow As Long
Dim j As Integer, i As Integer
Dim myPath As String, myFile As String
Dim stSapUName As String, stSapPW As String, stUserId As String
Dim SapguiApp As Object, connection As Object, session As Object, wbName As Object
    
stSapUName = InputBox("Please enter your SAP User name", "SAP User Name")
stSapPW = InputBox("Please enter your SAP Password", "SAP Password")


lastRow = Range("A" & Rows.Count).End(xlUp).Row


stUserId = (Environ$("Username"))  'GATHER ID OF CURRENTLY LOGGED IN USER


On Error GoTo errFailed
    '****************************************************************************************
    'ESTABLISH CONNECTION TO SAP                                                            *
    '****************************************************************************************
    Set SapguiApp = CreateObject("Sapgui.ScriptingCtrl.1")
    Set connection = SapguiApp.OpenConnection("LH1", True)
    Set session = connection.Children(0)
    
On Error GoTo 0


    With session
        '************************************************************************************
        'LOGON TO SAP                                                                       *
        '************************************************************************************
        .findById("wnd[0]/usr/txtRSYST-BNAME").Text = stSapUName
        .findById("wnd[0]/usr/pwdRSYST-BCODE").Text = stSapPW
        .findById("wnd[0]").sendVKey 0
    
        '************************************************************************************
        'PROCESSES THE POPUP IF MULTIPLE LOGINS DETECTED                                    *
        '************************************************************************************
        If .Children.Count > 1 Then
            .findById("wnd[1]/usr/radMULTI_LOGON_OPT1").Select
            .findById("wnd[1]/tbar[0]/btn[0]").press
        End If
    End With


For j = 3 To 4
    For i = 2 To lastRow
    
        myPath = "C:\Users\" & stUserId & "\" & Cells(i, 1).Value & "\"
        myFile = Range("A" & i).Value & " " & Cells(i, j).Value & "_" & Format(Now(), "mm_dd_yyyy") & ".xls"
        
        If Dir(myPath) = "" Then MkDir (myPath)
    
        With session
            '************************************************************************************
            'NAVIGATES TO THE TCODE                                                             *
            '************************************************************************************
            .findById("wnd[0]").maximize
            .findById("wnd[0]/tbar[0]/okcd").Text = "/NFS10N"
            .findById("wnd[0]").sendVKey 0
    
            '************************************************************************************
            'SELECTS THE FILE TYPE SPREADSHEET AND SAVES FILE TO HARD DRIVE                     *
            '************************************************************************************
            .findById("wnd[0]/usr/ctxtSO_SAKNR-LOW").Text = Range("B" & i).Value
            .findById("wnd[0]/usr/ctxtSO_BUKRS-LOW").Text = Range("A" & i).Value
            .findById("wnd[0]/usr/txtGP_GJAHR").Text = Range("E" & i).Value
            .findById("wnd[0]/usr/ctxtSO_GSBER-LOW").SetFocus
            .findById("wnd[0]/usr/ctxtSO_GSBER-LOW").caretPosition = 0
            .findById("wnd[0]").sendVKey 19
            .findById("wnd[0]/usr/ctxtGP_CURTP").Text = Cells(i, j).Value
            .findById("wnd[0]/usr/ctxtGP_CURTP").SetFocus
            .findById("wnd[0]/usr/ctxtGP_CURTP").caretPosition = 2
            .findById("wnd[0]/tbar[1]/btn[8]").press
            .findById("wnd[0]/usr/cntlFDBL_BALANCE_CONTAINER/shellcont/shell").pressToolbarContextButton "&MB_EXPORT"
            .findById("wnd[0]/usr/cntlFDBL_BALANCE_CONTAINER/shellcont/shell").selectContextMenuItem "&PC"
            .findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").Select
            .findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").SetFocus
            .findById("wnd[1]/tbar[0]/btn[0]").press
            .findById("wnd[1]/usr/ctxtDY_PATH").Text = myPath
            .findById("wnd[1]/usr/ctxtDY_FILENAME").Text = myFile
            .findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 2
            .findById("wnd[1]/tbar[0]/btn[0]").press
        End With
        
        For Each wbName In Application.Workbooks()
             'Debug.Print wbName.Name
            If wbName.Name <> ThisWorkbook.Name Then wbName.Close
        Next
            
    Next i
Next j


    '****************************************************************************************
    'CLEAR ALL SET VARIABLES                                                                *
    '****************************************************************************************
    Set session = Nothing
    Set connection = Nothing
    Set SapguiApp = Nothing


'********************************************************************************************
'DISPLAY ERROR HANDLING MESSAGE BOX                                                        *
'********************************************************************************************
errFailed:
    MsgBox "The connection to SAP has been halted by the user."
 End Sub
 
Last edited:
Upvote 0
Hello SIr,
Thanks its working,, i have 2 more issue with this code.. can you please read below and help me..

1.Can i change this pathe
Code: 
myPath = "C:\Users\" & stUserId & "\" & Cells(i, 1).Value & "\"
as every time it will create the folder and have to delete , Con't we code like all file to save in one folder only as the folder exits already in laptop

2.If example:
Company COde:FR40
Account # 12011000
Click to expand...
has no balance to show in SAP for whole year when i run the macro it will stop..In SAP it will show like "
No data read for fiscal year 2016 (long text)
Click to expand...
and macro will stop will not got to next line

As if this case happens What can we do to do macro to go next line, any code can we add in SAP script sir..
Please help me

Thanks
Ahmed
 
Last edited:
Upvote 0
ahmed18 said:
Hello SIr,
Thanks its working,, i have 2 more issue with this code.. can you please read below and help me..

1.Can i change this pathe
Code: 
myPath = "C:\Users\" & stUserId & "\" & Cells(i, 1).Value & "\"
as every time it will create the folder and have to delete , Con't we code like all file to save in one folder only as the folder exits already in laptop

2.If example:
has no balance to show in SAP for whole year when i run the macro it will stop..In SAP it will show like " and macro will stop will not got to next line

As if this case happens What can we do to do macro to go next line, any code can we add in SAP script sir..
Please help me

Thanks
Ahmed
Click to expand...

Ok... the path can be hard coded to what ever you want it to be... do you have a folder already that they save this too? if so what is the entire path to this folder?

The following error handlers (in red) should help with any error due to lack of data...

Code: 
[COLOR=#333333]Sub SAPLoginMacro() 'DESIGNED TO LOG IN & EXTRACT DATA FROM SAP USING USER LOGIN AND PASSWORD
[/COLOR]
Dim lastRow As Long
Dim j As Integer, i As Integer
Dim myPath As String, myFile As String
Dim stSapUName As String, stSapPW As String, stUserId As String
Dim SapguiApp As Object, connection As Object, session As Object, wbName As Object
    
stSapUName = InputBox("Please enter your SAP User name", "SAP User Name")
stSapPW = InputBox("Please enter your SAP Password", "SAP Password")

lastRow = Range("A" & Rows.Count).End(xlUp).Row

stUserId = (Environ$("Username"))  'GATHER ID OF CURRENTLY LOGGED IN USER

On Error GoTo errFailed
    '****************************************************************************************
    'ESTABLISH CONNECTION TO SAP                                                            *
    '****************************************************************************************
    Set SapguiApp = CreateObject("Sapgui.ScriptingCtrl.1")
    Set connection = SapguiApp.OpenConnection("LH1", True)
    Set session = connection.Children(0)
    
On Error GoTo 0

    With session
        '************************************************************************************
        'LOGON TO SAP                                                                       *
        '************************************************************************************
        .findById("wnd[0]/usr/txtRSYST-BNAME").Text = stSapUName
        .findById("wnd[0]/usr/pwdRSYST-BCODE").Text = stSapPW
        .findById("wnd[0]").sendVKey 0
    
        '************************************************************************************
        'PROCESSES THE POPUP IF MULTIPLE LOGINS DETECTED                                    *
        '************************************************************************************
        If .Children.Count > 1 Then
            .findById("wnd[1]/usr/radMULTI_LOGON_OPT1").Select
            .findById("wnd[1]/tbar[0]/btn[0]").press
        End If
    End With

[COLOR=#ff0000]On Error Resume Next[/COLOR]

For j = 3 To 4
    For i = 2 To lastRow
    
        myPath = [B][COLOR=#ff0000]"C:\Users\" & stUserId & "\" & Cells(i, 1).Value & "\" 'LET ME KNOW WHAT THE ENTIRE PATH IS AND i CAN HELP YOU PLACE IT THERE[/COLOR][/B]
        myFile = Range("A" & i).Value & " " & Cells(i, j).Value & "_" & Format(Now(), "mm_dd_yyyy") & ".xls"
        
        If Dir(myPath) = "" Then MkDir (myPath)
    
        With session
            '************************************************************************************
            'NAVIGATES TO THE TCODE                                                             *
            '************************************************************************************
            .findById("wnd[0]").maximize
            .findById("wnd[0]/tbar[0]/okcd").Text = "/NFS10N"
            .findById("wnd[0]").sendVKey 0
    
            '************************************************************************************
            'SELECTS THE FILE TYPE SPREADSHEET AND SAVES FILE TO HARD DRIVE                     *
            '************************************************************************************
            .findById("wnd[0]/usr/ctxtSO_SAKNR-LOW").Text = Range("B" & i).Value
            .findById("wnd[0]/usr/ctxtSO_BUKRS-LOW").Text = Range("A" & i).Value
            .findById("wnd[0]/usr/txtGP_GJAHR").Text = Range("E" & i).Value
            .findById("wnd[0]/usr/ctxtSO_GSBER-LOW").SetFocus
            .findById("wnd[0]/usr/ctxtSO_GSBER-LOW").caretPosition = 0
            .findById("wnd[0]").sendVKey 19
            .findById("wnd[0]/usr/ctxtGP_CURTP").Text = Cells(i, j).Value
            .findById("wnd[0]/usr/ctxtGP_CURTP").SetFocus
            .findById("wnd[0]/usr/ctxtGP_CURTP").caretPosition = 2
            .findById("wnd[0]/tbar[1]/btn[8]").press
            .findById("wnd[0]/usr/cntlFDBL_BALANCE_CONTAINER/shellcont/shell").pressToolbarContextButton "&MB_EXPORT"
            .findById("wnd[0]/usr/cntlFDBL_BALANCE_CONTAINER/shellcont/shell").selectContextMenuItem "&PC"
            .findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").Select
            .findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").SetFocus
            .findById("wnd[1]/tbar[0]/btn[0]").press
            .findById("wnd[1]/usr/ctxtDY_PATH").Text = myPath
            .findById("wnd[1]/usr/ctxtDY_FILENAME").Text = myFile
            .findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 2
            .findById("wnd[1]/tbar[0]/btn[0]").press
        End With
        
        For Each wbName In Application.Workbooks()
             'Debug.Print wbName.Name
            If wbName.Name <> ThisWorkbook.Name Then wbName.Close
        Next
            
    Next i
Next j

[COLOR=#ff0000]On Error GoTo 0[/COLOR][COLOR=#ff0000]
[/COLOR]    '****************************************************************************************
    'CLEAR ALL SET VARIABLES                                                                *
    '****************************************************************************************
    Set session = Nothing
    Set connection = Nothing
    Set SapguiApp = Nothing

Exit Sub
'********************************************************************************************
'DISPLAY ERROR HANDLING MESSAGE BOX                                                        *
'********************************************************************************************
errFailed:
    MsgBox "The connection to SAP has been halted by the user." 

[COLOR=#333333] End Sub[/COLOR]
 
Last edited:
Upvote 0
ahmed18 said:
The entire path of the folder is or any one can be done sir,,

Please tell sir..

Thanks
Ahmed
Click to expand...

So every file from SAP will be loaded into the 12011000 account folder? What if it is for a different account?

Regardless, if these are the folders you want to save this to and they exist already then use one of the following:

REPLACE:
Code: 
[COLOR=#333333]        myPath = [/COLOR][B][COLOR=#ff0000]"C:\Users\" & stUserId & "\" & Cells(i, 1).Value & "\" 'LET ME KNOW WHAT THE ENTIRE PATH IS AND i CAN HELP YOU PLACE IT THERE
[/COLOR][/B]        myFile = Range("A" & i).Value & " " & Cells(i, j).Value & "_" & Format(Now(), "mm_dd_yyyy") & ".xls"
         [COLOR=#333333]        If Dir(myPath) = "" Then MkDir (myPath)[/COLOR]

WITH:
Code: 
[COLOR=#333333]        myPath = "[/COLOR][COLOR=#574123][I]C:\1201\"
[/I][/COLOR]        myFile = Range("A" & i).Value & " " & Cells(i, j).Value & "_" & Format(Now(), "mm_dd_yyyy") & ".xls"
         [COLOR=#333333]        'If Dir(myPath) = "" Then MkDir (myPath)[/COLOR]

OR:
Code: 
[COLOR=#333333]        myPath =[/COLOR] "C:\Users\" & stUserId & "[I]\12011000\"[/I]        
        myFile = Range("A" & i).Value & " " & Cells(i, j).Value & "_" & Format(Now(), "mm_dd_yyyy") & ".xls"
         [COLOR=#333333]       'If Dir(myPath) = "" Then MkDir (myPath)[/COLOR]
 
Last edited:
Upvote 0
Sir, Got little problem for same above code..
If i run the macro the file its not saving and its showing the error in SAP like
An action triggered by the server was denied based on a rule
Click to expand...

What to do sir,,?
 
Upvote 0
Looks like something from SAP causing the issue... might be a rule set on the server preventing something your doing... when does that error trigger? IS it based on a line of code within the macro?
 
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Solved
VBA - how to add a copy and paste values on current module
Replies
2
Views
233
Minx_Minxy
M
M
  • Solved
Macro stops after message box appear
Replies
3
Views
749
bobsan42
bobsan42
J
  • Question Question
SAP coding
Replies
2
Views
441
Jordan2
J
T
  • Question Question
Workbook not visible by VBA
Replies
5
Views
794
Artik
Artik
T
  • Question Question
Macro to download SAP report to Excel
Replies
0
Views
3K
texasguy66
T

Forum statistics

Threads
1,226,894
Messages
6,193,543
Members
453,807
Latest member
PKruger

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top