Il codice è questo:
Dim app As Microsoft.Office.Interop.Excel._Application = New Microsoft.Office.Interop.Excel.Application()
' creo una nuova Cartella di lavoro in Excel
Dim workbook As Microsoft.Office.Interop.Excel._Workbook = app.Workbooks.Add()
' creo un nuovo foglio nella Cartella di lavoro
Dim worksheet As Microsoft.Office.Interop.Excel._Worksheet = Nothing
' ottengo i riferimenti del primo foglio.
worksheet = workbook.Sheets("Foglio1")
' archivio i suoi riferimenti nel foglio
worksheet = workbook.ActiveSheet
' archiviare la parte Intestazione
For i As Integer = 1 To dgvTraffico.Columns.Count
worksheet.Cells(1, i) = dgvTraffico.Columns(i - 1).HeaderText
Next
' archivio il valore di ogni riga e colonna nel foglio
For i As Integer = 0 To dgvTraffico.Rows.Count - 1
For j As Integer = 0 To dgvTraffico.Columns.Count - 1
worksheet.Cells(i + 2, j + 1).NumberFormat = "@"
worksheet.Cells(i + 2, j + 1) = dgvTraffico.Rows(i).Cells(j).Value.ToString()
Next
Next
' rendo visibile il foglio alla fine dell'elaborazione
app.Visible = True