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.