Visual Basic - Referencias de Excel

Life is soft - evento anual de software empresarial
 
Vista:

Referencias de Excel

Publicado por wladimir muñoz (2 intervenciones) el 21/09/2001 14:44:34
Necesito las referencia de excel para el control de sus celdas a traves de visual. !!! Por favor sea detallado en sus comentearios !!!

Ejemplo :

Private Sub CommandButton1_Click()

Dim x1 As Object

\'Crear referencia al objeto de Excel
Set x1 = GetObject(\"D:\\DYNAMICS\\APP\\DEMO.XLS\")

\'Trabajar dentro de la coleccion de objetos de Excel
With x1.worksheets(\"Sheet1\")

\'Asignar valores a la propiedad del objeto que necesito
.cells(1, 1).Value = \"Valores de iFix\"
With .cells(1, 1).Font
.Bold = True
.Color = vbBlue
.Size = 15
.Name = \"Comic Sans MS\"
End With

.cells(2, 1).Font.Bold = True
.cells(2, 1).Value = \"Hora\"

.cells(2, 2).Font.Bold = True
.cells(2, 2).Value = \"Valor\"
For n = 3 To 10
.cells(n, 1).Value = Format$(Now(), \"hh:mm:ss\")
.cells(n, 2).Value = readvalue(\"Fix32.FIX.RAMPA1.f_cv\")
Next
End With

\'Grabar la planilla mediante el metodo SAVE de Excel
x1.save

\'Liberar el objeto
Set x1 = Nothing

End Sub
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