-
Fototrend
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
Sziasztok!
SAP-ba szeretnék lekérdezést vba-val.
De mindig feladja az ablakot, hogy melyikbe szeretnék bejelentkezni
. s nem tudom hol adjam meg neki.sapConnection.Client = "200"
sapConnection.User = ""
apConnection.Password = ""
sapConnection.Language = "hu" -
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!" -
Heno1974
csendes tag
sziasztok!
lekérdezést szeretnék csinálni sap-ból excelbe.
tudna valaki segiteni benne??
eddig jutottam, de nem enged be :Sub start()
Dim functionCtrl As Object
Dim sapConnection As Object
Dim theFunc As Object
Dim the_name As StringSet functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection
sapConnection.Client = "002"
sapConnection.user = ""
sapConnection.Password = ""
sapConnection.Language = "HU"If sapConnection.logon(0, False) <> True Then
MsgBox "Nincs kapcsolat SAP-val!"
Exit Sub -
Heno1974
csendes tag
mailcím ahova küldjem??
a V1F es a makró -
Heno1974
csendes tag
syasztok.tudna nekem segítteni valaki??
sub szürés ()For k = 1 To 2000
Let x = ActiveCellActiveCell.Offset(1, 0).Range("A1").Select
Let y = ActiveCell
If y = "" Then
GoTo TestforBlank
End If
If x = y Then
Selection.EntireRow.Delete
ActiveCell.Offset(-1, 0).Range("A1").SelectEnd If
Next k
TestforBlank:
End suba K val áll i hibával,
szürni szeretnék 2003 excelbe, hogy az ismétlődéseket távolítsa el .
azt is meg kéne adni, hogy ha nincs adat akkor fejezze be a szürést.
valahogy igy kellene asszem:
For k <> "null"
ha jól tudom.
számokat kéne szürnöm, de K nál kiáll hibával
Új hozzászólás Aktív témák
- Apple iMac 21,5" 2015 Late / 8GB DDR3 / 1TB HDD / Bill+Egér 6 hó garancia, számlával!
- Apple iPhone 13 128 GB Pink 1 év Garancia Beszámítás Házhozszállítás
- BESZÁMÍTÁS! Részletfizetés 0% THM ÚJ GIGABYTE A16 3VH 16" notebook R7 260 16GB RTX 5060 3 év 27%
- szinteÚJ, dobozos Dell Pro 14 Core Ultra 7 255U 32GB DDR5 1TB AI PC FHD+ 1 év garancia
- Logitech G635 fejhallgató / 12 hó működési garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
. s nem tudom hol adjam meg neki.
.