Hente data fra excel via asp

Prøv at kikke på dette eks:

http://www.able-consulting.com/ADO_Faq.htm#Q15

Det har jeg fået til at virke engang.

hmm

Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401)
Slut på sætning var ventet

filnavn.asp, line 7, column 10
som ser sådan ud
Dim oConn As ADODB.Connection

hmm måske kan det ikke alde sig gøre på en iis5.0 ?

hov ja det glemte jeg lige...

I asp hedder det:
Set oConn = Server.CreateObject("ADODB.Connection")

lige ledes med recordset:


Set oRs= Server.CreateObject("ADODB.Recordset")


Så slet disse 3 liner + hvis der er flere.:
Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset

Set oConn = New ADODB.Connection

ahh okay

også den her ?
Set Cmd = New ADODB.Command

hvis jeg fjern den så siger den
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: 'Cmd'

hmm kan man bruge sql sætning mon..hum

JA.. den skal også væk...

oCmd.CommandText = "SELECT * from `Range1`"

kan laves til:
sql = "SELECT * from `Range1`"

Samt
oRS.Open oCmd, , adOpenKeyset, adLockOptimistic
rettes til:
oRS.Open sql,oConn, adOpenKeyset, adLockOptimistic

du skal så rette selv SQL'en til at passe med din SQL.

hmm range1, er det regnearkets navn eller er det ark'en inden i regnearket

er ret ny til det her :)

Det er en range man angiver inde i excelregnearket som vælger de rækker man vil havde med ud isql'en.

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=Arbejdsplan 2002 nathold 1.xls;" & _
          "Extended Properties=""Excel 8.0;HDR=Yes;"";"


Set RS = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * from `Ark4`"
RS.Open sql,Conn, adOpenKeyset, adLockOptimistic

sådan ser koden ud nu..men bliver ved med at få den fejl .:
(linie 20 er der hvor jeg pbner RS

Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem.
filnavn.asp, line 20

Prøv at tage et kik her:

http://www.eksperten.dk/spm/49390

nu fandt jeg koden på min PC:

<%

set oConn = Server.CreateObject("ADODB.Connection")
set oRs = Server.CreateObject("ADODB.recordset")

' Open a connection to the Excel spreadsheet
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source="&Server.MapPath("fil.xls")&";" & _
          "Extended Properties=""Excel 8.0;HDR=Yes;"";"

' Create a command object and set its ActiveConnection
' This SQL statement selects a cell range in the "Expenses"  worksheet.
'    oCmd.CommandText = "SELECT * from `Expenses$A2:C4`"

' This SQL statement selects a named cell range defined in the workbook.
sql = "SELECT * from myRange"

' Open a recordset containing the worksheet data.
oRS.Open sql,oConn,1,3


while not(oRS.EOF OR oRS.BOF)
  Response.Write "<br>" & oRS("Felt1") & " " & oRS("Felt2")
  oRS.MoveNext
Wend


' Add a new row
oRS.AddNew
oRS("Felt1").Value = 7
oRS("Felt2").Value = 8
oRS.Update

%>


Min fil hedder fil.xls

Den indeholder, til at starte med:
    A        B
1  Felt1  Felt2
2  Data1  Data11
3  Data2  Data22

myRange er sat ved at marker fra A1->B3 ($A1:B3) med musen og så give det navnet myRange.

Microsoft OLE DB Provider for ODBC Drivers (0x80040E37)
[Microsoft][ODBC Excel-driver] Microsoft Jet-databasemotoren kan ikke finde objektet "arbplan". Kontroller, at objektet findes, og at du har stavet navnet og stien korrekt.
/lars/lars.asp, line 29


men den findes jo :-/

prøv at skrive denne linie med Server.mappath til finnavnet:

  "Data Source=" & Server.Mappath("Arbejdsplan 2002 nathold 1.xls") & ";" & _

tjah nu kan den da åbne :)

men nu siger den det her
Elementet kan ikke findes i den samling, der svarer til det anmodede navn eller ordenstal.
while not(oRS.EOF OR oRS.BOF)
Response.Write "<br>" & oRS("JANUAR") & " " & oRS("FEBRUAR")
  oRS.MoveNext
Wend

det er sådan man skal gøre ik ?

Håber du kunne bruge det til noget, jeg er nød til at smutte i seng nu..

Du skal angive kolonne navne i første række i regnearket:
    A        B
1 JANUAR  FEBRUAR

Eller så prøv med

while not(oRS.EOF OR oRS.BOF)
Response.Write "<br>" & oRS(0) & " " & oRS(1)
  oRS.MoveNext
Wend

okay januar ser sådan ud i regnearket ..
    JANUAR
   
1.    TIR                  1
2.    ONS
3.    TOR
4.    FRE
5.    LØR
6.    SØN
7.    MAN              2
8.    TIR
9.    ONS
10.    TOR
11.    FRE
12.    LØR
13.    SØN
14.    MAN              3
15.    TIR
16.    ONS
17.    TOR
18.    FRE
19.    LØR
20.    SØN
21.    MAN              4
22.    TIR
23.    ONS
24.    TOR
25.    FRE
26.    LØR
27.    SØN
28.    MAN              5
29.    TIR
30.    ONS
31.    TOR

mener du så man skal defienre, altså sætte kolonne 1 og kolonne 0 til at være Januar ?

Ja.. Hvis du ikke vil ændre i det kan du ændre i connection:
Ret denne linie
"Extended Properties=""Excel 8.0;HDR=Yes;"";"

Til:
"Extended Properties=""Excel 8.0;HDR=No;"";"

Yes betyder den tager den første række som kolonne navne man kan bruge.
No betyder den tager alle data med men så kan du ikke skriver oRs("Januar") så skal du skrive oRs(0) for den førte kolonne.

Godnat, jeg kikker forbi i morgen eftermiddag/aften.

Response.Write "<TABLE BORDER='1' BGCOLOR='#FFFFFF' BORDERCOLOR='#a3a3a3' BORDERCOLORLIGHT='#000000' BORDERCOLORDARK='#767676'><tr><td>"
Response.Write oRS.GetString (, -1, "</tr><td>", "</td></tr><tr><td>", NBSPACE)
response.write "</table>"

fandt det her stump kode ..ret simplet ..lol

http://195.249.94.27/lars/lars.asp
kig

nu skal jeg bare finde ud hvordan man kan få den til at vise de fellter min ven har markeret med gråt..de dage han arbejder....

ved du om man kan det.. ?

Ok..

ummidelbart tror jeg ikke det kan lade sig gøre, da den hendter teksten, og nok ikke tager formateringen af cellen med.

kan det lade sig gøre med din kode ?

Nej, den kode jeg har lavet tager også kun teksten ud, ikke formateringen af cellerne.

vil du have pointsne ?

Ja det vil jeg da godt :)