ich habe folgenden code in einem Add In:
Sub FileOpen()
Dim secAutomation As MsoAutomationSecurity
secAutomation = Application.AutomationSecurity
Application.AutomationSecurity = msoAutomationSecurityForceDisable
Workbooks.Open ("D:\Beispiel\Documents\Beispiel\AddIn\ADI+FILE+EDC+SEP+2010.xlsm")
Application.AutomationSecurity = secAutomation
ActiveWorkbook.Worksheets.Add.Name = "data"
End Sub
Das Tabellenblatt wird eingefügt aber nicht mehr umbenannt. Das programm wird einfach ohne Fehlermeldung beendet.Die Zeile:
Application.AutomationSecurity = msoAutomationSecurityForceDisable
ist um das Workbook Open Ereignis in der zu öffnenden Datei zu unterdrücken
Weiss jemand woran das liegen könnte bzw. was ich hier falsch mache?
Vielen Dank im vorraus
Christian