Datei austauschen
24.09.2004 08:06:03
Erich
ich versuche eine aktuelle Datei (mit bestimmten Inhalten) mit einer neuen
(leeren) Datei zu ersetzen / zu tauschen (gleicher Pfad, gleicher Dateiname).
Habe aus dem Forum verschiedene Ansätze zusammengetragen und komme nicht weiter:
Option Explicit
Sub Datei_tauschen()
' aktuelle Datei mit einer leeren Datei ersetzen
Dim strPath As String
Dim strName As String
Dim strFile1 As String ' = alte Datei
Dim strFile2 As String ' = neue Datei
Application.ScreenUpdating = False
strPath = ThisWorkbook.Path
strFile1 = ThisWorkbook.Name
Workbooks.Add
TabAuswahl ' neues Blatt anlegen zum sichern von Pfad und Datei
Sheets("alte Datei ist erledigt").Activate
Sheets("alte Datei ist erledigt").Cells(1, 1) = ThisWorkbook.Path
Sheets("alte Datei ist erledigt").Cells(2, 1) = ThisWorkbook.Name
strFile2 = Sheets("alte Datei ist erledigt").Cells(2, 1)
Windows(strFile1).Activate
''''''Jetzt fehlt die Lösung !!!!!!!!!!!
' solange die alte Datei nicht geschlossen ist,
' kann die neue Datei nicht unter dem gleichen Namen
' gespeichert werden.
' Wenn die alte Datei geschlossen ist, ist das Makro weg!!
With ActiveWorkbook
.Close
End With
ActiveWorkbook.SaveAs Filename:=strFile2, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.ScreenUpdating = True
End Sub
Sub TabAuswahl()
Dim Sh As Worksheet
Dim sName$
sName = "alte Datei ist erledigt"
For Each Sh In Worksheets
If InStr(Sh.Name, sName) > 0 Then
Sh.Select
Exit Sub
End If
Next Sh
Sheets.Add.Name = ("alte Datei ist erledigt")
Cells(1, 10).Select
End Sub
Alternativ bestünde auch die Möglichkeit alle Inhalte der Datei - incl. der
Module zu löschen - geht sowas?
Besten Dank für eine Hilfe!
mfg
Erich