मुझे एक्सेल की आवश्यकता है मुझे बताएं कि क्या नीचे "अटैचमेंट लिस्ट" नामक बटन क्लिक करने के लिए उपलब्ध है या नहीं, लेकिन मैं इसे प्राप्त नहीं कर सका। नीचे दिया गया कोड मैंने कोशिश की है -

Sub teste()

        Set SapGuiAuto = GetObject("SAPGUI")
        Set SAPApplication = SapGuiAuto.GetScriptingEngine
        Set SAPConnection = SAPApplication.Children(0)
        Set session = SAPConnection.Children(0)


            session.findById("wnd[0]").maximize
            session.findById("wnd[0]/tbar[0]/okcd").Text = "/nme53n"
            session.findById("wnd[0]").sendVKey 0

            session.findById("wnd[0]").sendVKey 17
            session.findById("wnd[1]/usr/subSUB0:SAPLMEGUI:0003/ctxtMEPO_SELECT-BANFN").Text = "Purchase Requisition"
            session.findById("wnd[1]/usr/subSUB0:SAPLMEGUI:0003/ctxtMEPO_SELECT-BANFN").caretPosition = 8
            session.findById("wnd[1]").sendVKey 0

        session.findById("wnd[0]/titl/shellcont/shell").pressContextButton "%GOS_TOOLBOX"
        Set botao = session.findById("/app/con[0]/ses[0]/wnd[0]/titl/shellcont/shell/")

End Sub

अनुलग्नक सूची बटन

मैंने छवि पर सूची से सभी 8 बटन डेटा प्राप्त करने के लिए "बोटाओ" सेट किया है, लेकिन किसी भी गुण ने मेरी मदद नहीं की।

मुझे कुछ ऐसा ही चाहिए:

attach = botao.CurrentContextMenu.Children.Item(2).isfocused

कोड: "botao.CurrentContextMenu.Children.Item(2)" मुझे "अटैचमेंट लिस्ट" बटन पर ले जाता है, लेकिन मेरी मदद करने के लिए कोई भी संपत्ति मूल्यवान नहीं थी।

वास्तव में इसके साथ मदद की ज़रूरत है।

0
Fiinguer 31 जुलाई 2019, 20:29

1 उत्तर

सबसे बढ़िया उत्तर

मेरे परीक्षण में एक गैर-मौजूद अनुलग्नक के साथ नीचे एक संदेश आता है।

यदि आपके साथ ऐसा नहीं है, तो आप निम्न समाधान लागू कर सकते हैं, उदाहरण के लिए:


    ' The area at left of title is called the GOS container (shellcont).
    ' It contains a GuiToolbarControl (shell), with one button named %GOS_TOOLBOX,
    ' which is of type "ButtonAndMenu" (button with a dropdown menu).
    ' Click the dropdown part of the button.

    session.findById("wnd[0]/titl/shellcont/shell").pressContextButton "%GOS_TOOLBOX"

    ' Press the menu item "Attachment list"

    session.findById("wnd[0]/titl/shellcont/shell").selectContextMenuItem "%GOS_VIEW_ATTA"

    ' A popup (wnd[1]) should open if there are attachments, otherwise none opens.

    on error resume next 
    session.findById("wnd[1]").close
    if err.number <> 0 then 
       msgbox "There are no attachments."
    end if
    on error goto 0
    ...

सादर, स्क्रिप्टमैन

1
Sandra Rossi 17 जिंदा 2020, 12:21