Access

Modificare un file Excel

by Andrea Spera

Modificare un file Excel direttamente da Access
Questa funzione VBA consente di aprire e modificare un file Excel direttamente da Access, sfruttando la libreria Microsoft Excel Object Library. Nello specifico, il codice apre un file Excel situato nella stessa directory del progetto Access, modifica il valore di una cella specifica (A1 nel foglio "Sheet1") e salva le modifiche prima di chiudere il file.
Il procedimento è utile per automatizzare attività ripetitive o integrare Access con Excel per la gestione di dati.
Codice 
Public Sub ModificaExcel()
'Abilitare riferimento a: Microsoft Excel Object Library
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlBook = xlApp.Workbooks.Open(Application.CurrentProject.Path & "\Test modifica Excel.xlsx")

Set xlSheet = xlBook.Worksheets("Sheet1")
xlSheet.Range("A1").Value = "Some text..."

xlBook.Close (True)
xlApp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub