Tomás Vásquez Fórum

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

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

É assim que eu gosto!