2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    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

  • #44737 Telda addikt
    Új Válasz #44737
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Telda

    addikt

    Sziasztok!

    SAP-ban a CS01 taranzakcióban szeretnék BOM-ot feltölteni.
    Összetákoltam valamit, de az a baj, hogy csak az 1 soros BOM-mal működik.
    Esetleg van valami valami ötlete, vagy ehhez hasonló kész megoldása?
    A scriptet SAP-ból inditom és csak annyit csinál, hogy a megadott excel fájl oszlopaiból kiolvassa az értékeket és beírja az adott helyekre.
    De mivel ez csak egy léptető ciklus ahogy halad lefelé mindig csak egyet tud beépíteni.

    Dim objExcel
    Dim objSheet, intRow, i
    Set objExcel = GetObject(,"Excel.Application")
    Set objSheet = objExcel.Workbooks("dj feltolt").Sheets("Munka1")

    For i = 2 to objSheet.UsedRange.Rows.Count
    COL1 = Trim(CStr(objSheet.Cells(i, 1).Value)) 'Column1
    COL2 = Trim(CStr(objSheet.Cells(i, 2).Value)) 'Column2
    COL3 = Trim(CStr(objSheet.Cells(i, 3).Value)) 'Column3

    session.findById("wnd[0]/usr/ctxtRC29N-MATNR").text = COL1
    'session.findById("wnd[0]/usr/ctxtRC29N-WERKS").text = "0610"
    session.findById("wnd[0]/usr/ctxtRC29N-STLAN").text = "1"
    session.findById("wnd[0]/usr/txtRC29N-WTEXT").setFocus
    session.findById("wnd[0]/usr/txtRC29N-WTEXT").caretPosition = 0
    session.findById("wnd[0]").sendVKey 0
    session.findById("wnd[0]").sendVKey 0
    session.findById("wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/ctxtRC29P-POSTP[1,0]").text = "L"
    session.findById("wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/ctxtRC29P-IDNRK[2,0]").text = COL2
    session.findById("wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[5,0]").text = COL3
    session.findById("wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[5,0]").setFocus
    session.findById("wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[5,0]").caretPosition = 5
    session.findById("wnd[0]").sendVKey 0
    session.findById("wnd[0]").sendVKey 0
    session.findById("wnd[0]/tbar[0]/btn[11]").press

    next
    msgbox "Keszen vagyunk"

    Ez pedig a hozzá tartozó excel:

Új hozzászólás Aktív témák