Ci sono riuscito !!!!!
codice:
Set adoCn = Server.CreateObject("ADODB.Connection")
With adoCn
.Provider="Microsoft.Jet.OLEDB.4.0"
.ConnectionString="Data Source="&Server.MapPath("/public/Book.xls")&";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=0;ReadOnly=0;"""
.Open
End With
strSQL_1 = " INSERT INTO [Foglio1$] (F1, F2) values ('111', 'AAA') "
adoCn.Execute(strSQL_1)
strSQL_2 = " INSERT INTO [Foglio2$] (F1, F2) values ('222', 'BBB') "
adoCn.Execute(strSQL_2)
strSQL_3 = " INSERT INTO [Foglio3$] (F1, F2) values ('333', 'CCC') "
adoCn.Execute(strSQL_3)