Indlæse data fra Excel med ASP

hvis jeg efter linien set rs = Conn.execute(strSQL)

skriver

response.write "Her kommer noget" - bliver det udskrivet OK

hvis jeg i stedet skriver

Response.Write "her: "& rs(0) - udskriver den intet - ej heller "her".

Det virker som om mit rs går det onde ved mit script

Er din kode 100% som du har vist, er linierne i den rækkefølge?


Men du bruger et connection object som hedder Conn til at åbne rs men du har kaldt det connection object som åber forbindelsen for objConnExcel:

Set rs = Conn.Execute(strSQL)


Så prøv at rette den linie til dette:

Set rs = objConnExcel.Execute(strSQL)

Hvis du ikke fik en fejl kunne det tyde på også har defineret et connection object som hedder conn før i koden, eller du har linien "On Error Resume Next" i koden, den er også godt at havde bare ikke når man tester koden, så hvis du har den bør du lige udkommenter den mens du tester koden ;)

Grunden til jeg spørger om rækkefølgen af koden er fordi i sprøgsmå ser det nemlig ud som om du sætter rs = nothing før du udskriver fra recordset. Det kan jo være bevidst i spørgsmålet for at fremhæve din udskrivning... :)

Men du kan prøve at rette koden til sådan her:


Set objConnExcel = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Excel Driver (*.xls)}; "
strConn = DSN & "DBQ="& server.MapPath("minFil.xls")
objConnExcel.Open strConn
strSQL = "SELECT * from myRange1"
Set rs = objConnExcel.Execute(strSQL)
           
while not rs.EOF
  response.write "<br><br>Her: "& rs("email") &" - "& rs("navn")
  rs.MoveNext()
Wend
rs.Close()
set rs = nothing
objConnExcel.Close
set objConnExcel = nothing

hej

Det var lige præcis en on error resume next der lavede baladen. De to forskellige navne på conn var naturligvis også en fejl.

Jeg takker mange gange for hjælpen.

Nu virker det hvis jeg definerer en range i mit Excel-ark.

Hvis jeg skriver

Set objConnExcel = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Excel Driver (*.xls)}; "
strConn = DSN & "DBQ="& server.MapPath("minFil.xls")
objConnExcel.Open strConn
strSQL = "SELECT * from [ark1$]"
Set rs = objConnExcel.Execute(strSQL)
           
while not rs.EOF
  response.write "<br><br>Her: "& rs("email") &" - "& rs("navn")
  rs.MoveNext()
Wend
rs.Close()
set rs = nothing
objConnExcel.Close
set objConnExcel = nothing

virker det ikke. Kunder du syntaxen for at importere fra et ark med et givent navn? eller endnu bedre fra første ark i excel-dokumentet. Mit script skal køre som en importfunktion af nogle emails og nogle navne.

Jeg vil således helst hvis jeg bare kunne sætte scriptet op til at tage første ark og herpå første og anden kolonne?

jeg har fundet ud af det