openen serie bestanden in Excel

[TinusTinus]

Dag allen,

Na een korte cursus VBA/Excel probeer ik mijn eerste macro's te maken. In het huidige project wil ik graag uit een hele serie excel-bestanden, die allemaal in dezelfde directory staan, gegevens inlezen. Ik begin met het openen van die workbooks, maar daar gaat het al mis. Om de een of andere reden krijg ik telkens de melding dat het bestand niet gevonden kan worden, op het moment dat de msgbox getoond moet worden.

Iemand een suggestie hoe dit komt en wat er anders zou moeten?

Alvast dank! Tinus

De code:

Sub GegevensOverzetten()

B = Dir("H:\test\*.xls")
Do Until B = ""
Workbooks.Open B

MsgBox ActiveWorkbook.Name
ActiveWorkbook.Close

B = Dir

Loop

End sub

Toevoeging: Het te openen bestand bestaat, wordt gevonden en in variabele B gestopt (B = "a.xls"), maar de error met nummer 1004 zegt vervolgens dat het bestand niet gevonden kan worden, mogelijk verkeerd gespeld is of anderszins niet geopend kan worden en of je dat maar wilt controleren...of (en daar ligt het geloof ik aan) dat het bestand niet voorkomt in de lijst met recent geopende bestanden. Zodra een willekeurig bestand uit de directory waar ik iets uit wil halen wel in die lijst voorkomt, werkt de macro naar behoren....

 

[Wigi]

Hoi TT

Sub GegevensOverzetten()

    Dim B As String
    Dim sMap As String
    
    sMap = "H:\test\"

    B = Dir(sMap & "*.xls")
    
    Do Until B = ""
    
        Workbooks.Open sMap & B
        MsgBox ActiveWorkbook.Name
        ActiveWorkbook.Close savechanges:=False
        
        B = Dir
    
    Loop

End Sub

Maak er van bij het begin een goede gewoonte van om code te laten inspringen, en ook de variabelen naar behoren te declareren.

Succes op de ontdekkingstocht :thumb:

Wigi

 

[TinusTinus]

Hoi TT


Maak er van bij het begin een goede gewoonte van om code te laten inspringen, en ook de variabelen naar behoren te declareren.

Succes op de ontdekkingstocht :thumb:

Wigi

Hoi Wim,

Dank voor je hulp! Ik heb het principe meteen toegepast en ook de code van inspringingen voorzien. Daarna ook even je website bezocht en voordat ik het wist een half uur zitten grasduinen in al het leuks dat er te vinden is. Top! :thumb:

Groeten, Tinus