¡Caminando hacia el éxito!

Aprende en Comunidad

Avalados por :

Solução para iniciantes em VBA e scripting SAP: Problema não resolvido

  • Creado 01/03/2024
  • Modificado 01/03/2024
  • 50 Vistas
0
Cargando...

Olá a todos

Eu sei que um problema semelhante já foi discutido, mas ao revisar a solução apresentada em qualquer um desses tópicos, não consegui ter sucesso (sou iniciante em VBA e scripting do SAP)

Pedro Pascal
Se unió el 07/03/2018
Pinterest
Telegram
Linkedin
Whatsapp

4 Respuestas

0
Cargando...

Olá Umur,

Obrigado pela sua resposta.

O comando que abre a caixa de diálogo SALVAR COMO é:

session.findById("wnd[0]/mbar/menu[0]/menu[1]/menu[1]").Select

...mas estou recebendo um erro na linha:

Wshell.Run "C:\Nova pasta\DataLoad.vbs " & NomeArquivo, 1, False

Meu código agora se parece com isso (todo o meu código junto com a configuração do Userform):


Private Sub CommandButton1_Click()

Dim MojaData
MojaData = ComboBox2.Value

Dim Companycode
Companycode = ComboBox1.Value


Dim Depreciation_area
Depreciation_area = ComboBox3.Value


If Not IsObject(Application1) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set Application1 = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
Set Connection = Application1.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 Application1, "on"
End If

Dim sbar As String
sbar = session.findById("wnd[0]/sbar").Text

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/n s_alr_87011990"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtBUKRS-LOW").Text = Companycode
session.findById("wnd[0]/usr/ctxtSO_ANLKL-LOW").Text = ""
session.findById("wnd[0]/usr/ctxtBERDATUM").Text = MojaData
session.findById("wnd[0]/usr/ctxtBEREICH1").Text = Depreciation_area
session.findById("wnd[0]/usr/ctxtSRTVR").Text = "0003"

session.findById("wnd[0]/usr/radSUMMB").SetFocus
session.findById("wnd[0]/tbar[1]/btn[8]").press

NomeArquivo = "C:\Nova pasta\Notificações.txt"
Wshell.Run "C:\Nova pasta\DataLoad.vbs " & NomeArquivo, 1, False

session.findById("wnd[0]/mbar/menu[0]/menu[1]/menu[1]").Select

Dim FileNam2
Set Wshell = CreateObject("WScript.Shell")
Do
bWindowFound = Wshell.AppActivate("Salvar como")
WScript.Sleep 1000
Loop Until bWindowFound
bWindowFound = Wshell.AppActivate("Salvar como")
If (bWindowFound) Then
Wshell.AppActivate "Salvar como"
WScript.Sleep 100
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
WScript.Sleep 100
FileNam2 = WScript.Arguments.Item(0)
Wshell.SendKeys FileNam2
WScript.Sleep 100
Wshell.SendKeys "{ENTER}"
WScript.Sleep 100

Fim Se


Fim Sub

Private Sub UserForm_Initialize()
'Esvaziar caixa de código de empresa
ComboBox1.Clear

'Preencher caixa de código de empresa
With ComboBox1
.AddItem "BE10"
.AddItem "BE11"
.AddItem "BE12"
.AddItem "BE14"
ComboBox1.Value = "BE10"

End With

'Esvaziar caixa de saldo de ativos
ComboBox2.Clear

'Preencher caixa de saldo de ativos
With ComboBox2
.AddItem "31.01.2014"
.AddItem "28.02.2014"
.AddItem "31.03.2014"
.AddItem "30.04.2014"
.AddItem "31.05.2014"
.AddItem "30.06.2014"
.AddItem "31.07.2014"
.AddItem "31.07.2014"
.AddItem "31.08.2014"
.AddItem "30.09.2014"
.AddItem "31.10.2014"
.AddItem "30.11.2014"
.AddItem "31.12.2014"

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

MJ MJ - Não consigo replicar uma tela como a sua para testar, mas aqui está o que eu sugeriria:

Imediatamente acima do comando que abre a caixa de diálogo SALVAR COMO, insira estas linhas:

... seu código até aqui.....

NomeArquivo = "C:\Aplicativos\Notificações.txt" '<----- insira o caminho/nome do arquivo para salvar
Wshell.run "C:\Aplicativos\CarregarDados.vbs " & NomeArquivo , 1 , Falso '<-- chama o programa carregador

... então continue com seu código....

Em seguida, crie um programa "carregadados.vbs" da seguinte maneira:

Dim NomeArquivo2
Set Wshell = CreateObject ( "WScript.Shell" )
Do
bJanelaEncontrada = Wshell.AppActivate ( "Salvar como" )
WScript.Sleep 1000
Loop Until bJanelaEncontrada
bJanelaEncontrada = Wshell.AppActivate ( "Salvar como" )
if (bJanelaEncontrada ) Then
Wshell.appActivate "Salvar como"
WScript.Sleep 100
Wshell.sendkeys "{TAB}"
Wshell.sendkeys

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

Estava enfrentando o mesmo problema. Pesquisei a mensagem de erro no Google e encontrei muitos fóruns/blogs que mencionavam que os espaços dentro dos caminhos podem causar esse erro. No entanto, existem algumas soluções alternativas. Não tenho todas para referência (fechei minhas abas antes de anotá-las todas), mas certificar-se de colocar aspas duplas ao redor da cadeia que contém espaços funcionou para mim.


Programa principal que chama o script secundário:



'//executar relatório
SAPsession.findById("wnd[0]/tbar[1]/btn[8]").press

'//iniciar outro script para observar a janela de seleção de arquivo
Wshell.Run Chr(34) & CurrentProject.Path & strWShellScript & Chr(34) & " " & strSAPFileNm, 1, False

'//clicar no botão de download
SAPsession.findById("wnd[0]/tbar[1]/btn[21]").press

Script secundário no arquivo ".vbs":


Dim strSAPFileNm2
Dim strWindowNm

Set Wshell = CreateObject("WScript.Shell")
strWindowNm = "Selecionar Arquivo."

Do
bWindowFound = Wshell.AppActivate(strWindowNm)
WScript.Sleep 1000
Loop Until bWindowFound
bWindowFound = Wshell.AppActivate(strWindowNm)

If (bWindowFound) Then
Wshell.AppActivate strWindowNm
Wshell.CurrentDirectory = "c:\temp"
WScript.Sleep 1000
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
WScript.Sleep 1000
strSAPFileNm2 = WScript.Arguments.Item(0)
Wshell.sendkeys "c:\temp"
WScript.Sleep 1000
Wshell.sendkeys "{ENTER}"
        
Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

Olá,

Tente o seguinte:

http://scn.sap.com/thread/1540783

Saudações,

Harel

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019

contacto@primeinstitute.com

(+51) 1641 9379
(+57) 1489 6964

© 2024 Copyright. Todos los derechos reservados.

Desarrollado por Prime Institute

¡Hola! Soy Diana, asesora académica de Prime Institute, indícame en que curso estas interesado, saludos!
Hola ¿Puedo ayudarte?