Hirdetés
- ASUS Maximus VIII Ranger Z170 6-7-8-9-10 gen támogatás (Coffeetime mod)
- DFI és DFI Lanparty gyűjteményem
- Möbelix Milan íróasztal - a tapasztalatok összeszerelés után
- Keychron V6 Max (HU) Mechanikus vezetéknélküli billentyűzet (Bluetooth, RF, USB)
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- laskr99: DFI és DFI Lanparty gyűjteményem
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Magga: PLEX: multimédia az egész lakásban
- eBay-es kütyük kis pénzért
- gban: Ingyen kellene, de tegnapra
- MasterDeeJay: ASUS Maximus VIII Ranger Z170 6-7-8-9-10 gen támogatás (Coffeetime mod)
- Fire/SOUL/CD: INGYENES Clone és Backup-Restore alkalmazások tesztje [2024]
- sziku69: Szólánc.
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Heno1974
csendes tag
válasz
azopi74 #26390 üzenetére
sap gui ba belépve elérem sap-ban
akkor el kellene érnem vba-ban is szerintem.
csak nem tom a bejelentkkezést megirni
adatbázis lekérdezésnél nem tom a szerver cimét.
ezt a neten böngésztem de nem igazán értem a :
Set oConnection = SapGuiApp.OpenConnection("110 PRD-P01 ECC", True)Dim SapGuiApp As Object
Dim oConnection As Object
Dim session As Object
Dim SAPCon As Object, SAPSesi As Object
Dim SAPGUIAuto As Object, SAPApp As Object
Dim sapConnection As ObjectIf SapGuiApp Is Nothing Then
Set SapGuiApp = CreateObject("Sapgui.ScriptingCtrl.1")
End If
If oConnection Is Nothing Then
Set oConnection = SapGuiApp.OpenConnection("110 PRD-P01 ECC", True)
End If
If SAPSesi Is Nothing Then
Set SAPSesi = oConnection.Children(0)
End IfsapConnection.Client = "720"
sapConnection.User = ""
apConnection.Password = ""
sapConnection.Language = "hu"If nsapConnection.Logon(1, True) = True Then
MsgBox "Nincs kapcsolat az SAP-val!"
Új hozzászólás Aktív témák
- Győr és környéke adok-veszek-beszélgetek
- Épített vízhűtés (nem kompakt) topic
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- EAFC 26
- Lecsap az S26 Ultra az Exynos 2600-ra
- eGPU tapasztalatok
- Bittorrent topik
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- LED világítás a lakásban
- Békéscsaba és környéke adok-veszek-beszélgetek
- További aktív témák...
- HP 14 Elitebook 640 G10 FHD IPS i5-1345U vPro 10mag 16GB 512GB SSD Intel Iris XE Win11 Pro Garancia
- Újszerű! HP EliteBook 840 G7 i5-10210U 16GB 512GB FHD 400nit 1 év garancia
- AKCIÓ! Lenovo ThinkPad X13 Gen 5 üzleti notebook - Ultra 5 135U 16GB DDR5 512GB SSD Intel Win11
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- AKCIÓ! Intel Core i9 14900K 24 mag 32 szál processzor garanciával hibátlan működéssel
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest