Visual Basic - PASAR DATOS DE VB A EXCEL

Life is soft - evento anual de software empresarial
 
Vista:

PASAR DATOS DE VB A EXCEL

Publicado por txetxo (3 intervenciones) el 23/10/2003 19:59:23
Hola

Tengo que pasar datos de un formulario ( con text box, label, msflex grid) a una hoja excel, pero no tengo ni idea, de como pasarlos ni de como colocar los datos en las celdas y columnas.

¿Alguien me puede echar un cable?

Muchisimas gracias de antemano, si podeis ponerme un ejemplo, os estaria mas agradecido si cabe.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:PASAR DATOS DE VB A EXCEL

Publicado por fernando.gomez (27 intervenciones) el 24/10/2003 01:17:09
A través de MIME. Generas un archivo HTML. En el content-type, pones Application/Excel. En el "body" del documento, creas una tabla normalita. Y listo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:PASAR DATOS DE VB A EXCEL

Publicado por Hector (61 intervenciones) el 25/10/2003 16:31:27
Hola.. te paso un codigo que yo uso y funciona muy bien, exporto del msflexgrid s excel

OBS: canales es el nombre del msflexgrid

Private Sub Command3_Click()
Dim fila As Byte
Dim i As Byte
Dim MiExcel As Object
Dim guardar As String

On Error GoTo mensaje

CommonDialog1.CancelError = True
Set MiExcel = CreateObject("excel.sheet")

While canales.TextMatrix(fila, 0) <> ""
canales.Row = fila
For i = 0 To 10
canales.col = i
MiExcel.ActiveSheet.Cells(fila + 1, i + 1).Value = canales.Text
Next
fila = fila + 1
i = 0
Wend

'Guardo archivo'
' Establecer los indicadores
CommonDialog1.Flags = cdlOFNHideReadOnly
' Establecer los filtros
CommonDialog1.Filter = "Todos los archivos (*.XLS)|*.XLS"
' Especificar el filtro predeterminado
CommonDialog1.FilterIndex = 2
' Presentar el cuadro de diálogo Abrir
CommonDialog1.ShowSave
' Presentar el nombre del archivo seleccionado
guardar = CommonDialog1.FileName
MiExcel.SaveAs guardar
MiExcel.Application.Quit
Set MiExcel = Nothing
MsgBox "Se Generó el archivo:" & guardar, vbInformation, "Informe" ' guardar

mensaje:
If Err.Number Then
Err.Clear
Exit Sub
End If

'FIN EXPORTAR INFORME'
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar