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


0