prova a fare
non l'ho provato ma magari funzionacodice:oWorkSheet.range(i, 3).select oWorkSheet.activecell.formular1c1 = rs.Fields("Nome")
prova a fare
non l'ho provato ma magari funzionacodice:oWorkSheet.range(i, 3).select oWorkSheet.activecell.formular1c1 = rs.Fields("Nome")