Visual Basic - Exportar a excel

Hola a todos, quisiera saber si alguno sabe donde puedo conseguir un manual completo sobre como usar la exportacion de datos a excel desde Visual Basic 6. Estoy trabajando con un programa que ya tiene algunas cosas implementadas, pero no todas y quisiera expandirlo mas, pero no logo encontrar informacion sobre cosas basicas como por ejemplo agregar hojas a un archivo, poner comentario en alguna celda, etc. Si alguien sabe donde puedo encontrar esta y mas informacion sobre el tema se los agradeceria enormemente.

Saludos y Gracias

yo sé donde puedes encontrar esa información y mas...

¡¡¡¡¡ EN EL GUGUEL !!!!!!

Gracias por responder, pero ya he buscado por ahi y lo unico que encontre son manuales para usar codigo de visual basic pero dentro del excel y no para exportar de visual a excel.
Agradezco que te hayas tomado el tiempo de responder pero de hacerlo nuevamente agradeceria no menospreciarme, si estoy preguntando aca si alguen sabe donde puedo encontrar dicha informacion es porque no la encuento y no porque no tengo ganas de buscarla.

Nuevamente gracias y espero alguien pueda orientar mi busqueda.

Saludos

mira por ahi:
http://www.recursosvisualbasic.com.ar/htm/tutoriales/excel.htm
tiene muchos ejemplos..

http://www.canalvisualbasic.net/

Espero te sirva...
saludos

que no!
qu el tio ya ha buscado por todos los sitios y no encuentra nada, así que no le des direcciones

porqué crees que pregunta aquí? él mismo te lo explica en el post anterior!!!

Un fragmento de como exportar a exel...

Rango = "a1:c1")
'Negrita
libro.Range("a3").Font.Bold = True
'Unir varias celdas
libro.Range("a1:c1").Merge
'Borde a las celdas
libro.Range(Rango).Borders.LineStyle = 1
'Cambiar color a la celda
libro.Range(rango).Interior.ColorIndex = 6
'centrar el texto
libro.Range(rango).HorizontalAlignment = xlCenter
'ajustar las columnas al texto
libro.Columns.AutoFit
'definir ancho de columna
libro.Range("c1").ColumnWidth = 35
'ajustar texto a ancho de columna
libro.Columns.WrapText = True
'formato a celdas
libro.Range(Rango2).NumberFormat = "#,##0.00"
'borrar contenido de celda
libro.Range(Rango2).Clear

Private Sub ExportaPlacas()
Dim xlApli As Object
Dim xlLibro As Excel.Workbook
Dim FilaFlex As Integer
Dim FilaExcel As Integer

Set xlApli = New Excel.Application
Set xlLibro = xlApli.Workbooks.Add
''''''''''''''''''''''''''''''''''''''''''''''''''
With xlApli
.Sheets(1).Activate

FilaExcel = 10

.Range("A1:E1").Font.Size = 12
.Range("A1:E1").Font.Name = "Times New Roman"
.Range("A1:E7").Font.Bold = True
.Range("A1:E7").Font.Italic = True
.Range("A8:E8").Borders.LineStyle = 1
.Range("A8:E8").Interior.ColorIndex = 6
.Range("A8:E8").HorizontalAlignment = xlCenter
.Range("A1:E1").Select
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With xlApli.Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With xlApli.Selection
.Merge
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders.Weight = xlMedium
.Borders.ColorIndex = xlAutomatic
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With xlApli.Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With xlApli.Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With xlApli.Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With xlApli
.Sheets(1).Activate
.Range("A1") = "LISTADO DE SERVICIOS POR PLACAS"
.Range("A3") = "CLIENTE :"
.Range("B3") = CBONOMBRE.Text
.Range("A5") = "FECHA :"
.Range("B5") = Date
.Range("A6") = "HORA :"
.Range("B6") = Time
.Range("A8") = "PLACAS"
.Range("A10") = MSFlexGrid1.TextMatrix(1, 2)
.Range("B8") = "FECHA SERVICIO"
.Range("C8") = "MARCA"
.Range("D8") = "KILOMETRAJE"
.Range("E8") = "DETALLE SERVICIO"
End With

With MSFlexGrid1
For FilaFlex = 1 To .Rows - 1
xlApli.Cells(FilaExcel, 2) = .TextMatrix(FilaFlex, 1)
xlApli.Cells(FilaExcel, 3) = .TextMatrix(FilaFlex, 3)
xlApli.Cells(FilaExcel, 4) = .TextMatrix(FilaFlex, 4)
xlApli.Cells(FilaExcel, 5) = .TextMatrix(FilaFlex, 5)
FilaExcel = FilaExcel + 1
Next
End With
xlApli.Columns.AutoFit

With xlApli
.Sheets(1).Activate
Columns("B:B").ColumnWidth = 24
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With xlApli.ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.CenterHorizontally = True
.Orientation = xlLandscape
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
xlApli.Visible = True
Set xlApli = Nothing
End Sub

primero se tiran los datos a un datagrid
despues se aplica el sgte:codigo


n_Filas = Me.datagrid_articulos_mensual.ApproxCount
On Error GoTo ErrSub
Dim i As Integer, j As Integer
If n_Filas = 0 Then
MsgBox "No hay datos para exportar a excel": Exit Sub
Else
Set Obj_Excel = CreateObject("Excel.Application")
Set Obj_Libro = Obj_Excel.Workbooks.Add
Set Obj_Hoja = Obj_Excel.ActiveSheet
Obj_Excel.Visible = True
iCol = 0
For i = 0 To Me.datagrid_articulos_mensual.Columns.Count - 1
If Me.datagrid_articulos_mensual.Columns(i).Visible Then
iCol = iCol + 1
Obj_Hoja.Cells(1, iCol) = Me.datagrid_articulos_mensual.Columns(i).Caption
For j = 0 To n_Filas - 1
Obj_Hoja.Cells(j + 2, iCol) = _
Me.datagrid_articulos_mensual.Columns(i).CellValue(Me.datagrid_articulos_mensual.GetBookmark(j))
Next
End If
Next
Obj_Hoja.Rows(1).Font.Bold = True
Obj_Hoja.Rows(1).Font.Color = vbRed
Obj_Hoja.Columns("A:Z").AutoFit
End If
Set Obj_Hoja = Nothing
Set Obj_Libro = Nothing
Set Obj_Excel = Nothing
Exit Sub
ErrSub:
MsgBox Err.Description, vbCritical
On Error Resume Next
Set Obj_Hoja = Nothing
Set Obj_Libro = Nothing
Set Obj_Excel = Nothing

espero te sirva

como harias esta operacion a la inversa osea importar datos de una hoja de excel al visual studio?