<%@ Language=VBScript %>
<%
strVorlage = Server.MapPath("./Excel/xlsvorlage.xls")
strFull = Server.MapPath("./Excel/xlsfull.xls")
set Datei = Server.CreateObject("Scripting.FileSystemObject")

if Datei.FileExists(strFull) = true then
 Datei.DeleteFile strFull
end if

strSQL = "SELECT * FROM Products"
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

 conn.Open "Provider=SQLOLEDB.1;", "admin", ""
 rs.Open "Products",conn,adOpenKeyset,adLockOptimistic

 varCount = rs.RecordCount-1
 dim Arr()
 redim Arr(varCount,2)
 
 rs.MoveFirst
 if not rs.EOF and not rs.BOF then
  do while not rs.EOF
   Arr(i,0) = rs.Fields("ProductID")
   Arr(i,1) = rs.Fields("ProductName")
   Arr(i,2) = rs.Fields("UnitPrice")
   rs.MoveNext
   i = i + 1
  loop
 else
  Response.End
 end if 
   
 rs.Close
set rs = nothing
 conn.Close
set conn = nothing

Set oExcel = CreateObject("Excel.Application")   ' --- Server.CreateObject ist schneller
    With oExcel
'--- Excel-Vorlage öffnen
        .Workbooks.Open (strVorlage)
'--- kopieren und einfügen der Tabellen- und DM-Formatierung für alle notwendigen Bereiche
  .ActiveSheet.Range("C7:E7").Copy
  .ActiveSheet.Range("C8:C" & cint(varCount + 7)).PasteSpecial
  i = 0
'--- durchlaufen des Arrays
  for i = 0 to varCount
'--- Werte in Zellen des Excel-Sheets schreiben.
'--- i+7 --> weil die Tabelle in Excel im Range("C7") beginnt
   .ActiveSheet.Range("C" & cint(i + 7)) = arr(i,0)
   .ActiveSheet.Range("D" & cint(i + 7)) = arr(i,1)
   .ActiveSheet.Range("E" & cint(i + 7)) = arr(i,2)
  next
'--- Breite der Spalte D wird auf "Benötigte Breite" vergrößert(od. verkleinert)
  '.Columns("D:D").EntireColumn.AutoFit
'--- Speichern der Datei in neuem File
  .ActiveWorkbook.SaveAs strFull
'--- schließen des ActiveWorkbooks - False als Eigenschaft für Änderungen speichern
        .ActiveWorkbook.Close False
'--- Quit schließt die Excel-Anwendung 
'--- (Wichtig!!! ansonsten bleibt Excel im Speicher(ca.5 MB)
        .Quit
    End With
'--- Objekt zerstören
Set oExcel = Nothing
%>