Originariamente inviata da
pegaso22
Ciao a tutti,
� possibile sapere (e nel caso come) se all'interno di un file excel � presente un foglio con un determinato nome?
Fatemi sapere.
Grazie mille.
Be in ASP c' e' poca documentazione su alcune funzioni excel
io ho fatto un test con excel 2007 mettendo il nome del secondo Shhet = WRK02 e scrivendo una decina di righe con due colonne; poi ho scritto una decina di righe di istruzioni per vedere se leggevo i dati di quello shhet...
ti allego lo script di prova che ho fatto ma di sicuro ci sara' in rete qualcosa di meglio pero in giro c'e' molto per ASP.NET poi bisogna vedere cosa devi farne...
ciao
codice:
<html>
<head>
<meta content="it" http-equiv="Content-Language">
</head>
<body>
<%
Dim filename, strSQL,sSheetName ,oFileCN,connStr,objExcel
Dim objConn
filename="excelProva.xlsx"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Provider = "Microsoft.ACE.OLEDB.12.0"
connStr="Data Source="&server.MapPath("public/"&filename)&";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1;"""
objConn.ConnectionString = connStr
response.write connStr
objConn.Open
on error resume next
Set objRS = Server.CreateObject("ADODB.Recordset")
sSheetName ="WRK02"
'sSheetName ="WRK01"
strSQL = "SELECT * FROM[" & sSheetName & "$]"
'Set objRS = objConn.Execute(strSQL)
objRS.Open strSQL, objConn, 3, 3
response.write("<br>MSG dopo open ERR:"&err.description)
if objRS.EOF then
response.write("<br>KO")
else
response.write("<br>OK")
end if
if err.Number >0 then
response.write("<br><br>SHEET NON TROVATO...")
response.write("<br>MSG ERR:"&err.description)
else
do until objRS.EOF
response.write("<br>" & objRS(0)& " " & objRS(1))
objRS.movenext
loop
objRS.close
end if
objConn.Close
set objConn=nothing
%>
</body>
</html>
Permessi di invio
Rispondi quotando