AW: Dateinamen während Auto_Open im AddIn
22.08.2008 13:32:00
Rudi
Hallo,
im AddIn:
in DieseArbeitsmappe:
Private Sub Workbook_Open()
Set objApp = New clsApplication
Set objApp.prpApplication = Excel.Application
End Sub
in einem Modul:
Public objApp As clsApplication
ein Klassenmodul anlegen. Name: clsApplication
in clsApplication:
Option Explicit
Private WithEvents myApp As Application
Friend Property Set prpApplication(objApplication As Excel.Application)
Set myApp = objApplication
End Property
Private Sub myapp_workbookopen(ByVal wb As Workbook)
If wb.Name = "test.csv" Then MsgBox "Hallo"
End Sub
Private Sub myapp_workbookbeforeclose(ByVal wb As Workbook, cancel As Boolean)
If wb.Name = "test.csv" Then MsgBox "Tschüß"
End Sub
Damit es funktioniert, musst du Workbook_open starten.
Gruß
Rudi