UpDate von Dateien
30.09.2004 13:53:51
Torsten K.
in einem WS("FILES") habe ich den Pfad und den Namen mehrerer Exceldateien.
Über einen Button in einem anderen WS("START") kann ich mit Hilfe des Codes
die o.g. Dateien aufrufen und aktualisieren:
Private Sub cmb_UpDate_Click()
If MsgBox("Sollen die Umsatzdateien jetzt aktualisiert werden?", vbYesNo) = vbYes Then
Dim i As Integer
Dim irow As Integer
Dim wbName As String
Dim wbName2 As String
On Error GoTo errHandler
With Application
.ScreenUpdating = False
.StatusBar = "Dieser Vorgang dauert ein paar Minuten. Bitte Geduld haben..."
.DisplayAlerts = False
.EnableEvents = False
End With
For i = 1 To Sheets("FILES").Range("A1").End(xlDown).Row
wbName = Sheets("FILES").Cells(i, 1)
Workbooks.Open wbName, 3
ActiveWorkbook.Save
ActiveWorkbook.Close , True
Next i
With Application
.DisplayAlerts = True
.StatusBar = False
.EnableEvents = True
.ScreenUpdating = True
End With
MsgBox "Dateien wurden aktualisiert", vbOKOnly
Else
End If
Exit Sub
errHandler:
With Application
.DisplayAlerts = True
.StatusBar = False
.EnableEvents = True
End With
MsgBox "Beim Update der Datei" & vbCr & wbName & vbCr & _
"ist ein Fehler aufgetreten!", vbCritical + vbOKOnly, "ABBRUCH!"
'ActiveWorkbook.Close , True
End Sub
(Code mit Hilfe des Forums erarbeitet)
Merkwürdigerweise kommt es aber dann zu einem Fehler, wenn in dem WS("FILES") nur eine Datei mit Pfadangabe enthalten ist:
Fehlermeldung: Überlauf
und Excel markiert die Zeile:
For i = 1 To Sheets("FILES").Range("A1").End(xlDown).Row
Wie muß denn der Code geändert werden, sodaß das Makro auch dann durchläuft, wenn nur eine Eintrag vorhanden ist? Könnt Ihr mir helfen?
Vielen Dank im voraus.
Gruß
Torsten