19/01/2009, 08:04
|
| | | Fecha de Ingreso: enero-2009
Mensajes: 14
Antigüedad: 15 años, 4 meses Puntos: 0 | |
| Respuesta: escribir una serie de datos en excel
hola, supongo que esto ya lo declaraste ...
Dim objExcel As Excel.Application
y por ejemplo
If FrmVerCliente.MSHFlexGrid1.Visible = True Then
If RS.RecordCount = 0 Then
MiMsgBox "AVISO DEL PROGRAMA", "NO HAY MOVIMIENTOS PARA ESTA ACCION!!", , Warning
Exit Function
End If
luego
Set objExcel = New Excel.Application
objExcel.Visible = True
'determina el numero de hojas que se mostrara en el Excel
objExcel.SheetsInNewWorkbook = 1
'Crea el Libro
objExcel.Workbooks.Add
y podrias poner esto , te lo pone tal cual...
rangosumad = "aca pones lo que quieras = lo que quieras pone aca"
rangosumae = "124 = 12,4 * 10"
objExcel.ActiveSheet.Cells(V + 1, 4) = rangosumad
objExcel.ActiveSheet.Cells(V + 1, 5) = rangosumae
y te aparece en la celda como si la ubieses tipeado en el libro mismo o mejor dicho en la celda..
no se si entendi bien , eso es lo que necesitabas? |