Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.03.2009 12:08:50 |
Sebas |
|
|
Aw:Temporäres Workbook beim schließen löschen |
10.03.2009 14:21:26 |
Holger |
|
|
|
11.03.2009 11:06:19 |
sebas |
|
|
Von:
Holger |
Datum:
10.03.2009 14:21:26 |
Views:
971 |
Rating:
|
Antwort:
|
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Aw:Temporäres Workbook beim schließen löschen |
10.03.2009 14:21:26 |
Holger |
|
|
|
11.03.2009 11:06:19 |
sebas |
|
|