Asi dva dny se snazim dat dohromady makro nebo neco podobnyho co by me zjednodusilo praci.
1.Mam excel sesit v a potreboval bych spusti script za sapu kde je urcita promena "VS" To nalinkovat treba na bunku A1 kde budu moc zadat ruzne parametry.
Kód: Vybrat vše
If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/cntlIMAGE_CONTAINER/shellcont/shell/shellcont[0]/shell").selectedNode = "F00003"
session.findById("wnd[0]/usr/cntlIMAGE_CONTAINER/shellcont/shell/shellcont[0]/shell").doubleClickNode "F00003"
session.findById("wnd[0]/tbar[1]/btn[17]").press
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[0]/usr/tabsTABSTRIP_SELBLOCK/tabpSEL_00/ssub%_SUBSCREEN_SELBLOCK:PPIO_ENTRY:1200/ctxtS_ARBPL-LOW").text = "[color=#BF4040]VS[/color]"
session.findById("wnd[0]/usr/tabsTABSTRIP_SELBLOCK/tabpSEL_00/ssub%_SUBSCREEN_SELBLOCK:PPIO_ENTRY:1200/ctxtS_ARBPL-LOW").setFocus
session.findById("wnd[0]/usr/tabsTABSTRIP_SELBLOCK/tabpSEL_00/ssub%_SUBSCREEN_SELBLOCK:PPIO_ENTRY:1200/ctxtS_ARBPL-LOW").caretPosition = 2
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/usr/cntlCUSTOM/shellcont/shell/shellcont/shell").pressToolbarButton "&NAVIGATION_PROFILE_TOOLBAR_EXPAND"
session.findById("wnd[0]/usr/cntlCUSTOM/shellcont/shell/shellcont/shell").pressToolbarContextButton "&MB_EXPORT"
session.findById("wnd[0]/usr/cntlCUSTOM/shellcont/shell/shellcont/shell").selectContextMenuItem "&XXL"
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/tbar[0]/btn[12]").press
session.findById("wnd[0]").resizeWorkingPane 186,38,false
session.findById("wnd[0]/tbar[0]/btn[12]").press
2. Pak bych potreboval kdyz mam text v bunce treba A2 . tak abych vedle mel treba tlacitko ktere me dosadi a2 do linku a otevre ho .(Za tim = aby bylo cislo z bunky A2)
Kód: Vybrat vše
http://pjc.sap.de.eu.sew:8100/irj/portal/CRM2007_document?document=
zkousel jsem vsechno mozn od slucovani bunek az po makra ale jsem na to proste blbej
Kód: Vybrat vše
=HYPERLINK("'http://pjc.sap.de.eu.sew:8100/irj/portal/CRM2007_document?document=&A2&", "SAP LINK")
Jestli by jste nekdo poradil tak budu nesmirne vdecny. Jo a mam excel pouze v AJ.