Notifications
Clear all

Preencher Textbox de outra Workbook

8 Posts
2 Usuários
0 Reactions
1,408 Visualizações
(@korgoth)
Posts: 29
Eminent Member
Topic starter
 

Boa tarde,

Preciso de uma ajuda em relação a preenchimento de textbox em outra workbook

no caso eu tenho uma planilha que utilizo o codigo para copiar 2 Estados e cola-los em outra Workbook

Sub fncEstadoSF()

    Dim lngLastCol, lngSecLastCol As Long
    Dim wksOri As Worksheet
    Dim wkbDes As Workbook
    Dim wksDes As Worksheet

    Set wksOri = ThisWorkbook.Worksheets("Consulta")
    Set wkbDes = Workbooks.Open("C:Userspaulo.robertoDesktopTestestest2SF01-Situacao_Fiscal_UF_UF.xlsm")
    Set wksDes = wkbDes.Worksheets("Plan1")

    With wksDes
        lngLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column - 2
    End With
    wksDes.Cells(4, lngLastCol) = wksOri.Range("C10")


    With wksDes
        lngSecLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column - 2
    End With
    wksDes.Cells(6, lngSecLastCol) = wksOri.Range("C15")

End Sub

Tendo isso colado eu acionaria uma Macro dessa outra Workbook

Application.Run ("Nome da Workbook.xlsm'!Nome da Macro")

Porem meu problema é que mesmo acionando a macro ele pede uma senha, no caso ele abre um Userform com
Usuario:
Senha:
Database:

só que eu não tenho acesso ao Editor de VBA então não sei os nomes dos campos,
o proprio usuario e database ja vem preenchido, meu problema é com a senha,
tem alguma forma de eu preencher mesmo sem ter o nome da textbox a partir da minha "Workbook busca" ?

 
Postado : 10/09/2015 10:33 am
(@messiasmbm)
Posts: 223
Estimable Member
 

ThisWorkbook.Unprotect Password:="111111"
Worksheets.Add after:=Worksheets(Worksheets.Count)
ThisWorkbook.Protect Password:="111111"

 
Postado : 10/09/2015 11:51 pm
(@korgoth)
Posts: 29
Eminent Member
Topic starter
 

no caso eu axei o nome da text box da senha,

se chama "txt_pwd"

como eu faria o vbscript para da minha workbook busca inserir um valor "predeterminado" dentro dessa textbox da Workbook Fiscal, e tambem acionar o botão Conectar ?

 
Postado : 11/09/2015 5:53 am
(@messiasmbm)
Posts: 223
Estimable Member
 
Userform1.TXT_USUARIO="usuario"
Userform1.txt_pwd="sua senha"
Userform1.TXT_DATABASE="database"
 
Postado : 11/09/2015 12:52 pm
(@korgoth)
Posts: 29
Eminent Member
Topic starter
 
LOGON.TXT_user="usuario"
LOGON.txt_pwd="sua senha"
LOGON.TXT_server="database"

estou tentando utilizar isso porem está dando Erro '424'

erro em tempo de execução, o objeto é obrigatório ???

 
Postado : 14/09/2015 5:09 am
(@korgoth)
Posts: 29
Eminent Member
Topic starter
 

@edit- nao deixo eu editar a msg acima entao vai otra msm

Consegui corrigir o Erro '424'

porem mesmo utilizando o Application.run e declarando o userform logon.txt_pwd/user/server nada acontece nas respectivas textbox D:

 
Postado : 14/09/2015 5:25 am
(@messiasmbm)
Posts: 223
Estimable Member
 

É mais fácil mandando seu projeto.

 
Postado : 14/09/2015 9:33 pm
(@korgoth)
Posts: 29
Eminent Member
Topic starter
 

Por enquanto vou estar fechando o Topico, chefe disse q n precisa ser automatico :v , mas vou continuar procurando uma forma, caso ache estarei postando aqui.

 
Postado : 16/09/2015 4:47 am