Makro som henter opp excelfiler

[gealsa]

Hei,

Har en makro som henter opp excelfiler og tar ut info fra utvalgte celler.

Plukker greit opp filer hvis alle ligger i en mappe, men hvordan får man plukket opp filer som ligger i undermapper?

 

Eks.

 

Katalog = "F:\NØKKELTALL\Budsjetter mottatt"

 

HentKatalog = "" & Katalog & "\*.XLS" & ""

 

myfile = Dir(HentKatalog)

 

Application.DisplayAlerts = False

 

i = 1

 

Do While myfile <> ""

i = i + 1

Stedogfil = Katalog & "\" & myfile

Workbooks.Open Filename:=Stedogfil

Sheets("Avdeling").Select

Butikknavn = Range("A1").Value

 

 

Dette fungerer greit, men hva med filer som ligger i f.eks:

F:\NØKKELTALL\Budsjetter mottatt\Sør

F:\NØKKELTALL\Budsjetter mottatt\Øst

 

 

 

Katalog = "F:\NØKKELTALL\Budsjetter mottatt\*" fungerer ikke...

 

Ideer?

Endret 19. oktober 2004 av gealsa