Ü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 "