08/05/2010, 11:56
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 17 años, 9 meses Puntos: 18 | |
| Respuesta: Ayuda, por favor!
Si, el VBA es propio de Excel, pero para controlar el Excel desde VB, las instrucciones, propoiedades, etc que usaras serand e Excel y son iguales a las del VBA.
Para dejarme entender mejor, es como programar VBA desde VB. ejemplo:
Dim ExcelApp As Object
'creamos/abrimos el Excel
Set ExcelApp = CreateObject("excel.Application")
'with para trabajar con dicho "objeto" Excel
With ExcelApp
'agregamos una hoja nueva
.Workbooks.Add
' en la primera hoja en ciertas celdas, agregamos texto
.Activeworkbook.Sheets(1).Cells(1, 1) = "ID"
.Activeworkbook.Sheets(1).Cells(1, 2) = "Monto unico"
.Activeworkbook.Sheets(1).Cells(1, 3) = "Pension"
.Activeworkbook.Sheets(1).Cells(1, 4) = "Similar"
.Activeworkbook.Sheets(1).Cells(1, 5) = "Diferente"
.Activeworkbook.Sheets(1).Cells(1, 6) = "Prioridad"
.Activeworkbook.Sheets(1).Cells(1, 7) = "Monto"
.Activeworkbook.Sheets(1).Cells(1, 8) = "Por que"
.Activeworkbook.Sheets(1).Cells(1, 9) = "Dinero"
.Activeworkbook.Sheets(1).Cells(1, 10) = "Especies"
.Activeworkbook.Sheets(1).Cells(1, 11) = "Nombre"
.Activeworkbook.Sheets(1).Cells(1, 12) = "Region"
.Activeworkbook.Sheets(1).Cells(1, 13) = "Provincia"
.Activeworkbook.Sheets(1).Cells(1, 14) = "Distrito"
.Activeworkbook.Sheets(1).Cells(1, 15) = "CCPP"
.Activeworkbook.Sheets(1).Cells(1, 16) = "Fecha"
.Visible = True
End With
Set ExcelApp = Nothing
Como se lo de Sheets, Range, etc... Por el VBA :)
Abraham |