Obtendo e usando o caminho de um arquivo - Resolvido
Enviado: Qua Mai 11, 2022 7:51 pm
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
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