Notifications

Clear all

Macro para abrir todas as Planilhas dentro de uma pasta

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

4 Posts

2 Usuários

0 Reactions

1,009 Visualizações

RSS

Necron

(@necron)

Posts: 117

Estimable Member

Topic starter

Ola!

Eu gostaria de executar uma rotina que muito simples de abrir todas as pastas do Excel dentro de uma pasta, mas não estou conseguindo.

Tinha começado um mais ou menos assim:

Sub Teste()
    Dim Pasta As String
    Dim Arquivo As String

    Pasta = ActiveWorkbook.Path
    Arquivo = Dir(Pasta & "DiretoriaArquivos dos Meses*.xlsx")
    
    While Arquivo <> ""
    Workbooks.Open (Pasta & "DiretoriaArquivos dos Meses" & Arquivo)
    Wend

End Sub

A Macro não retornar nenhum erro, e as planilhas não abrem. Como abrir todas de planilhas via VBA?

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

Postado : 21/03/2014 9:05 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Tente..

Sub AleVBA_11004()
    Dim path As Variant
    Dim excelfile As Variant
    path = "C:UsersalexandreVBADownloadsTeste" '<-Faça a adaptação
    ChDir path
    excelfile = Dir("*.xls")
    Do While excelfile <> ""
        Workbooks.Open Filename:=path & excelfile
        excelfile = Dir
    Loop
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 21/03/2014 10:36 am