ajuda pra implantar...
 
Notifications
Clear all

ajuda pra implantar metodo activeX


cimerio
Posts: 39
Registered
Topic starter
(@cimerio)
Eminent Member
Entrou: 1 ano atrás

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  
Responder