Werte aus Prozedur beibehalten
28.04.2005 13:52:04
Rudi
Ich habe ein ganz banales Problem, und zwar habe ich eine Prozedur (s. unten), welche mir alle Excel-Dateien eines bestimmten Verzeichnisses in ein Datenfeld einliest.
Nun möchte ich die Werte dieses Datenfeldes für eine spätere Prozedur zur Verfügung haben, d.h. sie müssen erhalten bleiben.
Wie schaffe ich das? (Static?...)
Der Code sieht folgendermassen aus:
Sub Dateien_auflisten_mitPfad()
Dim i&, arrFiles() As String
With Application.FileSearch
.NewSearch
.LookIn = "I:\CA-TS download\Files\"
.Filename = "*.xls"
.Execute msoSortByFileName
ReDim arrFiles(.FoundFiles.Count - 1)
For i = 1 To .FoundFiles.Count
arrFiles(i - 1) = .FoundFiles(i)
Next i
End With
Wie muss die aufrufende Prozedur aufgebaut sein?
z.B.
Sub Alles()
dim?
call Dateien_auflisten_mitPfad
End Sub
Vielen Dank für eure Hilfe!
Gruss
Rudi