Herbers Excel-Forum - das Archiv

Tabelle in externer Datei löschen

Bild

Betrifft: Tabelle in externer Datei löschen
von: Marcus

Geschrieben am: 11.03.2008 09:09:05

Hallo,
irgendwie stehe ich auf dem Schlauch. Ich möchte in einer geschlossenen Excel-Datei eine bestimmte Tabelle löschen. Leider bekomme ich das nicht hin. In einer geöffneten Excel-Applikation geht das problemlos. Aber wie kann ich im Hintergrund eine Excel-Datei öffnen (Visible=False) und dort ein bestimmtes Worksheet entfernen?
Marcus

Bild

Betrifft: AW: Tabelle in externer Datei löschen
von: {mskro}
Geschrieben am: 11.03.2008 09:14:45
Hallo Markus,
das geht so weit mir bekannt ist auch nur in einer geöffneten Datei.
Gruß Manfred
Rückmeldung wäre nett!

Bild

Betrifft: AW: Tabelle in externer Datei löschen
von: Marcus
Geschrieben am: 11.03.2008 09:17:45
Hallo Manfred,
danke erstmal für Deine Antwort.
Das finde ich ziemlich seltsam. Ich kann doch auch Tabellen erstellen, wieso kann ich denn keine löschen?
Mit bestem Dank im Voraus
Marcus

Bild

Betrifft: AW: Tabelle in externer Datei löschen
von: Hajo_Zi

Geschrieben am: 11.03.2008 10:04:39
Hallo MNarcus,
in DEinem ersten Beitrrag Stand
"Aber wie kann ich im Hintergrund eine Excel-Datei öffnen (Visible=False) und dort ein bestimmtes Worksheet entfernen?"
Nichts anderes hat Marcus doch auch geschrieben, das die Datei geöffnet werden muss.

Bild

Betrifft: AW: Tabelle in externer Datei löschen
von: Marcus

Geschrieben am: 11.03.2008 11:48:57
Hallo,
danke erstmal für die Hilfe.
Was mache ich hier falsch?

pfad = "C:\Dokumente und Einstellungen\Marcus\Eigene Dateien\Mappe2.xls"
Set wb = app.Workbooks.Open(pfad)
app.Visible = False
wb.Worksheets("Tabelle3").Delete
wb.Save
wb.Close


In tiefer Verzweiflung ;-)
Marcus

Bild

Betrifft: AW: Tabelle in externer Datei löschen
von: Marcus

Geschrieben am: 11.03.2008 16:11:01
Hallöchen,
ich habe es hinbekommen:

Dim app As New Application
Dim wb As Workbook
Dim pfad As String
pfad = "C:\Dokumente und Einstellungen\Marcus\Eigene Dateien\Mappe2.xls"
Set wb = app.Workbooks.Open(pfad)
app.DisplayAlerts = False '<------ Scheint wichtig zu sein!
app.Visible = False
wb.Sheets("Tabelle3").Delete
wb.Save
wb.Close
Set wb = Nothing
Set app = Nothing


Danke an die Helfenden!
Marcus

 Bild
Excel-Beispiele zum Thema "Tabelle in externer Datei löschen"
Suche über mehrere Tabellen Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln
Tabellenblattnamen der VBE-Projekte ändern Tabellenblattnamen nach Datum