Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei Speichern und Ersetzen

Datei Speichern und Ersetzen
06.02.2007 12:12:58
Anja
Hallo zusammen,
ich speichere mit einem Makro die einzelnen Tabellenblätter einer xls-Datei als Textdateien. Da diese häufiger aktualisiert werden und es viele Tabellenblätter sind, würde ich gern das Ersetzen der vorhandenen Dateien gleich durch das Makro bestätigen lassen.
Hat jemand eine Idee?
Vielen Dank.
Anja

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei Speichern und Ersetzen
06.02.2007 18:42:52
Da
Kleine Anregung:

Sub Speichern_unter()
Const PFAD As String = "C:\Eigene Dateien\" 'anpassen
Dim DName As String
DName = Sheets("Tabelle1").[a1].Text
If Dir(PFAD & DName) <> "" Then Kill PFAD & DName
ActiveWorkbook.SaveAs PFAD & DName & ".xls"
End Sub

AW: Datei Speichern und Ersetzen
08.02.2007 13:25:00
Anja
Leider funktioniert das bei mir nicht. Es war doch nur der Pfad anzupassen.
Es erscheint immer Laufzeitfehler 424 - Objekt erforderlich.
Dabei wird "DName = Sheets("Tabelle1").[a1].Text" markiert.
AW: Datei Speichern und Ersetzen
08.02.2007 17:25:05
Kurt
Hi,
dann gibt es kein Tabellenblatt, das Tabelle1 heißt.
mfg Kurt
Anzeige
AW: Datei Speichern und Ersetzen
09.02.2007 10:30:19
Anja
Aber dieses Blatt existiert. Hab es an mehreren Tabellen ausprobiert.
AW: Datei Speichern und Ersetzen
09.02.2007 11:31:12
Anja
Hab nun eine andere Variante eingebaut:
Application.DisplayAlerts = False

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige