exportar datos de visual basic a excel

clamm
20 de Enero del 2006
deseo saber si alguien me puede ayudar a crear una aplicacion de visual basic para enviar datos a una hoja de excel

CSDK
20 de Enero del 2006
Dim ApExcel As Object
Dim objLibro As Object
Dim arch
Dim i As Integer
Dim CVL_EMP As Integer
Dim F As Boolean
Dim CVL_N As Integer
Dim CVLF As String
Dim rngCurrent


Form1.CommonDialog1.Filter = "Libro de Microsoft Excel|*.xls"
Form1.CommonDialog1.ShowSave

arch = Form1.CommonDialog1.FileName
Set ApExcel = CreateObject("Excel.application")
'añadimos un hoja nueva
ApExcel.Workbooks.Add

conex

SEM.Source = "SELECT * from tabla1"
SEM.ActiveConnection = ADOCONN
SEM.Open
While Not SEM.EOF
ApExcel.Cells(i + 1, 1).Value = SEM.Fields("nombre")
SEM.MoveNext
i = i + 1
Wend
desconectar
Set objLibro = ApExcel.Worksheets(1)
'guardamos cerramos y quitamos excel
ApExcel.Worksheets(1).SaveAs arch
ApExcel.Workbooks.Close
ApExcel.Quit
Set ApExcel = Nothing
End Sub

Snachk
20 de Enero del 2006
Hola sabes tengo un problema
mira yo intento rescatar un dato desde excel por medio de VB 6
con varios campos funciona bien
pero hay una celda que contiene lo siguiente
11:30

y cuando rescato ese dato me guarda algo que no tiene nada que ver
.4694444445

asi lo estoy haciendo
hora = Str(hoja.Range("N20"))

gracias de antemano.