@Alex
Grazie per codice utilissimo anche per me l'ho adattato partendo dalla seconda riga del file Excel per lasciare le intestazioni.
Mi si è presentato un problema ... quello di "cancellare" il contenuto delle celle sotto la prima riga.
ho risolto cosi :
Dim XL As Object
Dim wb As Object
Dim LastRow, LastColumns As Long
'Prima Svuoto il file excel partendo dalla seconda Riga
'Set rs = CurrentDb.OpenRecordset("SELECT * FROM ORD_FOR_DETTAGLIO;")
Set XL = CreateObject("Excel.Application")
Set wb = XL.Workbooks.Open("C:\LIST-EASYDATA\FTP_RIORDINO\ORDINE_A_FORNITORE.xlsx")
With wb
LastRow = .Worksheets(1).UsedRange.Row - 1 + .Worksheets(1).UsedRange.Rows.Count 'Ultima riga non vuota
LastColumns = .Worksheets(1).UsedRange.Columns.Count 'Ultima colonna Utilizzata
For i = 2 To LastRow
For c = 1 To LastColumns
.Worksheets(1).Cells(i, c).Value = "" 'Svouto le celle
Next c
Next i
.Save
.Close False
End With
XL.Quit
Set XL = Nothing
funziona correttamente ed è anche abbastanza veloce... almeno per le mie esigenze.
Può essere una soluzione ideale o esiste qualche comando più adeguato?