Notifications
Clear all

ajuda pra implantar metodo activeX

1 Posts
1 Usuários
0 Reactions
907 Visualizações
(@cimerio)
Posts: 47
Trusted Member
Topic starter
 

olá. alguem sabe se tem uma forma de eu implementar no excel algo similar ao codigo abaixo? me parece ser vb.

preciso de algo que colete numa variável a string numa tela de emulador e esse me parece ser o caminho mais fácil.

 

    Txt$ = MyScreen.GetString(24,2,1)
    
    If txt$ = "(" Then
    
       Txt2$ = MyScreen.GetString(24,5,60)
       Sess0.Screen.WaitHostQuiet(1000)
       Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
       Print #2, Linha$+"-"+CPF$+" "+Txt2$
       Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
       Sess0.Screen.Sendkeys("<Pf12>")
       Sess0.Screen.WaitHostQuiet(1000)
       GoTo Linha1:
    
    End If  
 
Postado : 06/09/2021 3:44 pm