vba variaveis

[Mateus Bodanese]

Bom dia, estou com um problema no VBA, nunca usei ele, sou programador Delphi e agora estou mexendo com o VBA.

Meu problema e o seguinte, eu tenho 2 variáveis para localizar somente uma. 

uma recebe um dado da tela, seria um numero. essa variável seria incluída no WorkBook. Abaixo segue meu codigo.

Private Sub bProcurar_Click()
    Dim procurar As Workbook
    Dim nProcurado As integer

    nProcurado = Me.fCracha.Text

        Set procurar = Workbook.Open("\\tev-arq1\Seguranca_Trabalho\Manuais_APR_NR-12\ControleHoras\ControleDeHorasGeral\MesCorrente\&nProcurado.xlsx")

End Sub

 

[Basole]

voce tem que concatenar sua variavel com o caminho do arquivo:

 

Private Sub bProcurar_Click()
    Dim procurar As Workbook
    Dim nProcurado As Integer

    nProcurado = Me.fCracha.Text

    Set procurar = Workbook.Open("\\tev-arq1\Seguranca_Trabalho\Manuais_APR_NR-12\ControleHoras\ControleDeHorasGeral\MesCorrente\" & nProcurado & ".xlsx")

End Sub

 

[Mateus Bodanese]

Opa Basole, estou com uma outra duvida, eu quero declarar uma variavel global com o meu endereço do servidor, pois se algum dia eu trocar o endereço so altere a variavel e nao todo o codigo. então eu fiz assim.

Private Sub UserForm_Click()
Public endServer As String

endServer = ("\\tev-arq1\Seguranca_Trabalho\Manuais_APR_NR-12")
End Sub

Agora eu chamo esta variavel quando quiser usar o servidor correto? Como chamo ela? vai funcionar°?

 

 

 

[Basole]

Declare a variavel: Public endServer As String, em um modulo padrão. 

E use o evento initialize do userform:

Ex.:

Private Sub UserForm_Initialize()

endServer = ("\\tev-arq1\Seguranca_Trabalho\Manuais_APR_NR-12")

End Sub