Thema Datum  Von Nutzer Rating
Antwort
10.03.2009 12:08:50 Sebas
NotSolved
Blau Aw:Temporäres Workbook beim schließen löschen
 10.03.2009 14:21:26 Holger
NotSolved
11.03.2009 11:06:19 sebas
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
10.03.2009 14:21:26		 Views:
970		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Temporäres Workbook beim schließen löschen
Hallo Sebas,
das wollte ich immer schon einmal ausprobieren. Du kannst nach dem Erzeugen deines temporären Workbooks Code in dessen Codefenster schreiben, so dass du das Beforeclose-Ereignis auswerten kannst, z.B.

Dim vb As Object
Dim m As Object
Dim n As Integer, i As Integer
Set vb = Workbooks("Name deines temporären Workbooks.xlsm").VBProject.VBComponents
a = vb.Count
For Each m In vb
If m.Name = "DieseArbeitsmappe" Then
With m.CodeModule
.insertLines 1, "sub workbook_BeforeClose()"
.insertLines 2, "Deine Anweisungen"
...
.insertLines n, "end sub"
End With
Exit Sub
End If
Next

Wenn es klappt, würde ich mich über eine Rückäußerung freuen.
Gruß
Holger


Sebas schrieb am 10.03.2009 12:08:50:

Hallo,

innerhalb eines VBA Programms mache ich eine Datenbankabfrage und möchte das Ergebnis in einem temporären Workbook anzeigen (soll als Popup erscheinen). Dieses Workbook soll beim schließen automatisch wieder gelöscht werden.
Der Code zum erstellen und löschen funktioniert und habe ihn weiter unten gepostet. Jedoch bin ich noch am rätseln wo ich die sub fürs löschen integrieren soll. Eigentlich könnte man sie ja in "Workbook_BeforeClose" schreiben, da es sich jedoch um eine temoräre Datei handelt, wird "thisworkbook" aber jedes mal neu erstellt.
Hilfe!....ich stehe auf dem Schlauch :(
Wo muss die Sub workbook_löschen() hin???

hier der Code:

Sub workbook_erstellen()
Dim wkbBusqueda As Workbook
Dim zielpfad As String
zielpfad = "c:\temp.xls"
Workbooks.Add
ActiveWorkbook.SaveAs (zielpfad)
Set wkbBusqueda = Workbooks.Open(zielpfad)
End Sub

Sub workbook_löschen()
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Name = "temp.xls" Then
wkb.Close SaveChanges:=False
Kill strTmpPath & strTmpName
Exit Sub
End If
Next wkb
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.03.2009 12:08:50 Sebas
NotSolved
Blau Aw:Temporäres Workbook beim schließen löschen
 10.03.2009 14:21:26 Holger
NotSolved
11.03.2009 11:06:19 sebas
NotSolved