VBA and excel

Status
Not open for further replies.

priya_anthony

Board Regular
Joined
Jul 17, 2007
Messages
64
Hi experts need your help

i m looking to get the data from SAP and display it on to a grid so can i use a data grid for the same if so how can that be done
kindly help im just posting the code below if anything can be done to get the same below code uses a msgboc saying data found i would require a grid to display the same so
kindly help..............

Private Sub callBAPI()

Dim oBAPIHelp
Dim oIAstnr As Object, oIAstna As Object 'Input parameters
Dim oReturn As Table, oMessages As Table, _
oApplHelp As Table 'Output parameters



If Not CheckSAPConnection Then
Exit Sub
End If

'Make an instance of SAP object

Set oBAPIHelp = objBAPIControl.GetSAPObject("BAPISHELP")

'Set input parameters of the BAPI
I_ASTNR = frmApplicant.txtApplicantNo.Text
I_ASTNA = frmApplicant.txtApplicantName.Text



'Get a reference to the output parameters so they can be consulted
'after calling the BAPI
Set oApplHelp = objBAPIControl.DimAs(oBAPIHelp, "ApplicantHelp", "APPLHELP")
Set oMessages = objBAPIControl.DimAs(oBAPIHelp, "ApplicantHelp", "MESSAGES")
Set oReturn = objBAPIControl.DimAs(oBAPIHelp, "ApplicantHelp", "RETURN")


'Call object's method with applicant name *Care*
oBAPIHelp.ApplicantHelp _
IAstnr:="", _
IAstna:="*Care*", _
ApplHelp:=oApplHelp, _
MESSAGES:=oMessages, _
RETURN:=oReturn

For Each Row In oApplHelp.Rows
If oApplHelp.RowCount > 0 Then

MsgBox "Data found"
Else
On Error Resume Next
MsgBox "Errors."
End If
Next
End Sub
 

Some videos you may like

Excel Facts

Excel motto
Not everything I do at work revolves around Excel. Only the fun parts.
Status
Not open for further replies.

Watch MrExcel Video

Forum statistics

Threads
1,123,337
Messages
5,601,026
Members
414,422
Latest member
acegreen

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
Top