bei Blatt einfügen wird Makro einfach beendet
Christian
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
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
Anzeige