ubound fehlerabfrage

hallo liebes forum...
habe mir vor geraumer zeit aus der excelhilfe
folgendes macro benutzt um bestimmte xls files aus einem Ordner auszulesen und mit weiteren macors zu beartbeiten:

-----------------------------------------------------------------
-----------------------------------------------------------------
Public


Function FileArray(strpath As String, strPattern As String)
Dim arrDateien()
Dim intCounter As Integer
Dim strDatei As String
If Right(strpath, 1) <> "\" Then strpath = strpath & "\"
strDatei = Dir(strpath & strPattern)
Do While strDatei <> ""
intCounter = intCounter + 1
ReDim Preserve arrDateien(1 To intCounter)
arrDateien(intCounter) = strDatei
strDatei = Dir()
Loop
FileArray = arrDateien
End Function

--------------------------------------------
--------------------------------------------

in den anderen macromodulen habe ich die zu öffnenden dateien eingetragen:
---------------------------------
---------------------------------
sp_pfad = ThisWorkbook.Path
strpath = ThisWorkbook.Path & "\"
arrFiles = FileArray(strpath, "alex_suchliste_rezept??????.xls")
ChDir sp_pfad

n = 0
NN = 0
For intCounter = 1 To UBound(arrFiles)
Workbooks.Open strpath & arrFiles(intCounter)
-------------------------------
-------------------------------

mein Problen ist nun wenn die datei nicht vorhanden ist, bleibt das macro stehen
weil ubound(arrfiles) keinen wert hat...
habe diesbezüglich in der excel hilfe auch nichts gefunden...
ich möchte aber das das macro weiterläuft und vielleicht noch eine fehlermeldung in eine Fehler datei schreibt, damit man später die entsprechnende datei erneuern kann..
warscheinlich ist es nur ein kleines stücken code...
aber meinereiner hat schon einiges ausprobiert und da ich in vba am anfang stehe
bin ich schnell mit meinem latein am ende....
vielleicht hat ja einer von euch eine idee...
ich bedanke mich schon mal für eure hilfe..
alexander

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function FileArray(strpath As String, strPattern As String) Dim arrDateien() Dim intCounter As Integer Dim strDatei As String Dim arrFiles As Variant If Right(strpath, 1) <> "\" Then strpath = strpath & "\" strDatei = Dir(strpath & strPattern) Do While strDatei <> "" intCounter = intCounter + 1 ReDim Preserve arrDateien(1 To intCounter) arrDateien(intCounter) = strDatei strDatei = Dir() Loop ReDim arrFiles(0) FileArray = arrDateien End Function

Option Explicit Function FileArray(strpath As String, strPattern As String) Dim arrDateien() As String, strDatei As String, intCounter As Integer If Right(strpath, 1) <> "\" Then strpath = strpath & "\" strDatei = Dir(strpath & strPattern) Do While strDatei <> "" intCounter = intCounter + 1 ReDim Preserve arrDateien(1 To intCounter) arrDateien(intCounter) = strDatei strDatei = Dir() Loop If intCounter > 0 Then FileArray = arrDateien End Function Public Sub test() Dim TestArray As Variant, intIndex As Integer TestArray = FileArray("D:\Eigene Dateien\AEG\Arbeitsaufträge PT4\", "*x") If IsArray(TestArray) Then For intIndex = LBound(TestArray) To UBound(TestArray) MsgBox TestArray(intIndex) Next End If End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread