Ik moet voor mijn stage een asp pagina maken die een excel sheet genereert met behulp van gegevens die in een database staan. De database is geen probleem, dat heb ik al zoveel gedaan, dat ken ik wel dromen. Ik heb echter nog nooit een excel sheet laten genereren. Dus aan de slag.
Nou vond ik 2 mogelijkheden namelijk :
en
De 2de mogelijkheid werkt goed, maar niet naar wens.Excel wordt in IE geopend
en dat is niet de bedoeling. De sheet moet nl automatisch op de hardisk worden
opgeslagen. En dat is wel bij 1ste mogelijkheid mogelijk. Dus na wat zoek werk vond ik de volgende code :
Deze genereerde het excel bestand Test.xsl 1 keer. De tweede keer kwamie met de melding :
error '80010001'
Aanroep geweigerd door aangeroepene.
/Test/Excel1.asp, line 7
En deed de code helemaal niet meer, behalve als ik de computer opnieuw opstart en dan doet de code het weer 1 keer. Google leverde niet veel (nutige) info op voor een oplossing.
Microsoft gaf dit :
Microsoft
Maar wat heb dit met mijn probleem te maken ?
Op een andere forum staat dit :
http://www.experts-exchan...uages/ASP/Q_20272970.html
Maarja, de oplossing kan ik niet gebruiken want er wordt dan
gebruikt.
Weet iemand misschien wat het probleem is ?
Alvast bedankt !!
Nou vond ik 2 mogelijkheden namelijk :
code:
1
| Set ExcelSheet = CreateObject("Excel.Sheet") |
en
code:
1
| response.ContentType = "application/vnd.ms-excel" |
De 2de mogelijkheid werkt goed, maar niet naar wens.Excel wordt in IE geopend
en dat is niet de bedoeling. De sheet moet nl automatisch op de hardisk worden
opgeslagen. En dat is wel bij 1ste mogelijkheid mogelijk. Dus na wat zoek werk vond ik de volgende code :
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| <%
Dim objExcel
Dim ExcelSheet
Set objExcel = CreateObject("Excel.Application")
objExcel.UserControl = true
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
ExcelSheet.ActiveSheet.Cells(1,1).Value = "Test" 'Field1.ValueEngr
ExcelSheet.SaveAs "C:\Test.XLS"
ExcelSheet.Application.Quit
Set objExcel = Nothing
Set ExcelSheet = Nothing
%> |
Deze genereerde het excel bestand Test.xsl 1 keer. De tweede keer kwamie met de melding :
error '80010001'
Aanroep geweigerd door aangeroepene.
/Test/Excel1.asp, line 7
En deed de code helemaal niet meer, behalve als ik de computer opnieuw opstart en dan doet de code het weer 1 keer. Google leverde niet veel (nutige) info op voor een oplossing.
Microsoft gaf dit :
Microsoft
Maar wat heb dit met mijn probleem te maken ?
Op een andere forum staat dit :
http://www.experts-exchan...uages/ASP/Q_20272970.html
Maarja, de oplossing kan ik niet gebruiken want er wordt dan
code:
1
| response.ContentType = "application/vnd.ms-excel" |
gebruikt.
Weet iemand misschien wat het probleem is ?
Alvast bedankt !!