H-P Ortner: HTML tabelle in XLS file mit VBSCRIPT

Beitrag lesen

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