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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Obtendo e usando o caminho de um arquivo - Resolvido
Obtendo e usando o caminho de um arquivo - Resolvido
Editado pela última vez por MrcFz em Sex Mai 13, 2022 6:53 pm, em um total de 1 vez.
Re: Obtendo e usando o caminho de um arquivo
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
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