Visual Basic - Exportar datos a excell

alguien me pudiera decir como puedo exportar los datos de un datagrid a excel 2000..

Gracias...................

Prueba con esto:
Private Sub cmdtoexcell_Click()
Dim wkbNew As Excel.Workbook
Dim wkbSheet As Excel.Worksheet
Dim Rng As Excel.Range
If Dir("C:\Archivo.xls") <> "" Then 'Si Existe el Archivo
Kill "C:\Archivo.xls" 'Lo Eliminamos
End If
Set wkbNew = Workbooks.Add
wkbNew.SaveAs "C:\Archivo.xls"
Set wkbSheet = wkbNew.Worksheets(1)
Set Rng = wkbSheet.Range("A1:" + Chr(DataGrid1.Columns.Count + 64) + CStr(Adodc1.Recordset.RecordCount))
DataGrid1.Row = 0 'se coloca el cursor en la primera fila
DataGrid1.Refresh
For i = 0 To Adodc1.Recordset.RecordCount - 1
For j = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Col = j
DataGrid1.Row = I
Rng.Range(Chr(j + 1 + 64) + CStr(i + 1)) = DataGrid1.Text
Next j
Adodc1.Recordset.MoveNext
Next i
'Close and save the file
wkbNew.Close True
'Si queremos Abrir el Archivo
Dim MyValue
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & "C:\Archivo.xls", vbMaximizedFocus)
End Sub

Hola Miguel,

Hice lo que indicas y funciona bien, el único problema es que cuando cierro este archivo, el excel se queda pedago en el administrador de tareas y cuando deseo generar otro proceso de exportar no se visualiza por completo en la pantalla. Que puede faltar?

Enviame tu ejemplo a mi correo...!!!

prueba esté codigo recorre la tabla de donde sacas los datos que van a tu data.

Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
Dim wkbSheet As Excel.Worksheet
Dim Rng As Excel.Range
ApExcel.Cells(1, 1) = "CODIGO"
ApExcel.Cells(1, 2) = "NOMBRE PRODUCTO"
ApExcel.Cells(1, 3) = "CANTIDAD"
ApExcel.Cells(1, 4) = "FECHA INGRESO"
ApExcel.Cells(1, 5) = "STOCK ACTUAL"
ApExcel.Cells(1, 6) = "PROVEEDOR"
' Hace una Seleccion de celdas y pone bordes de Color
ApExcel.Range("A1:F1").Borders.Color = RGB(255, 0, 0)

Set Rng = ApExcel.Range("A2:" + Chr(DataGrid1.Columns.Count + 64) + CStr(Adodc1.Recordset.RecordCount))

With Adodc1.Recordset
If .BOF = False Then .MoveFirst
If .EOF = False Then
Do Until .EOF
For I = 1 To .Fields.Count
If IsDate(.Fields(I - 1)) Then
Rng.Cells(.AbsolutePosition, I) = Format(.Fields(I - 1), "mm/dd/yyyy")
Else
Rng.Cells(.AbsolutePosition, I) = .Fields(I - 1)
End If
Next I
.MoveNext
Loop
End If
End With
Set ApExcel = Nothing
Set Rng = Nothing
End Sub