Hej, jag sitter och försöker lägga in en logga uppe i översta cellen typ A:1 men lyckas inte riktigt. Följande har jag försökt med:

Dim oExcel, oBook, oSheet, filename
filename = "C:\AccessDatabas\test.xls"
Set fso = server.createobject("Scripting.FileSystemObject")
If fso.FileExists(filename) Then
fso.DeleteFile filename, True
End If

set oExcel = server.createObject("Excel.Application")
oExcel.DisplayAlerts=false
Set oBook = oExcel.Workbooks.add()
If oBook.Worksheets.Count<2 Then
oBook.Worksheets.add , oBook.Worksheets(oBook.Worksheets.Count), 2_
-oBook.Worksheets.Count
End if
oBook.Worksheets(1).Name = "Sheet1"
oBook.Worksheets(2).Name = "Sheet2"

' Följande kodrad har jag fått för mig att man ska använda men det genererar felet:
' "Unknown runtime error" har även provat med att lägga till .Select på slutet

oExcel.Worksheets(1).Columns("A1"). Pictures.Insert_
"C:\AccessDatabas\loggo.jpg")


oBook.SaveAs Filename
oBook.Close False
Set oBook = Nothing
oExcel.Quit
Set oExcel = Nothing


Finns det nån som kan hjälpa mig med detta??
/Micke

Jag gjorde det på ett annat sätt. Jag hade en excelfil som hade en logga på sig med lite bestämda förutsättningar. När jag sen skulle göra en ny rapport så kopierade jag först den och sen använde kopian.

Ett exempel finner du i programbanken där ett sådant system byggdes.