Ü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

Beiträge aus den Excel-Beispielen zum Thema "Überschreiben verhindern bei Arbeitsblattexport "