Erro em tempo de execução 9, subscrito fora do intervalo | VBA: Automatizando tarefas no Excel

3
respostas

Referente ao curso VBA: Automatizando tarefas no Excel

por Vinicius Paulino Marchesini

| 36.8k xp | 38 posts

Estudante de Engenharia Elétrica no IFES

Galera, esse erro tá aparecendo no meu código e até agora não soube resolver.

Sub copiabasico()
Workbooks.Open Filename:="G:\Documentos de teste\Cópia de DadosATT_reparar_macro.xlsm"
Workbooks("Cópia de DadosATT_reparar_macro.xlsm").Activate
Sheets(1).Select
ActiveWorkbook.SaveAs Filename:="G:\Documentos de teste\DADALTO GPA 2034561234 18.xlsm"
nomearq = Application.GetOpenFilename 'guarda o nome do arquivo e o caminho dele
nomearq = ActiveWorkbook.Name
Workbooks(nomearq).Activate
Range("c11").Select
Range("c11").Copy
Workbooks.Open Filename:="G:\Documentos de teste\DADALTO GPA 2034561234 18.xlsm"
Workbooks("G:\Documentos de teste\DADALTO GPA 2034561234 18.xlsm").Activate
Sheets(1).Select
Range("c7:f7").PasteSpecial xlValues
UCase (Range("c7:f7"))

End Sub

3 respostas

por Rafael Fernandes de Proença Cordeiro

| 30.6k xp | 17 posts

12/07/2018

Vinicius,

Poderia especificar melhor em qual parte do código que ocorre o erro?

por Vinicius Paulino Marchesini

| 36.8k xp | 38 posts

Estudante de Engenharia Elétrica no IFES

12/07/2018

Olá, Rafael, o erro ocorre aqui:

Workbooks.Open Filename:="G:\Documentos de teste\DADALTO GPA 2034561234 18.xlsm"

por Erick

| 797.4k xp | 17 posts

Intern

12/07/2018

Vinicius,

Executando seu código, ele para nessa linha:

      Workbooks.Open Filename:="G:\Documentos de teste\DADALTO GPA 2034561234 18.xlsm"
-->    Workbooks("G:\Documentos de teste\DADALTO GPA 2034561234 18.xlsm").Activate

Isso ocorre porque o VBA não consegue ativar essa pasta de trabalho em tempo de execução. Use isso:

    Workbooks.Open Filename:="G:\Documentos de teste\DADALTO GPA 2034561234 18.xlsm"
-->    Workbooks(nomearq).Activate

Até breve.