execel????
那是啥?能吃嗎?
=========================另一人格==============================
試試這個
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set oExcel = CreateObject("Excel.Application")
fileExcel="a"
filePath= Server.mapPath(SitePath)
filename= filePath & "\reports\" & fileExcel&".xls"
if fs.FileExists(filename) then
Set oBook = oExcel.Workbooks.Open(filename)
Set oSheet = oBook.Worksheets("a")
oSheet.Cells.ClearContents
else
Set oBook = oExcel.Workbooks.add
Set oSheet = oBook.Worksheets(1)
oSheet.name="a"
end if