importazione dati excel

[roidin]

premetto che sono iperneofita con asp, però oggi ho dovuto prenderlo in mano ...

allora ho un documento in excel e da questo vorrei estrapolare il contenuto di una cella
ho questo codice:

 
<% 
Xls = Server.MapPath("prova.xls") 
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Xls & "; Extended Properties=""Excel 8.0;HDR=Yes;""" 
Set con = Server.CreateObject("ADODB.Connection") 
con.Open dsn 
StrSQL = "SELECT 4 FROM [Rates$]" 
Set RS = Server.CreateObject("ADODB.RecordSet") 
RS.Open strSQL, con 

Do Until RS.BOF or RS.EOF 
Response.Write(rs4) 
rs.movenext 
Loop 

RS.Close 
Set RS = Nothing 
%>

la cella che vorrei visualizzare è E1 e non so dove mettere questo nel codice; anche perchè non so se ho capito male ma devo trasformare così il nome delle colonne: A=0, B=1 ...

altro problema: quando provavo il codice, lanciando quindi in locale da IE il tutto, se avevo il documento aperto mi dava l'errore che il documento era già aperto; ora visto che il documento della cella in questione è legato ad un dde, il tutto funzionerà a documento chiuso?

dacchio, mi vergono anche un po' ad essermi ridotto con ste domande, ma io di asp fino a poco fa non sapevo meno che nulla

grazie

[burruchaga]

si, il tutto funzionerà a documento chiuso. (per chiuso si intende che sulla macchina su cui risiede non sia aperto da Excell)

per estrarre la cella E1 non ti serve il ciclo.

if not rs.eof then Response.Write(rs("E"))

RS.Close
Set RS = Nothing

[roidin]

Originariamente inviato da burruchaga
si, il tutto funzionerà a documento chiuso. (per chiuso si intende che sulla macchina su cui risiede non sia aperto da Excell)

per estrarre la cella E1 non ti serve il ciclo.

if not rs.eof then Response.Write(rs("E"))

RS.Close
Set RS = Nothing

ok, ottimo il fatto che si possa fare e che segua l'aggiornamento altrimenti mi sarei sbattuto per nulla

ho cambiato così il codice:

 <% 
Xls = Server.MapPath("prova.xls") 
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Xls & "; Extended Properties=""Excel 8.0;HDR=Yes;""" 
Set con = Server.CreateObject("ADODB.Connection") 
con.Open dsn 
StrSQL = "SELECT E FROM [Rates$]" 
Set RS = Server.CreateObject("ADODB.RecordSet") 
RS.Open strSQL, con 

if not rs.eof then Response.Write(rs("E")) 

RS.Close 
Set RS = Nothing

%>

ma mi sa che sbaglio ancora qualcosa, mi restituisce questo errore:

Tipo di errore:
Microsoft JET Database Engine (0x80040E10)
Nessun valore specificato per alcuni parametri necessari.
/prova.asp, line 8

grazie a chi mi vorrà aiutare

[roidin]

[burruchaga]

prova con rs(5) al posto di rs("e")

[roidin]

Originariamente inviato da burruchaga
prova con rs(5) al posto di rs("e")

Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.

nada

[burruchaga]

ma StrSQL = "SELECT E FROM [Rates$]"??
scrivi StrSQL = "SELECT * FROM [Rates$]"

a che riga ricevi l'errore?

[roidin]

Originariamente inviato da burruchaga
ma StrSQL = "SELECT E FROM [Rates$]"??
scrivi StrSQL = "SELECT * FROM [Rates$]"

a che riga ricevi l'errore?

fatta anche questa modifica;
l'errore è alla riga 10

Tipo di errore:
ADODB.Recordset (0x800A0CC1)
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.
/prova.asp, line 10

[burruchaga]

Originariamente inviato da roidin
fatta anche questa modifica;
l'errore è alla riga 10

scusami, ma qual'è la riga 10?


vabhè, intanto fai questa prova:
scrivi


Xls = Server.MapPath("prova.xls")
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Xls & "; Extended Properties=""Excel 8.0;HDR=Yes;"""
Set con = Server.CreateObject("ADODB.Connection")
con.Open dsn
StrSQL = "SELECT * FROM [Rates$]"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open strSQL, con

response.write("<table><tr>")
for i = 0 to rs.fields.count-1
response.write("<td>"&rs.fields(i).name&"</td>")
next
response.write("</tr></table>")
response.end()


if not rs.eof then Response.Write(rs("E"))

RS.Close
Set RS = Nothing


questo dovrebbe stampare tutti i campi del recordset.

posta il risultato quì

[roidin]

ok, adesso qualcosa appare:
EURUSD F2 F3 F4 F5

precisamente quanto copiato sopra

ma non è il contenuto del foglio excel

non ci capisco più nulla