in questo caso che cosa devo correggere??

Dim appexcel As New excel.Application
Dim cartexcel As excel.Workbook
Dim foglioexcel As excel.Worksheet



Set appexcel = New excel.Application
Set cartexcel = excel.Workbooks.Open(App.Path & "/MODELLO")
Set foglioexcel = excel.Worksheets.Item(1)
Dim APPOGGIO

appexcel.Visible = True

'--------------
foglioexcel.Activate

foglioexcel.Cells(4, 8).Value = Adodc3.Recordset.Fields("posizione")
ecc...