Este fórum está sendo desativado

[ALANHILLESHEIM]

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?

[gfranco]

Bom dia.

Substitua essa linha:

Código: Selecionar todos

Workbooks("ArqPeriferico").Close (False)

por essa:

Código: Selecionar todos

Workbooks(ArqPeriferico & ".xlsx").Close (False)

Dê retorno.
Resposta útil ? clique em "obrigado"
Sua dúvida foi sanada? marque o tópico como "resolvido"