Erro de Subscrito fora do intervalo em consolidação de dados
Enviado: 30 Jun 2018 às 10:53
Bom dia Amigos
Tenho o Excel 2010 e estou tentando montar uma tabela de consolidação de dados e como sou novo em VBA estou com algumas dificuldades. A seguir esta o comando que estou tentando montar:
Public Sub Imp_PNR2()
Dim lin01, lin02, lin03 As Integer
Dim ArqPeriferico As String
Application.ScreenUpdating = False
lin01 = 1
lin02 = 2
lin03 = 2
Do Until Sheets("PNR 2.0 m.m").Cells(lin01, 24).Value = Empty
ArqPeriferico = Sheets("PNR 2.0 m.m").Cells(lin01, 24).Value
Workbooks.Open (ThisWorkbook.Path & "\" & ArqPeriferico & ".xlsx")
-----------------Dentre estes comando esta algumas funções para importar as informações-------------------------
Workbooks("ArqPeriferico").Close (False)
lin01 = lin01 + 1
Loop
End Sub
Neste comando o ArqPeriferico é onde esta localizado o nome das planilhas que desejo abrir. Como é mais que um arquivo que preciso abrir peço para fazer um loop e troco o nome dos arquivos. Estes arquivos estão abrindo, mas o erro acontece na linha "Workbooks("ArqPeriferico").Close (False)", quando preciso fechar a tabela. Tentei outros comandos para fechar, mas ocorrem outros erros pedindo para fechar o workbook.
Alguém consegue me esclarecer qual erro estou cometendo?
Tenho o Excel 2010 e estou tentando montar uma tabela de consolidação de dados e como sou novo em VBA estou com algumas dificuldades. A seguir esta o comando que estou tentando montar:
Public Sub Imp_PNR2()
Dim lin01, lin02, lin03 As Integer
Dim ArqPeriferico As String
Application.ScreenUpdating = False
lin01 = 1
lin02 = 2
lin03 = 2
Do Until Sheets("PNR 2.0 m.m").Cells(lin01, 24).Value = Empty
ArqPeriferico = Sheets("PNR 2.0 m.m").Cells(lin01, 24).Value
Workbooks.Open (ThisWorkbook.Path & "\" & ArqPeriferico & ".xlsx")
-----------------Dentre estes comando esta algumas funções para importar as informações-------------------------
Workbooks("ArqPeriferico").Close (False)
lin01 = lin01 + 1
Loop
End Sub
Neste comando o ArqPeriferico é onde esta localizado o nome das planilhas que desejo abrir. Como é mais que um arquivo que preciso abrir peço para fazer um loop e troco o nome dos arquivos. Estes arquivos estão abrindo, mas o erro acontece na linha "Workbooks("ArqPeriferico").Close (False)", quando preciso fechar a tabela. Tentei outros comandos para fechar, mas ocorrem outros erros pedindo para fechar o workbook.
Alguém consegue me esclarecer qual erro estou cometendo?