Microsoft Excel

Herbers Excel/VBA-Archiv

Tabelle in externer Datei löschen

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

  

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!


  

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


  

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.

GrußformelHomepage


  

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


  

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


 

Beiträge aus den Excel-Beispielen zum Thema "Tabelle in externer Datei löschen"