Tópicos relacionados a códigos VBA, gravação de macros, etc.
#64367
estou tentando rodar esse código:


Public Sub Consolidar()

Dim lin01, lin02, lin03 As Integer
Dim Dados As String


lin01 = 3
Do Until Sheets("01").Cells(lin01, 3).Value = Empty
Dados = Sheets("01").Cells(lin01, 3).Value
Workbooks.Open (ThisWorkbook.Path & "\sala01\" & Dados & ".xlsx")
Workbooks(Dados).Close SaveChanges:=False
lin01 = lin01 + 1

Loop
End Sub


porem toda vez que chega na linha "Workbooks(Dados).Close SaveChanges:=False" ele da Erro em tempo de execução 9: Subscrito fora do intervalo.
Alguem pode me dize o que eu estou fazendo de errado!
Desde já agradeço.
#64374
#
Experimente ~~~> Workbooks(Dados & ".xlsx")...
#64382
Salve, @WILIANOGUIMARAES .

Não está disponível a opção de marcar o tópico como 'resolvido'. Para contornar é possível editar o título no seu primeiro post e acrescentar RESOLVIDO. ;)
Atividade renumerada!!!!

Vai neste fórum, neste voce pode postar e p[…]

Na figura 1 é a aparência quando abro[…]

Cara, nem sei como agradecer. Showww, resolveu per[…]

repetição entre jogos

Poderia dar alguns exemplo de resultado esperado s[…]

Mudar o mês na fórmula

Anexa um exemplo, por favor.

Não seria só desabilitar a opç[…]

Ajuda Para Calculo com horario.

Bom dia/tarde/noite Pessoal preciso de uma ajuda[…]

Agradeço muito pela dica, mas acredito que […]