Red de conocimiento informático - Material del sitio web - Problemas con el funcionamiento de Excel en VB

Problemas con el funcionamiento de Excel en VB

Coloque el siguiente código en la ventana de código y ejecute:

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

.