Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Obtendo e usando o caminho de um arquivo - Resolvido

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
MrcFz
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Sex Mar 11, 2022 8:01 pm

Obtendo e usando o caminho de um arquivo - Resolvido

Mensagem por MrcFz »

Olá,

Preciso incluir mais uma tarefa NA macro que estou desenvolvendo/Aprendendo.
Na macro, preciso indicar um arquivo que será processado.
Para isso estou usando o código abaixo que está funcionando, a MsgBox no final, confirma que o caminho e arquivo estão corretos.

Set DialogBox = Application.FileDialog(msoFileDialogFilePicker)
DialogBox.Title = "Selecione o arquivo. " '& FileType
DialogBox.Filters.Clear
DialogBox.Show
If DialogBox.SelectedItems.Count = 1 Then
CCaminho = DialogBox.SelectedItems(1)
End If
MsgBox ("o caminho é: " & CCaminho)

Continuando, preciso ler dados alternados na planilha citada na variável "CCAminho" e gravar na planilha original.
Na primeira utilização do "CCAminho", está correto, o arquivo é aberto e o Copy/Paste funciona.

Workbooks.Open CCaminho
Sheets("Cliente").Select

Na segunda vez, quando quero somente alternar ativando o arquivo em "CCaminho", está dando o erro: Erro em Tempo de execução: '9': Subscrito fora do Intervalo, o código que estou tentando é:

Workbooks("CCaminho").Activate
Sheets("Plano").Select


Agradeço qualquer ajuda.

Mauricio
Editado pela última vez por MrcFz em Sex Mai 13, 2022 6:53 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


MrcFz
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Sex Mar 11, 2022 8:01 pm

Re: Obtendo e usando o caminho de um arquivo

Mensagem por MrcFz »

Consegui achar a resposta, que compartilho aqui:
Dim Pasta_A As Workbook ' Variável que vai armazenar o nome do arquivo Atual
Dim Pasta_B As Workbook ' Variável que vai armazenar o nome da segunda pasta

Set Pasta_A = ActiveWorkbook ' Armazena o nome da pasta atual

Workbooks.Open SegundaPasta ' Abre a segunda pasta
Set Pasta_B = ActiveWorkbook ' Armazena o nome da segunda pasta

Para transitar entre as pastas:
Pasta_A.Activate
Pasta_B.Activate

Abs


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Obtendo e usando o caminho de um arquivo - Resolvido

Mensagem por webmaster »

É assim que eu gosto!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder