Überprüfen, ob eine gewisse Excel-Mappe offen ist

[unknown]

Ich hab es gerade mal getestet,
 * eine leere Excel-Datei angelegt
 * folgenden Code einfügt

  
Sub Button_klick()  
  MsgBox ("Test")  
End Sub  
  
Function Buttons_erstellen()  
  Dim Target  
  Set Target = Range("A" & 1)  
  Set Button = ActiveSheet.Buttons.Add(Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)  
  Button.PrintObject = False  
  Button.Name = "Test"  
  Button.Caption = "Test"  
  Button.OnAction = "DieseArbeitsmappe.Button_klick"  
End Function  

* im HTML folgenden Code global eingefügt

  
<script type="text/vbscript">  
Function EXCEL_Tabelle_erstellen()  
  Dim OpenExcel, OpenWorkbook  
  Set OpenExcel = CreateObject("Excel.Application")  
  Set OpenWorkbook = OpenExcel.Workbooks.Open( "C:\\test.xls" )  
  
  'Internes Makro starten und ausführen'  
  OpenExcel.Run "DieseArbeitsmappe.Buttons_erstellen"  
  
  Set EXCEL_Tabelle_erstellen = OpenWorkbook  
End Function  
</script>  
<script type="text/javascript">  
VBSCode_EXCEL_Start( EXCEL_Tabelle_erstellen() );  
function VBSCode_EXCEL_Start( EXCEL_Speicherung )  
{  
  alert( EXCEL_Speicherung.FullName )  
  EXCEL_Speicherung.Save();  
  EXCEL_Speicherung.Close();  
};  
</script>  

wenn ich das HTML-File im öffne und danach meine Excel-Datei, habe ich in dieser nun einen Button.
ich vermute irgendwas stimmt nicht mit den Argumenten, die du Add übergobst.