Issue with My VB Code when connecting to SAP

Hi Guys: I am trying to upload Customer Master Data information into SAP from Excel using VB. Here is my code.
Private Sub CommandButton3_Click()
' Getting the last filled Row in Column A
vLastRow = Cells(Rows.Count, "A").End(xlUp).Row
' Setting the necessary variables for R/3 connection
Set objBAPICortrol = CreateObject("SAP.Functions")
Set objConnection = objBAPICortrol.connection
' Establish a connection
If objConnection.Logon(0, False) Then
MsgBox "Connection Established"
End If
On Error Resume Next
' Assign the Parameters
Set objCreateCustomer = objBAPICortrol.Add("BAPI_CUSTOMER_CREATE")
Set objAccountGroup = objCreateCustomer.Exports("Acct Gr")
Set objCompanyCode = objCreateCustomer.Exports("Co Code")
Set objSalesOrganization = objCreateCustomer.Exports("Sales Org")
Set objDistributionChannel = objCreateCustomer.Exports("Dist Ch")
Set objDivision = objCreateCustomer.Exports("Div")
Set objName = objCreateCustomer.Exports("Name")
Set objStreet = objCreateCustomer.Exports("Street")
Set objHouseNumber = objCreateCustomer.Exports("House Number")
Set objPostalCode = objCreateCustomer.Exports("Postal Code")
Set objCity = objCreateCustomer.Exports("City")
Set objRegion = objCreateCustomer.Exports("Region")
Set objCountry = objCreateCustomer.Exports("Country")
Set objCountyCode = objCreateCustomer.Exports("County Code")
Set objPhone = objCreateCustomer.Exports("Phone")
Set objContact = objCreateCustomer.Exports("Contact")
Set objFax = objCreateCustomer.Exports("Fax")
Set objEmail = objCreateCustomer.Exports("Email")
Set objDirections = objCreateCustomer.Exports("Directions")
Set objCityCode = objCreateCustomer.Exports("City Code")
Set objReconAccount = objCreateCustomer.Exports("Recon Account")
Set objPaymentHistory = objCreateCustomer.Exports("Payment History")
Set objCustomerPricingProcedure = objCreateCustomer.Exports("Cust Pricing Procedure")
Set objCustomerStatisticsGroup = objCreateCustomer.Exports("Cust Stat Group")
Set objIncoTerms = objCreateCustomer.Exports("Inco Terms")
Set objTermsofPayment = objCreateCustomer.Exports("Terms of Payment")
Set objAccountAssignmentGroup = objCreateCustomer.Exports("Acnt Assign Group")
Set objTaxClassification = objCreateCustomer.Exports("Tax Classification")
' Now looping through all values create customer
' The data begin row is set to 2
For vRows = 2 To vLastRow
' Set the Parameter Values
objAccountGroup = ThisWorkbook.ActiveSheet.Cells(vRows, 1).Value
objCompanyCode = ThisWorkbook.ActiveSheet.Cells(vRows, 2).Value
objSalesOrganization = ThisWorkbook.ActiveSheet.Cells(vRows, 3).Value
objDistributionChannel = ThisWorkbook.ActiveSheet.Cells(vRows, 4).Value
objDivision = ThisWorkbook.ActiveSheet.Cells(vRows, 5).Value
objName = ThisWorkbook.ActiveSheet.Cells(vRows, 6).Value
objStreet = ThisWorkbook.ActiveSheet.Cells(vRows, 7).Value
objHouseNumber = ThisWorkbook.ActiveSheet.Cells(vRows, 8).Value
objPostalCode = ThisWorkbook.ActiveSheet.Cells(vRows, 9).Value
objCity = ThisWorkbook.ActiveSheet.Cells(vRows, 10).Value
objRegion = ThisWorkbook.ActiveSheet.Cells(vRows, 11).Value
objCountry = ThisWorkbook.ActiveSheet.Cells(vRows, 12).Value
objCountyCode = ThisWorkbook.ActiveSheet.Cells(vRows, 13).Value
objPhone = ThisWorkbook.ActiveSheet.Cells(vRows, 14).Value
objContact = ThisWorkbook.ActiveSheet.Cells(vRows, 15).Value
objFax = ThisWorkbook.ActiveSheet.Cells(vRows, 16).Value
objEmail = ThisWorkbook.ActiveSheet.Cells(vRows, 17).Value
objDirections = ThisWorkbook.ActiveSheet.Cells(vRows, 18).Value
objCityCode = ThisWorkbook.ActiveSheet.Cells(vRows, 19).Value
objReconAccount = ThisWorkbook.ActiveSheet.Cells(vRows, 20).Value
objPaymentHistory = ThisWorkbook.ActiveSheet.Cells(vRows, 21).Value
objCustomerPricingProcedure = ThisWorkbook.ActiveSheet.Cells(vRows, 22).Value
objCustomerStatisticsGroup = ThisWorkbook.ActiveSheet.Cells(vRows, 23).Value
objIncoTerms = ThisWorkbook.ActiveSheet.Cells(vRows, 24).Value
objTermsofPayment = ThisWorkbook.ActiveSheet.Cells(vRows, 25).Value
objAccountAssignmentGroup = ThisWorkbook.ActiveSheet.Cells(vRows, 26).Value
objTaxClassification = ThisWorkbook.ActiveSheet.Cells(vRows, 27).Value
' Function call
objCreateCustomer.call
' Get return parameters & display in excel
Set objReturn = objCreateCustomer.Imports("RETURN")
ActiveSheet.Cells((vLastRow + vRows), 1) = objReturn.Value("MESSAGE")
' Error handling
If Err Then
MsgBox Err.Description
End If
Next vRows
End Sub
I am getting an error...
"No Connection to SAP available".
PLease advise how I can correct this.
thanks
Brian

hi Brain,
i hope the following URL's will be useful for you
http://www.programmingtalk.com/archive/index.php/t-21399.html
Re: VB and SAP connection with BAPI Active X control
http://help.sap.com/saphelp_46c/helpdata/en/76/4a42f7f16d11d1ad15080009b0fb56/content.htm
Reward points if useful
regards,
Pavan

Similar Messages

Issue with 2wire dsl router when connecting power pc g4 via ethernet

Issue with 2wire dsl router when connecting power pc g4 via ethernet. The 2wire will keep resetting. When I connect my macbook pro via ethernet to the 2wire all is ok, but as soon as i connect the power pc. . . .reset. I have emailed 2wire support. They recommended using a different patch cable. Tried that.. .. anyone else having this issue???? Any help would be appreciated. . .

Search the discussions for issues with 2wire dsl routers. This has come up before in a discussion I've been involved with, but probably not to do with the MDD. I do remember it being a design issue with the router, something that was done to it before dispatch.
Let us know if you can't find it and we'll have a look.
If you afford it, bin the 2wire and go buy something decent like a Netgear.

Issues with Skype & Viber only when connected to m...

Hi there,
I am having serious connection issues on Skype and Viber and can't seem to work out why. Here is my setup:
-I am using a Macbook Air and iPhone 5, both of which were bought in the last year and both of which are completely up to date in terms of software
-On my Macbook Air, I am using the Skype application and Skype through Facebook
-On my iPhone 5, I am using the Skype application, Skype through Facebook and Viber
-On all of these applications, I am connected to BT Infinity with a download speed of 69.5Mb and an upload speed of 17Mb
Despite all of this, I have extremely bad connection on all combinations of device and application. It is not a problem with the two devices as they both work significantly better on other wifi connections. For example, my Dad's broadband is less than 10Mb in terms of download speed and has a terrible router but my iPhone can use Skype almost perfectly. Even on 3G I can call people on Viber through my phone and it's fine. It is also not a problem with the people I am speaking to as they experience no problems with the other people they use Skype or Viber with.
From all of this, I have concluded that it must be my BT connection but my general browsing is largely fine (not perfect) and, having spoken to BT support, it has been confirmed that my connection is officially working as it should be.
So I am completely stumped and extremely frustrated. I need to be able to use Skype and Viber as I have close family and friends living abroad and my conversations with them are spoilt by this issue.
Please could someone give me some advice as I have run out of ideas!
Cheers,
Rich

You shouldn't need to but if you want to try "forgetting" it on your devices then restart the device and remake the connection it might help. Have you tried connecting your mac by Ethernet to see how it performs.
When you first turned off Smart Set Up you said it seemed to be working. Is the slow down time specific? Have you tried a speed test when you get the poor connection. Disconnect from Skype or Viber and run a speed test.
http://speedtest.btwholesale.com/
You could try turning off "Smart Wireless". Download a Wifi Analyser app for you smartphone or use the free version of inSSider from forum member Keith Beddoe's website here. Sorry it's Windows only.
http://forumhelp.dyndns.info/software/insidder.zip
It will show you the wireless channels and which one your Homehub is on. You want to find the channel with the least congestion, ie. least number of users. Once you have that you need to change your homehub onto that channel.
See link how to change channel on homehub
http://bt.custhelp.com/app/answers/detail/a_id/14094
Another thing to try is Try giving the 2.4Ghz and 5Ghz frequencies different SSids. Just add a 5 to the end of the 5Ghz SSid so you know which is which. Check the 5 GHz Sync with 2.4 GHz: is set to NO.
Once you have done that "forget" the connection and then restart the device and log onto both. The device should then automatically switch to the strongest signal.
You'll need to connect your other devices that can use both frequencies to both SSids if you want them to be able to use both/either frequencies.
See this link
http://bt.custhelp.com/app/answers/detail/a_id/44798/~/i-have-problems-connecting-5ghz-and-dual-band...

Issue with Cross-Company code transactions and Extended Withholding tax

Hi Gurus,
I am having an issue with Cross-company code transaction while posting expense with 2 different company codes.
In the 2 company codes, one company code is setup for Withholding tax and other was not set.
While posting in FB50, I am getting the below message and system does not allow to post the invoice.
Company codes have different settings for withholding tax treatment
Message no. F5786
Diagnosis
You are entering a document containing at least one vendor or customer item and which has line items in several company codes. The extended withholding tax treatment has been set to active in one of these company codes, but not in one of the other company codes.
System Response
You cannot enter this kind of document.
Procedure
Enter the transaction in two documents.
For this I tried to test the transaction by activating of extended Withholding tax for both the company codes. Then the invoice is posting correctly now.
The point is if I activate extended withholding tax for the Company code which is not using the setup, will it face any issues in other areas? and also kindly advice whether is this a right way to set up to fix the current problem.
Thanks for the Support and early response will be appreciated.
JBC.

Hi Mamta,
Thanks for the Response. I think you misunderstood my scenario.
For Eg in FB60 with Co code 5065:
I am debiting the Expenses for Co Code 1000(Witholding tax not active) and crediting the Bank Account of Co Code 5065(Withholding tax setup is done for this co code). When I tried to post with these line items I have getting the error.
Posting        GL                   Co Code
Dr          106520(Exp)            1000
Cr          202020(Bank)           5065
For this I tried by activating the Withholding tax for Co code 1000 which is not active before and post it. The system allows me to post the invoice.
I want to know whether is this a right way to solve this issue and will it impact on any other areas by only activating the Withholding tax for a Co code?
Thanks,
Bapu

HT4623 Does anyone have an issue with your iPhone 5 when trying to play music? Mine won't, on the screen you see the player run through songs very quickly but never playing.... Help!

Does anyone have an issue with your iPhone 5 when trying to play music? Mine won't, on the screen you see the player run through songs very quickly but never playing.... Help!

Try this > Start a song, tap the screen, under the left side of the scrubberbar that appears, tap the icon to stop shuffle.

My iPod touch is having a little issue with the volume. When I plug in my headphones the volume works fine. When there aren't any headphones plugged in, no sound comes out from my iPod. When I go to turn up the volume, it still says headphones. Any tips?

My iPod touch is having a little issue with the volume. When I plug in my headphones the volume works fine. When there aren't any headphones plugged in, no sound comes out from my iPod. When I go to turn up the volume, it still says headphones. I tried restarting it a few times, nothing worked. I looked up many tutorials, and still nothing did the trick. Any tips?

- Try cleaning out/blowing out the headphone jack. Try inserting/removing the plug a dozen times or so.
Try the following to rule out a software problem
- Reset the iPod. Nothing will be lost
Reset iPod touch: Hold down the On/Off button and the Home button at the same time for at
least ten seconds, until the Apple logo appears.
- Reset all settings
Go to Settings > General > Reset and tap Reset All Settings.
All your preferences and settings are reset. Information (such as contacts and calendars) and media (such as songs and videos) aren’t affected.
- Restore from backup
- Restore to factory settings/new iPod.
- Make an appointment at the Genius Bar of an Apple store. Seems you have a bad headphone jack.
Apple Retail Store - Genius Bar
Apple will exchange your iPod for a refurbished one for this price. They do not fix yours.
Apple - iPod Repair price
A third-party place like the following will replace the jack for less. Google for more.
iPhone Repair, Service & Parts: iPod Touch, iPad, MacBook Pro Screens
Replace the jack yourself
iPod Touch Repair – iFixit

I just got the iPhone 5s, I have had a 4 for the last few years, my husband uses a galaxy. I have never had issues with any of our phones connecting the the cars Bluetooth until this one sometimes it will connect and sometimes it won't. I drive a gm car

I just got the iPhone 5s, I have had a 4 for the last few years, my husband uses a galaxy. I have never had issues with any of our phones connecting to the cars Bluetooth until this one sometimes it will connect and sometimes it won't. I drive a gm car. A friend of mine drives an Acura and said she is also having the same problem? I have to connect the phone every time I get in the car.

Turn Off BT on your Phone & ReBoot..
Delete the phone from the vehicles memory..
Restart the Vehicle & go thro' the Pair set up..........

URL issue with Windows 7 Internet Explorer 11 and SAP NW PI 7.

Hello SAP community,
I am facing a strange issue with Windows 7 - Internet Explorer 11 and SAP NW java services (I hope I am in the correct discussion) ...
When I try to open URL http://sapserver.hosters-name:port it is working so far with Windows 7 and Internet Explorer 11.
But when I click than on NWA (example), I am getting "http 500 server error".
I don't have the issue, when I start-up a VMware Workstation with Windows XP and Internet Explorer 8.
But now the strange part: In our network DNS (Domain Name Service), we can also open the URL by http://sapserver.our-dns:port.
Than it is working without problems with Windows 7 and Internet Explorer.
I would agree to state the comment - it is just a Windows 7/Internet Explorer 11 issue, if it wouldn't work for both URLs (http://sapserver.hosters-name:port = problem URL; http://sapserver.our-dsn:port = working).
We are using a SAP NW PI 7.x system. Some URLs for PI are using http://sapserver.hosters-name:port/java service.
Do you have any hints what is cause the issue - I suspect some with Internet Explorer and Firefox (because with Google Chrome at least the URL for NWA is opened, beside the issue, Google Chrome can't display NWA content)?
Thanks for your help.
Best regards
Carlos

Hi all,
I think I found the solution.
The reason seems to be, the domain name for http://sapserver.our-dns:port, "our-dns" was already added to the compatibility view settings of Microsoft Internet Explorer.
That seemed to be the reason, why it was working with http://sapserver.our-dns:port.
When I now added for http://sapserver.hosters-name:port the domain "hosters-name" to the compatibility view settings it is now working.
Internet Explorer Options => Settings for compatibility view => Add domain
Best regards
Carlos

Issues with Catalogs in Organiser when photos on hard disk other than C:

Hello Folks;
I face the following issue with PSE7 :
the Catalog function does not work when I try to import pictures located on any other hard disk different from C: disk.
In other words, the following happens :
1) in the Organiser, I create a new Catalog (on C: disk or on F: disk)
2) I import pictures located in a directory on disk F:
3) when I try to review the "cataloged" images one by one , PSE7 gives the message that he has lost the connection to the images and a window opens asking to RECONNECT the files;
4) I then browse to the right directory , find the files and try to reconnect back to the original image (that was not moved to another place nor renamed !) the system does not reconnect te picture with the catalog
5) in short : PSE7 is unusable when pictures are not located on C: disk
I contacted the support (since I ahve a legal version , yes !) but they seem to consider this normal ; catalog and pictures must be on the same disk drive they told me . Unbelievable !
This surprises me because : with PSE4 (my former version) , this worked withiout any problem !
I consider this as a ral software bug, isn't it ?
I am still in touch with Adobe's support but it takes time .. and still no solution ..
Did someone face the same issue ? Suffering in group is less painfull as anyone knows .. ;-)
Any solution at sight ? ;-)
Thanks a lot for any help on this, I am totally stuck here ... !
Claude

THANKS a lot dj-paige ... !!!
Thanks to the psedbtool (thanks john rellis too !) .. I could diagnose the problem : my two disk drives C: and F: had the same serial number .
And even better : I could SOLVE the problem .
I changed the volumeid of disk F: asexplained in john rellis's documentation .. and now PSE7's Catalog works fine !!
(I am still waiting for a decent answer from Adobe's suuport .. it's a shame that they do not do !).
THANKS again dj-paige for the support received ... !!!
I wish all problems in life could be solved as easily as this one !!!
Greetings from Brussels , Belgium
CLAUDE

Issue with Smart View for Planning Connection

Hi All,
I'm facing this issue with Hyperion 11.1.1.3 & 11.1.2. I've created a connection in SmartView by giving the URL as http://ServerName:8300/HyperionPlanning/SmartView. After that i'm able to see "Servers" and when i started expanding that, it displayed the server name. When i clicked on the server name, it should display the Planning Application name right ? instead of that just a Cuble symbol is displaying. Do i need to make any settings for proper display of the Planning Application names ? This is perfectly working fine with HFM. I'm able to see HFM application names

Well, the thing I always forget and have pulled much hair out over is to add the essbase server access to the planning group.
Check on that, and I will loosen the rocks in my head to see what else I can suggest.
Robb

2 Issues with Curve -- Camera and Application Connectivity

I'm having 2 issues with my Curve 8300. I tried upgrading the SW to 4.5 but it didn't help. Any ideas?
- The camera is no longer working. When I try taking pictures, it saves a JPG file but the file to the assigned folder but the file is smaller than it should be (usually ~6KB) and it doesn't render as an image.
- I'm trying to use an application (the NYT Crossword Puzzle) but it gives me the error message "Unable to connect to the server. Please try again later.", even though I do have connectivity for e-mail and web browsing. I tried adjusting the application permissions in advanced settings but it didn't help.
Thanks.

Hi and welcome to the forums!
As far as the camera I would try the following:
No data will be lost when doing the following: pull the battery while the device is ON. Replace after a minute, Let the device reboot 1-3 min, see if the problem is fixed, Thanks
If that doesn't work I would suspect a low memory condition please read this link:
http://www.blackberry.com/btsc/search.do?cmd=displayKC&docType=kc&externalId=KB14213&sliceId=SAL_Pub...
I do not have a definitive answer for the cross word. app. Could it be possible to test it off hours, to see if the servers at the NYT are in
fact busy?
Thanks
Please remember to resolve your thread. Put the check mark in the green box that contained your answer! Thanks
Message Edited by Bifocals on 11-07-2008 06:47 PM
Click Accept as Solution for posts that have solved your issue(s)!
Be sure to click Like! for those who have helped you.
Install BlackBerry Protect it's a free application designed to help find your lost BlackBerry smartphone, and keep the information on it secure.

Issue with PC not booting when PCIe 8360 attached to controller PXI 8360

I am using a PCIe 8360 in our Windows 7 PC and connecting it to a PXI 8360 controller in a Pickering chassis. When I connect the mxi card to the controller and try starting the PC, the PC will not boot. Has anyone seen this issue and if so, what is the problem/solution?

It sounds like this may be an issue with BIOS compatibility. I have included some more information below. I would recommend upgrading the BIOS to the latest version and seeing if that resolves the issue.
http://pcsupport.about.com/od/fixtheproblem/ht/accessbios.htm
R. Brill
Applications Engineer
National Instruments

Issues with i-Phone4 car USB Connection since IOS5 Upgrade

Hi,
I connect my i-phone 4 via Bluetooth to my car, and also plug it in via USB, so that I can control the device using my steering wheel controls.
Since ugrading to IOS 5, the Bluetooth phone connection appears to be working OK, but my music cuts out after a minute or so, although I can still select music via the car controls after it cuts out, but it won't actually play.
If I look at the screen of the device itself when the music is playing, the screen tells me that it is connected to an accessory, and when I click on the device option at the bottom of the screen, it gives me two options for the connectivity - "USB" or 'My Volvo Car' (and the option selected is "USB").
However, when the music cuts off, if I view the same screen, it has switched to 'My Volvo Car'.
The same thing happens when connecting via the AUX input. The music cuts out after a minute or so, and it swpas to the default of 'My Volvo Car' so I can't hear the music again.
All of this worked perfectly until the IOS upgrade, so any help or advice to resolve this issue would be greatly appreciated !
FYI - I have a 2011 latest model Volvo XC60 R-Design with the Premium Stereo.
Thanks !

Hi,
Not exactly
The only compromise I have found is to also stream the music via Bluetooth too (select 'Bluetooth' in the 'Input Menu' of the car, instead of Aux or USB).
It's very impressive for new passengers (like when you first stream music from your i-Phone to your stereo at home using Airport Express), but the only downside is that whilst you can change tracks within the same playlist via the steering wheel controls, you can't hunt through menus any more with the scroll wheel
Not a perfect solution, but better than nothing
Please let me know how you get on and whether you find something better !

N95 with v20 firmware freezes when connecting USB

Does anybody have this problem?
USB ussually works fine, but *sometimes* (I believe it has something to do with pairing different bluetooth headsets during a lapse of time, but I haven't really checked it) when I plug the USB to the phone it just freezes and I have to take the battery out in order for it to work again.
Same problem anyone?
Regards,
Jorge

Here is the fix:
1. If frozen iTunes is open and iPhone is connected, right-click the task bar and select Start Task Manager.
2. Click on the Processes tab.
3. Look for the process distnoted.exe *32 entry.
4. Right-click and select End Process.
5. iTunes will now unfreeze.
6. Close iTunes and disconnect iPhone. Wait 15 seconds.
7. Reconnect iPhone. iTunes will launch automaticallly like it should and your iPhone will begin to sync like it should.
There appears to be an incompatibility issue with Apple's distnoted.exe process and maybe 64-bit OS's. All I know is that this works everytime although there doesn't appear to be a permanent fix to this issue. You may have to repeat these steps everytime you reboot your computer or update iTunes.

Issue with Pro Res sources when encoding in Media Encoder.

There seems to be a big issue with Pro Res sources in Media Encoder. I've noticed that when exporting using the 'software only' mode my graphics and titles look horrible, they are pixelated around the edges and the compression looks bad. This issue only happens when it's being made from a Pro Res source, if I make the exact same file Uncompressed this issue is resolved. If I use the 'Cuda' option (which I already know is the better option) this issue is resolved. The thing is, in a work environment not all of our systems are Cuda enabled and I would like to use Media Encoder as a exporting option overall. I love Media Encoder, it's fast and easy to use but this Pro Res issue is huge because the majority of the time we are working in Pro Res. I also did a test out of Avid Media Composer to Media Encoder, I sent a reference file referencing the Avid MXF material and the issue is gone, this seems to my knowledge to be a Pro Res only issue. The settings I am exporting to is 960 x 540 h.264 and also .mp4. This is coming from a 1080p source and yes I do have the 'maximum render quality' checked for best scaling. I understand that Software only vs Cuda and Open CL use different algorithms when scaling but this seems crazy to me that it would look this much worse.
Anyways if somebody can please look into this that would be great, this seems to be an issue where I can't continue at this moment to use Media Encoder. Making my source files Uncompressed every time to do an export is just not a real workflow I want to do.
On a side note I've also recently noticed on a clip that had text over a grey background that there are lines going all down the screen evenly when exporting to even a non scaled 1080p .mp4. Once again, this issue goes away with any format but Pro Res. The weird part is this happens even with Cuda enabled. This is why I am thinking Media Encoder is having some sort of issue with the Pro Res codec.
I am on a current new 27'' fully loaded iMac with the latest Adobe CC updates.
Has anyone else experienced this?
thank you

No, it is why advance users do not use the wizard.
Have a look at OpenOffice.org and its form creation. Once you add your fields in OpenOffice.org, just export to PDF and the form fields will be named just like you named in them in OpenOffice.org and the drop down values carry over.

Issue with My VB Code when connecting to SAP

Similar Messages

Maybe you are looking for