Hallo
Hallo nochmal!
also ich habs jetzt doch geschafft :-)
hab auf die einstellungen im lokalen intranet vergessen :-)
habs jetzt so gemacht:
Freut mich dass es klappt - hier noch eine kleine Anregung:
<html>
<head>
<title>Test mit VB-Script</title>
<SCRIPT LANGUAGE="VBScript">
<!--
Function teste()
Set objXL = CreateObject("Excel.Application")
objXL.Visible = True
objXL.Workbooks.Add
objXL.WindowState = 2 'Minimiert
objXL.WindowState = 3 'Maximiert - Kombination bringt Excel nach vorne
for i= 1 to 50
objXL.ActiveSheet.Cells(i,1).Value = window.document.form1.Text.value
next
'msgbox("Text übertragen") 'Auskommentiert damit Excel sichtbar bleibt
End Function
-->
</SCRIPT>
</head>
<body>
<form name="form1">
<input type="Text" name="Text" value="Text der in Excel übertragen werden soll" size=40 maxlength=40>
<input type="button" value="Test" onClick='teste()'>
</form>
</body>
</html>
Dein FSO hast du auch schon eingebunden, damit steht deiner Lösung jetzt nichts mehr im Wege.
Viele Grüße
H-P Ortner