Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Überschreiben verhindern bei Arbeitsblattexport

Überschreiben verhindern bei Arbeitsblattexport
11.04.2005 14:54:56
Mark
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Überschreiben verhindern bei Arbeitsblattexport
15.04.2005 09:12:46
MichaV
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
AW: Überschreiben verhindern bei Arbeitsblattexport
15.04.2005 10:13:28
Mark
Super, funktioniert. Danke dir...
mfg
Mark
Danke für Rückmeldung owT
15.04.2005 10:28:54
MichaV
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige