Per leggere un file excel ho provato cosi:

set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set sh = Worksheets("Foglio1")

ma alla riga
"Set sh = Worksheets("Foglio1")"

mi da questo errore:
Tipo non corrispondente Worksheets

come posso risolvere?
vorrei copiare le celle su un database cosi;
sh.Range("A1")