Herbers Excel-Forum - das Archiv

Überschreiben verhindern bei Arbeitsblattexport

Bild

Betrifft: Überschreiben verhindern bei Arbeitsblattexport
von: Mark

Geschrieben am: 11.04.2005 14:54:56
Hallo Leute
Ich habe eine Datei in der ich das erste Tabellenblatt per Makro in eine neue Datei ausgeben kann. Soweit so gut. Die Datei bekommt auch einen Dateinamen zugewiesen. Der Quellcode folgt unten. Ist es jetzt irgendwie möglich ihm zu sagen, dass er gucken soll ob die Datei vorhanden ist? Wenn ja soll er sie öffnen, wenn nein, soll er die Datei neu anlegen. Wie mach ich das?
Danke für die Hilfe
Mark
Quellcode - Ich hoffe ihr steigt durch...:

Sub externalDataOutput()
Application.ScreenUpdating = False
Workbooks.Add
ChDir "C:\Temp"
Dim Dateiname As String
Dateiname = _
Workbooks("Test.xls").Worksheets("Helptable").Cells(3, 2).Value & _
" vom " & _
Workbooks("Test.xls").Worksheets("Zwischenablage").Cells
(3,3).Value  & _".xls"
ActiveWorkbook.SaveAs Filename:="C:\Temp\" & Dateiname & ".xls",
FileFormat:=xlNormal _
, Password:=test, WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Windows("Test.xls").Activate
Cells.Select
Selection.Copy
Windows(Dateiname).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
Windows(Dateiname).Activate
Application.CutCopyMode = False
Windows("Test.xls").Activate
Selection.Copy
Windows(Dateiname).Activate
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Windows("Test.xls").Activate
Range("A1").Select
Windows(Dateiname).Activate
Range("A1").Select
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

Bild

Betrifft: AW: Überschreiben verhindern bei Arbeitsblattexport
von: MichaV

Geschrieben am: 15.04.2005 09:12:46
Hi,
Dim DateiPfad as string
Dateiname = blabla
DateiPfad="Pfad\Zur\Datei" & Dateiname & ".xls"
if Dir(DateiPfad)="" then 'Datei nicht vorhanden
ActiveWorkbook.SaveAs blabla
Else 'Datei vorhanden
Workbooks.Open DateiPfad
End If
Hab ich übrigens innnerhalb 5min über die Recherche rausgefunden
Gruß- Micha
PS: Rückmeldung wäre nett
Bild

Betrifft: AW: Überschreiben verhindern bei Arbeitsblattexport
von: Mark
Geschrieben am: 15.04.2005 10:13:28
Super, funktioniert. Danke dir...
mfg
Mark
Bild

Betrifft: Danke für Rückmeldung owT
von: MichaV
Geschrieben am: 15.04.2005 10:28:54
 Bild
Excel-Beispiele zum Thema "Überschreiben verhindern bei Arbeitsblattexport "
Nichtnumerische Eingaben verhindern Fehlermeldung #DIV/0! verhindern
Wechselweise den Eintrag einer 1 verhindern Programmabbruch bei Überspeichernabfrage verhindern
Nichtnumerische Eingaben in TextBox verhindern Auswahl eines Zellbereiches verhindern
Vertikalen Seitenumbruch verhindern Verhindern des Schließens einer UserForm mittels Schließkreuz
Aufhebung der Workbook_Open-Befehle verhindern Editieren von Zellen durch DoppelKlick verhindern