Mira este pequeño codigo te servira, basciamente lo que hace es abrir un Excel y poner valores, tambien puedes hacerlo con un INSERT INTO pero aqui los valores que pongas no podras colocarlos en la celda que quieres, cuando trabajas con INSERT el Excel se convierte en BD tipo Acess por poner un ejemplo
Saludos, comenta si te sirvio.
Código vb:
Ver originalDim ExApp As Excel.Application
Dim ExLibro As Excel.Workbook
Dim i As Integer
Set ExApp = New Application
Set ExLibro = ExApp.Workbooks.Open("C:\Prueba.xlsx") '// Abrir libro deseado, y asignarlo a la variable objeto
'// Poner los valores
With ExLibro.Worksheets("Prueba")
.Cells(1, 1).Value = "Lista del 1 al 100"
.Cells(1, 1).EntireColumn.AutoFit
For i = 1 To 100
.Cells(i + 1, 1).Value = i
Next
End With
'// Cerrar el libro y guardar cambios por default
ExLibro.Close True
Set ExApp = Nothing
Set ExLibro = Nothing