Avatar billede janbangm Nybegynder
12. december 2013 - 10:36 Der er 3 kommentarer og
1 løsning

ASP og excel

Jeg har et problem, jeg håber I kan hjælpe mig med.
Jeg har et regneark, som er lavet i Excel 2007, som jeg gerne vil forbinde med en side i klassisk asp. Jeg bruger følgende kode.
set oConn = Server.CreateObject("ADODB.Connection")
set oRs = Server.CreateObject("ADODB.recordset")
filen = "../database/vagt/mp2.xls"
connStr = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"
connStr = connStr & "DBQ" & Server.MapPath(filen)


SQL = "SELECT * FROM Hele$a1:d40"
Set objRS=objConn.Execute(strSQL)

Men det  virker ikke.
Er der noget der kan se hvad der er galt.
Avatar billede arne_v Ekspert
13. december 2013 - 02:02 #1
"DBQ" skal nok vaere "DBQ="

der kunne godt vaere adgangs problemer med at gaa et niveau op

hvilken fejlmeddelelse faar du
Avatar billede janbangm Nybegynder
13. december 2013 - 10:52 #2
Hej Arne
Tak for dit svar.
Jeg føler mig rigtigt dum for jeg kan få min browser til vise fejl meddelelser,  selv om funktioner - internetindstillinger - advaceret - deaktiver script fejlfinding er slået til. Om det er IT-afdelingen, der har blokeret dette, ved jeg ikke.
Men jeg tror jeg har fået en fejl. Skal der ikke en på oConn.open connStr, så det ser sådan ud
set oConn = Server.CreateObject("ADODB.Connection")
set oRs = Server.CreateObject("ADODB.recordset")
filen = "../database/vagt/mp.xls"
connStr = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"
connStr = connStr & "DBQ=" & Server.MapPath(filen)
oConn.open connStr

SQL = "SELECT * FROM Hele$a1:d40"
'Set objRS=oConn.Execute(strSQL)

Men stadig fejl nu ved oConn.open connStr
Avatar billede janbangm Nybegynder
24. december 2013 - 11:17 #3
Hejt

Jeg har fået lavet denne kode og det virker

Set objConnac = Server.CreateObject("ADODB.connection")
objConnac.Open StrConnection

Set objConn = Server.CreateObject("ADODB.Connection")


str = "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=NO; " & "Excel 8.0; DBQ=" & Server.MapPath("../database/vagt/mp3.xls") & ";"

objConn.Open str
strSQL = "SELECT * FROM A2:F123"
Set objRS=objConn.Execute(strSQL)

Arne: Læg et svar, så får du point for at hjælpe

Glædelig jul til alle
Avatar billede arne_v Ekspert
26. december 2013 - 02:09 #4
ok
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester