Salve a tutti.
Ho un file excel che in seguito ad un evento del mio database access deve essere aggiornato con l'aggiunta di un nuovo foglio. Ho scritto per adesso un codice di prova, aiutandomi online, che funziona. Unico problema il fatto che ogni volta mi chiede conferma del salvataggio. Quello che vorrei è che la modifica del file excel venga effettuata in maniera automatica. Questo il codice:
Private Sub modifica_excel()
Dim objExcel As Object
Dim objWorkbook As Object
Dim objWorksheet As Object
On Error GoTo RigaErrore
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("percorso file")
Set objWorksheet = objWorkbook.Worksheets.Add
objWorksheet.Name = "foglio_prova"
With objWorksheet
.cells(1, 1).Value = "Pippo"
.cells(1, 2).Value = "Pluto"
End With
RigaChiusura:
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing
Exit Sub
RigaErrore:
MsgBox Err.Number & vbNewLine & Err.Description
Resume RigaChiusura
End Sub
Ho provato a cercare in rete qualche soluzione ma senza successo. Grazie