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
532to536
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
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mit Makro speichern, wenn Datei nicht vorhanden

Mit Makro speichern, wenn Datei nicht vorhanden
13.12.2004 21:00:58
Tim
Hallo,
ich habe folgendes Problem.
Ich speichere automatisch einzelne Tabellen, mit einem Macro, ab.
Über eine DDE-Schnittstelle wird eine Zelle beschrieben und bei einem bestimmten Wert wird eine Tabelle gespeichert.
Es kann aber passieren das diese Datei schon vorhanden ist.
gibt es dafür eine abfrage?
D.h. wenn Datei vorhanden, dann überspringe das Speichern?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Makro speichern, wenn Datei nicht vorhande
Ramses
Hallo
If Dir("D:\DeineDatei.xls") "" Then
Msgbox "Datei vorhanden"
Exit sub
End if
Gruss Rainer
AW: Mit Makro speichern, wenn Datei nicht vorhande
14.12.2004 14:45:11
Jan
Entweder:

Sub Sicher_Beenden()
Dim c as Object
Dim objFSO as Object
Dim counter as Boolean
Counter = False
Set  objFSO = CreateObject("Scripting.FileSystemObject")
For Each c in objFSO.GetFolder("D:\").Files
If c.Name = "Dateinameohneverzeichnis.xls" then
counter = True
Exit for
end if
Next
If not Counter = True then
ActiveWorkBook.Save
End if
ActiveWorkbook.close
End Sub


Sub Sichern_Beenden()
If Not Dir("D:\DeineDatei.XLS") = "DeineDatei.XLS" then
ActiveWorkbook.Save
End If
ActiveWorkBook.Close
End Sub

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige