Problemas con el funcionamiento de Excel en VB
Opción explícita
Mostrar mxlApp como Excel. Aplicación
Transferir mxlBook a Excel. Libro de ejercicios
Marcar mxlSheet como objeto
Marcar H como número entero
Subcomando privado 1_Click()'siguiente línea
Si H & ltEntonces 4
H = H + 1
Texto1. Texto = mxlSheet. Celda(H,1)
Texto2. Texto = mxlSheet. Celda(H, 2)
SMS 3. Texto = mxlSheet. Celda(H, 3)
Texto 4. Texto = mxlSheet. Celda (H, 4)
Otro
¡MsgBox" ya es la última línea!
Terminará si...
Conector final
Private Sub Command2_Click()' Línea anterior
Si H & gt entonces 1
H = H - 1
Texto1 . = mxlSheet.Cell(H,1)
Texto = mxlSheet.Cell(H,2)
Texto = mxlSheet /p>
Texto 4. Celda(H. , 4)
Otro
MsgBox" ¡ya es la primera línea! ”
Terminará si...
Conector final
Subform_Load() privado
Primera referencia de Microsoft en el proyecto Excel 11.0 Biblioteca de objetos.
Dim R es una cadena, I es un número entero
Dim sSource, el destino es una cadena
Establecer mxlApp = Nueva aplicación de Excel
<. p>Establecer mxlApp = CreateObject("Excel. Aplicación")R = "c:\1.xls "
H = 1
mxlApp.Visible =Falso
Establecer mxlBook = mxlApp.Open(R)
Establecer mxlSheet = mxlBook.
Texto1 = mxlSheet(H, 1). Texto 2. Celda(H, 2). Texto = mxlSheet )
Texto 4. Celda(H, 4)
Terminator
Cerrar Excel cuando sea privado. El programa subForm_Terminate()' sale.
mxlBook.Exit
Fin del conector
.