none
Código para preencher usuario e senha em aplicatico.Lnk através de vba de botao no excel RRS feed

  • Pergunta

  • Bom Dia, Srs!

    Tudo bem com vocês ?

    Estou desenvolvendo uma planilha que além de controles de estoque no excel, ela acessa um aplicativo  de extensão Lnk ( um WMS ).

    Estou com o código abaixo que acessa o aplicativo de extensão Lnk, eu consigo abri-lo porém não consigo entrar com a senha e login.

    Alguém poderia me ajudar com o que estaria faltando o meu código ?

     

    Segue meu código até a abertura do aplicativo:

    Sub OpenWMS()


    Set objShell = CreateObject("Shell.Application")


    Dim Path As String
    Dim User As Variant
    Dim Password As Variant
    Visible = True


    Path = "C:\Users\samuel.ss\Desktop\SEND_Prd WMS.lnk"

    objShell.ShellExecute "C:\Users\samuel.ss\Desktop\SEND_Prd WMS.lnk", para, "", "open", 1
     Application.Wait Now + TimeValue("0:00:08")


    With objShell_                                                 ' esta parte em negrito não está surtindo efeito

     txtUserID = "samuel.ss"

     txtPassword = "Samuel33"

    Set objShell = Nothing
    Cancel = True


    End With
    End Sub

    quarta-feira, 10 de março de 2021 03:49