exel performance

Could it be <%Response.Write taeller%>, der skulle være <%=taeller%>??

Det ligner noget med at du er ved at gemme data i arket?

Ehm skal det ikke bare være:

set xl = createobject(\"excel.application\")

xl.workbooks.add

    xl.cells(taeller,1).value =\"Antal\"
    xl.cells(taeller,2).value =\"Leveringsform\"
    xl.cells(taeller,3).value =\"Kunde navn\"
    xl.cells(taeller,4).value =\"Kunde\"

Off kårse... stupid me!

Hvad er forskellen mellen Response.write og tealler?..

Jeg har lige tænkt lidt over det, hvordan bruger du det ? Printer du til et form for vbs script eller bruger du ovenstående i din asp kode ?

Det er ikke mig der har skrevet koden. Jeg skal bare løse problemerne :-).

Han kalder det exel objekt
set xl = createobject(\"excel.application\")

Smakker en masse data ind og  skriver til slut


xl.Visible=true

end sub

excel()

Så skal du bare bruge det jeg skrev, skulle jeg mene, jeg synes bare det virker lidt mystisk.

Her er toppen af koden...

Response.Write \"<SCRIPT LANGUAGE=vbscript>\"

taeller=1

%>

Sub Excel()

set xl = createobject(\"excel.application\")

xl.workbooks.add


Det er et asp ark med visual basic kode.. hmm??

Dine ændringer gør ingen forskel. Når antallet af poster kommer op på ca 500 så giver skidtet op. Der sker faktisk ingen ting.

Normalt ville jeg få en active-x advarsel, men der sker absolut ingenting.

Meget underligt

Okay, nu begynder det at give lidt mere mening :-) Hvad med at omskrive det hele så der ikke startes og stoppes for asp hele tiden:

<%
taeller=1
With Response
.Write \"<SCRIPT LANGUAGE=vbscript>\"
.write(\"Sub Excel()\")
.write(\"set xl = createobject(\"\"excel.application\"\")\")
.write(\"xl.workbooks.add\")
.write(\"xl.cells(\"&taeller&\",1).value =\"\"Antal\"\"\")
.write(\"xl.cells(\"&taeller&\",2).value =\"\"Leveringsform\"\"\")
.write(\"xl.cells(\"&taeller&\",3).value =\"\"Kunde navn\"\"\")
.write(\"xl.cells(\"&taeller&\",4).value =\"\"Kunde\"\"\")
.wrtie(\"xl.Visible=true\")
.write(\"end sub\")
.write(\"excel()\")
End with
%>

damn the skidt.. vil ikke køre og jeg får kun error 500 internal server error *suk*



taeller=1



Response.write(\"Sub Excel()\")

Response.write(\"set xl = createobject(\"\"excel.application\"\")\")

Response.write(\"xl.workbooks.add\")

Response.write(\"xl.cells(\"&taeller&\",1).value =\"\"Antal\"\")
Response.write(\"xl.cells(\"&taeller&\",2).value =\"\"Leveringsform\"\")
Response.write(\"xl.cells(\"&taeller&\",3).value =\"\"Kunde navn\"\")
Response.write(\"xl.cells(\"&taeller&\",4).value =\"\"Kunde adr1\"\")
Response.write(\"xl.cells(\"&taeller&\",5).value =\"\"Kunde adr2\"\")
Response.write(\"xl.cells(\"&taeller&\",6).value =\"\"Kunde adr3\"\")
Response.write(\"xl.cells(\"&taeller&\",7).value =\"\"Kunde postnummer\"\")
Response.write(\"xl.cells(\"&taeller&\",8).value =\"\"Kunde by\"\")
Response.write(\"xl.cells(\"&taeller&\",9).value =\"\"Leveres navn\"\")
Response.write(\"xl.cells(\"&taeller&\",10).value =\"\"Lev adr1\"\")
Response.write(\"xl.cells(\"&taeller&\",11).value =\"\"Lev adr2\"\")
Response.write(\"xl.cells(\"&taeller&\",12).value =\"\"Lev adr3\"\")
Response.write(\"xl.cells(\"&taeller&\",13).value =\"\"Lev postnummer\"\")
Response.write(\"xl.cells(\"&taeller&\"14).value =\"\"Lev by\"\")
Response.write(\"xl.cells(\"&taeller&\",15).value =\"\"Att person\"\")
Response.write(\"xl.cells(\"&taeller&\",16).value =\"\"Udført\"\")
   

Der skal være 3 \" i sidste ende af alle linierne:

Response.write(\"xl.cells(\"&taeller&\",1).value =\"\"Antal\"\"\")

Netsrac.. du har fortjent dine point..

Fik du det til at køre bedre eller ?

Undskyld jeg spørg. men skriver dit eksempel ikke at modparten har excel på sin maskine?

Er det ikke muligt at opdatere en excelfil på sin egen server uden at modparten også har excel?

Ala

<% RS.Cells(12,13).value = \"M\" %>

Wired.