Access + Excel

[Libera75]

Salve

Ho un problema : dovrei, da un'applicazione Access2000 inserire dei valori in un foglio di calcolo di excel, anzi in celle specifiche.

Sapete come si fa?
Potete aiutarmi?

Grazie fin d'ora!!!!!

[cirmon]

Usa questo codice come esempio


On Error GoTo Err_Comando3_Click

Dim strClienti As String
Dim objExcel As Object
Dim i As Integer
Dim rcs As Recordset


If IsNull(gestori) Then
MsgBox "Nessuna selezione effettuata."
Exit Sub
End If


'Assegnazione dell'oggetto tabella nomeTabella al RecordSet
Set rcs = Me.RecordsetClone


'Assegnazione del file .xls all'oggetto objExcel
Set objExcel = GetObject("percorso del file che funge da modello .xls")

'Estrazione dei clienti associati al gestore
strClienti = "istruzione sql per estrarre i campi utilizzati per scrivere il file xls"
Set rcs = CurrentDb.OpenRecordset(strClienti)

If rcs.EOF Then
MsgBox "Nessun cliente associato", vbInformation, ""
Exit Sub
End If

'CREAZIONE TRACCIATO PER LA GENERAZIONE DEL FOGLIO EXCEL

'Scrittura del Tipo Record
i = 1
Do While Not rcs.EOF
objExcel.Sheets(1).Range("A" + CStr(i)).Value = rcs.Fields("0").Value
i = i + 1
rcs.MoveNext
Loop
rcs.MoveFirst

i = 1
Do While Not rcs.EOF
objExcel.Sheets(1).Range("B" + CStr(i)).Value = rcs.Fields("1").Value
i = i + 1
rcs.MoveNext
Loop
rcs.MoveFirst

i = 1
Do While Not rcs.EOF
objExcel.Sheets(1).Range("C" + CStr(i)).Value = rcs.Fields("2").Value
i = i + 1
rcs.MoveNext
Loop
rcs.MoveFirst

i = 1
Do While Not rcs.EOF
objExcel.Sheets(1).Range("D" + CStr(i)).Value = rcs.Fields("3").Value
i = i + 1
rcs.MoveNext
Loop
rcs.MoveFirst

i = 1
Do While Not rcs.EOF
objExcel.Sheets(1).Range("E" + CStr(i)).Value = rcs.Fields("4").Value
i = i + 1
rcs.MoveNext
Loop
rcs.MoveFirst

i = 1
Do While Not rcs.EOF
objExcel.Sheets(1).Range("F" + CStr(i)).Value = rcs.Fields("5").Value
i = i + 1
rcs.MoveNext
Loop
rcs.MoveFirst

i = 1
Do While Not rcs.EOF
objExcel.Sheets(1).Range("G" + CStr(i)).Value = rcs.Fields("6").Value
i = i + 1
rcs.MoveNext
Loop
rcs.MoveFirst


'Esegue il salvataggio del file rinominandolo in base al gestore
objExcel.SaveAs FileName:="percorso del file da salvare\" & nome & ".xls"
'Settaggio della proprietà Visible a True per la visualizzazione del foglio
objExcel.Windows(nome & ".xls").Visible = True
objExcel.Save

rcs.Close
objExcel.Close
MsgBox "*** FILE GENERATO ***", vbInformation, ""

Exit_Comando3_Click:
Exit Sub

Err_Comando3_Click:
MsgBox Err.Description
rcs.Close
Set rcs = Nothing
Set objExcel = Nothing
Resume Exit_Comando3_Click

End Sub