Bestanden uit een map openen met een macro

[janusvl]

Goede morgen,

Ik ben bezig met een programmatje in excel hiervoor moeten alle xls bestanden uit een map worden geopend. Weet iemand hoe iok dit kan doen. De bestanden in de mappen wisselen steeds doen de gebruikers het zijn er soms meer en soms minder.


Ik hoop dat iemand een code heeft waarmee dit lukt. Kon hem op internet niet gevonden krijgen.

janus

 

[danny147]

Beste janusvl

Bekijk deze topic eens.

Groetjes Danny. :thumb:

 

[snb]

De eenvoudigste methode.
c0: de map waarin gezocht moet worden.

[COLOR="Blue"]Sub[/COLOR] zoek()
  c0="C:\"
  c1=[COLOR="blue"]Dir[/COLOR](c0 & "*.xls")
  [COLOR="blue"]Do Until [/COLOR]c1=""
    Workbooks.add c0 & c1
    c1=[COLOR="blue"]Dir[/COLOR]
  [COLOR="blue"]Loop[/COLOR] 
[COLOR="blue"]End Sub[/COLOR]

 

[janusvl]

Bedankt het is inmiddels gelukt

op naar het volgende probleem

janus

 

[danny147]

Beste janusvl

Mogen we weten welke code je nu gebruikt hebt, zodat andere ook iets hebben aan deze topic.

Vergeet ook je topic niet op opgelost te zetten, onderaan rechts.

Groetjes Danny. :thumb:

 

[janusvl]

ik had inmiddels een andere code ik zal hem zo even terug zoeken en hieronder bij plaatsen

 

[janusvl]

zoals beloofd

Sub software()
'
' software Macro
' Macro recorded 27-10-2009 by jvlimpt
'

'
Sheets("Sheet1").Select
Dim MyFile As String
MyPath = "I:\Shared\Temp\pc\"
MyFile = Dir(MyPath)

Do While MyFile <> ""
If MyFile Like "*.xls" Then
Workbooks.Open MyPath & MyFile
Sheets(1).Select
'Paste Code here
ActiveWorkbook.Close True
End If
MyFile = Dir
Loop
End Sub