Makro Erfolgs-/Ergebnismeldung?
11.12.2007 21:23:10
Kerstin
vielleicht kann mir jemand helfen?
Hintergrund: Für eine Nachkalkulation müssen regelmäßig die Vernüpfungen von ca. 400 Arbeitsmappen aktualisiert werden, die Arbeitsmappen stehen alle in einem Verzeichnis.
Ich habe hier bei herber.de zum Glück ein Makro gefunden, mit welchem ich -zig Dateien der Reihe nach öffnen, aktualisieren, speichern und schließen kann. Dazu werden alle Dateinamen in der 1. Spalte einer Tabelle abgearbeitet, die dort vorher eingegeben werden müssen. Soweit, sehr schön!
Nun möchte ich gerne eine Info vom Programm, wenn eine Arbeitsmappe NICHT aktualisiert werden konnte, weil z. B. in der Dateibezeichnung ein Tippfehler war. . Das Makro überspringt die fehlerhafte Dateibezeichnung und macht dann weiter, nur erfahre ich das nicht.
Ich habe schon im Archiv hier gesucht, aber offenbar fehlt mir das Vokabular für die richtigen Treffer :-(
Vielleicht geht es ja sogar einfacher? Quasi "Variante B": Öffne nacheinander alle Arbeitsmappen in dem Verzeichnis "Kunden", update und close savechanges und hör auf, wenn du alle abgearbeitet hast.
Kennt jemand eine Einfügung für solch eine Fehlermeldung oder einen Code für "Variante B"?
Dies ist übrigens das Makro:
Sub OeffnenSchliessen()
'aktualisiert werden die Dateien aus Spalte A der Tabelle
'Code ist von der internetseite www.herber.de VBA Beispiele, Thema Datei- Gruppe öffnen
Dim iRow As Integer
Dim sFile As String
On Error GoTo Errorhandler
Application.ScreenUpdating = False
Application.EnableEvents = False
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
sFile = Cells(iRow, 1).Value
If Dir(sFile) "" Then
Workbooks.Open _
Filename:=sFile, _
updatelinks:=True
ActiveWorkbook.Close savechanges:=True
End If
iRow = iRow + 1
Loop
Errorhandler:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Leider bin ich im Moment noch deutlich am unteren Rand des VBA-Wissensspektrums, umso mehr: Danke schön!
Kerstin
Anzeige