Datei mit variabl. Namen schließen
14.06.2006 10:31:53
Thorsten_Z
Ich tue mich mit folgendem Code etwas schwer. Ich starte aus der Mappe "StatistikStationär" folgenden Code, um eine Sicherung wieder herzustelle. Die Sicherung besteht immer aus dem Sicherungsdatum und SicherungStationär z.B.: "10.06.06 SicherungStationär.xls". Klappt auch alles wunderbar, Aber, ich möchte nun die geöffnete Sicherungsdatei auch wieder schließen. da der Name der Datei wegen des Datums immer anders ist (kann ja auch "11.06.06 SicherungStationär.xls" heißen)Weiß ich nicht wie ich dieses umsetzen kann. Die wiederherzustellende Datei wähle ich aus einer Liste.
Den Code habe ich von der Excel CD und leicht abgewandelt.
Hier der Code:
Sub OpenFiles()
Dim wks As Worksheet
Dim iRow As Integer
Dim sPath As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Set wks = ActiveSheet
iRow = 1
sPath = Range("B1").Value
On Error GoTo ERRORHANDLER
Do Until IsEmpty(wks.Cells(iRow, 1))
iRow = iRow + 1
'hier wähle ich die wiederherzustellende Sicherung aus
If LCase(wks.Cells(iRow, 2).Value) = "x" Then
Workbooks.Open sPath & "\" & wks.Cells(iRow, 1).Value, False
Range("A1:AD4004").Select
Selection.Copy
'Wechsel von der Sicherungsdatei zu meiner Arbeitsmappe
Windows("StatistikStationär.xls").Activate
Sheets("Liste").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'bis hier läuft alles wie geplant. mir fehlt nur noch der Befehl
'um die entsprechende Sicherungsdatei wieder zu schlißen
End If
Loop
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Ich hoffe mich verständlich ausgedrückt zu haben.
Wer hat einen Tipp für mich?
Vielen Dank im Vorraus
Rückmeldung von meiner Seite ist selbstverständlich
Gruß
Thorsten