Fehlermeldung: "Run-time Error '5': Invalid procedure call or argument..."

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von hakke-schorb.

    Fehlermeldung: "Run-time Error '5': Invalid procedure call or argument..."

    Hallo Leuts,

    da wir auf das wundertolle Office 2007 umgestiegen sind, musste ich jetzt einige Makros umschreiben.

    Folgendes Makro kontrolliert das Vorhandensein diverser Dokumente auf verschiedenen Laufwerken und vermerkt dies anschließend in einer Excel-Tabelle.
    Die nicht mehr vorhandene Application.FileSearch-Funktion habe ich mit der FileList-Funktion substituiert. Dies funktioniert auch problemlos. Das Makro läuft einmal "durch" und sollte dann in die nächste Zeile der ExcelTabelle springen und für die nächste Dateinummer weitersuchen.
    Jedoch bleibt es immer in der 5.-letzten Zeile ("myName = Dir() ' Get next entry.") hängen und spuckt mir obenstehende Fehlermeldung aus.

    Ohne die File-List-Blöcke funktioniert das Auflisten der Dateien auch. Ebenso Funktionieren die File-List-Blöcke auch einzeln bzw. im "Ganzen" einmal (bis zur Fehlemeldung ;)

    Nun habe ich keine Ahnung mehr woran es noch liegen könnte. Ich suche schon seit Stunden nach dem Fehler und finde keine Lösungsansatz, was mich der Verzweiflung immer näher bringt.

    Ich hoffe einer von euch Profis kann mir vielleicht einen Tip oder Lösungsansatz geben.

    Andernfalls bleibt mir wohl nur die komplette neu-Programmierung, oder? Was allerdings ziemlich schade wäre, da ziemlich viel Arbeit in dem Makro steckt und es ja soweit (1mal) funktioniert.

    Vielen Dank im Voraus für eure Hilfe, welcher Art auch immer.


    MfG der verzweifelte, beinahe suizidale Hakke-Schorb! ;)

    Visual Basic-Quellcode

    1. Public Function FileList(fldr As String, Optional fltr As String = "*.*") As _
    2. Variant
    3. Dim sTemp As String, sHldr As String
    4. If Right$(fldr, 1) <> "\" Then fldr = fldr & "\"
    5. sTemp = Dir(fldr & fltr)
    6. If sTemp = "" Then
    7. FileList = Split("No files", "|") 'ensures an array is returned
    8. Meldung = MsgBox("Es wurde keine Datei " & fltr & " gefunden." & vbCrLf _
    9. & "Weiter machen?", vbYesNo)
    10. If Meldung = vbNo Then End
    11. Exit Function
    12. End If
    13. Do
    14. sHldr = Dir
    15. If sHldr = "" Then Exit Do
    16. sTemp = sTemp & "|" & sHldr
    17. Loop
    18. FileList = Split(sTemp, "|")
    19. End Function
    21. Private Sub aktualisieren_Click()
    22. ' Macro zur Übersicht des MeasImport-Laufwerkes
    24. ' Display the names in C:\ that represent directories.
    25. Kpath = "k:\" ' Set the path.
    26. datapath = "G:\Test-Coordination (01424471)\WO-Closed\"
    27. kanalpath = "g:\dynamic (01424474)\Test Data\Vorlagen\Kanallisten\"
    28. myName = Dir(Kpath, vbDirectory) ' Retrieve the first entry.
    30. zeile_ = 3
    32. Worksheets("MeasImport").Range("H1").Value = Now()
    34. Range("A3").Select
    35. Do While myName <> "" ' Start the loop.
    36. Debug.Print myName
    37. ' Ignore the current directory and the encompassing directory.
    38. If myName <> "." And myName <> ".." Then '
    39. 'MsgBox (Mid(myname, 1, 1))
    41. 'Use bitwise comparison to make sure MyName is a directory.
    42. If (GetAttr(Kpath & myName) And vbDirectory) = vbDirectory Then
    44. If (Mid(myName, 1, 1) = "0" Or Mid(myName, 1, 1) = "1" Or Mid(myName, _
    45. 1, 1) = "2" Or Mid(myName, 1, 1) = "3" Or Mid(myName, 1, 1) = "4" Or _
    46. Mid(myName, 1, 1) = "5" Or Mid(myName, 1, 1) = "6" Or Mid(myName, 1, _
    47. 1) = "7" Or Mid(myName, 1, 1) = "8" Or Mid(myName, 1, 1) = "9") And _
    48. Mid((Right(myName, 4)), 1, 1) <> "." Then
    49. Debug.Print myName ' Display entry only if it
    50. MsgBox myName
    51. Worksheets("MeasImport").Range("B" & zeile_).Value = myName
    55. 'Kanalliste
    57. kw_ = Mid(myName, 1, 2)
    58. wo_ = Mid(myName, 3, 7)
    59. to_ = Mid(myName, 3)
    61. Liste = FileList(kanalpath & "Kw" & kw_ & "\", myName & ".xls")
    62. If Liste(0) <> "No files" Then
    63. Anzahl = UBound(Liste) - LBound(Liste) + 1
    64. Meldung = "Anzahl der gefundenen Dateien: " & Anzahl
    65. Worksheets("MeasImport").Range("C" & zeile_).Value = " x "
    66. Auswahl = MsgBox(Meldung, vbOKCancel)
    67. Else
    68. Worksheets("MeasImport").Range("C" & zeile_).Value = ""
    69. End If
    73. 'Testreport
    75. Liste = FileList(Kpath & myName & "\", "*testreport_sledx*")
    77. If Liste(0) <> "No files" Then
    78. Anzahl = UBound(Liste) - LBound(Liste) + 1
    79. Meldung = "Anzahl der gefundenen Dateien: " & Anzahl
    80. Worksheets("MeasImport").Range("G" & zeile_).Value = " x "
    81. Range("B" & zeile_).Select
    82. ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    83. Kpath & myName & "\testreport_sledx.docx"
    84. With Selection.Font.Size = 8
    85. Auswahl = MsgBox(Meldung, vbOKCancel)
    86. End With
    87. Else
    88. Worksheets("MeasImport").Range("C" & zeile_).Value = ""
    89. End If
    90. 'Diagramme
    92. Liste = FileList(Kpath & myName & "\", "*.png")
    94. If Liste(0) <> "No files" Then
    95. Anzahl = UBound(Liste) - LBound(Liste) + 1
    96. Meldung = "Anzahl der gefundenen Dateien: " & Anzahl Worksheets("MeasImport").Range("D" & zeile_).Value = " x "
    97. Auswahl = MsgBox(Meldung, vbOKCancel)
    98. Else
    99. Worksheets("MeasImport").Range("D" & zeile_).Value = ""
    100. End If
    103. 'Fotos
    105. Liste = FileList(Kpath & myName & "\", "*.jpg")
    107. If Liste(0) <> "No files" Then
    108. Anzahl = UBound(Liste) - LBound(Liste) + 1
    109. Meldung = "Anzahl der gefundenen Dateien: " & Anzahl
    110. Worksheets("MeasImport").Range("E" & zeile_).Value = " x "
    111. Auswahl = MsgBox(Meldung, vbOKCancel)
    112. Else
    113. Worksheets("MeasImport").Range("E" & zeile_).Value = ""
    114. End If
    117. 'Videoanalyse
    119. Liste = FileList(Kpath & myName & "\", "*videoanalyse*")
    121. If Liste(0) <> "No files" Then
    122. Anzahl = UBound(Liste) - LBound(Liste) + 1
    123. Meldung = "Anzahl der gefundenen Dateien: " & Anzahl
    124. Worksheets("MeasImport").Range("F" & zeile_).Value = " x "
    125. Auswahl = MsgBox(Meldung, vbOKCancel)
    126. Else
    127. Worksheets("MeasImport").Range("F" & zeile_).Value = ""
    128. End If
    131. 'freedat
    133. Liste = FileList(Kpath & myName & "\", "free.dat")
    135. If Liste(0) <> "No files" Then
    136. Anzahl = UBound(Liste) - LBound(Liste) + 1
    137. Meldung = "Anzahl der gefundenen Dateien: " & Anzahl
    138. Worksheets("MeasImport").Range("H" & zeile_).Value = " x "
    139. Auswahl = MsgBox(Meldung, vbOKCancel)
    140. Else
    141. Worksheets("MeasImport").Range("H" & zeile_).Value = ""
    142. End If
    145. 'sled-data
    147. Liste = FileList(datapath & "\" & wo_ & "\" & to_, _
    148. "*testreport_sledx*")
    150. If Liste(0) <> "No files" Then
    151. Anzahl = UBound(Liste) - LBound(Liste) + 1
    152. Meldung = "Anzahl der gefundenen Dateien: " & Anzahl
    153. Worksheets("MeasImport").Range("I" & zeile_).Value = " x "
    154. Auswahl = MsgBox(Meldung, vbOKCancel)
    155. Else
    156. Worksheets("MeasImport").Range("I" & zeile_).Value = ""
    157. End If
    160. zeile_ = zeile_ + 1
    161. 'End If ' it represents a directory.
    162. End If
    163. End If
    164. End If
    166. myName = Dir() ' Get next entry.
    167. MsgBox (myName)
    168. Loop
    169. Range("B3").Select
    170. End Sub

Facebook
Telefonspende