1
Abrir Excel , a continuación, escriba cualquier valor de la primera celda de la primera hoja de cálculo. Haz clic comando " Guardar" del botón de Office , escriba "c: \\ ReadFromExcel.xlsx " para el nombre de archivo. Haga clic en " Guardar" para guardar el libro , a continuación, cierre Excel.
2
clic en el botón de Office en Word , a continuación, haga clic en el botón "Opciones" . Haga clic en la casilla de verificación " desarrollador " para mostrar la ficha " desarrolladores" , que contiene comandos de macro de Word.
3
Haga clic en el botón "Visual Basic " de la pestaña " desarrollador " para entrar en el de desarrollo de Visual Basic medio ambiente.
4 Haga clic en el menú " Herramientas" , haga clic en el comando " Referencias". Haga clic en la opción " Microsoft Excel objetos ", que le permite a su macro acceder a los objetos virtuales de Excel.
5
Escriba el siguiente programa en la ventana de código. Este programa crea un enlace a la aplicación Excel , a continuación, cierre la conexión . El programa no hace nada con el vínculo establecido . Ahora vamos a utilizar el enlace para abrir el libro de Excel que creó en el paso 1 .
Public Sub ReadExcelData ()
pgmExcel As Excel.Application
Set pgmExcel = CreateObject ( " Excel.Application " )
pgmExcel.Quit
End Sub
6
Escribe las nuevas declaraciones siguientes después de la declaración "Set". Estas declaraciones abren el libro de Excel que creó en el paso 1 , a continuación, cierre el libro. El programa revisado todavía no lee ninguna información del libro. La siguiente declaración que voy a escribir va a leer la información del libro
PgmExcel.Workbooks.Open "c: \\ ReadFromExcel.xlsx " .
7
Escribe las siguientes declaraciones después de que el " Abra " declaración. Esta sentencia utiliza el objeto pgmExcel para leer el valor de la primera celda en el libro desde el paso 1 . La declaración " MsgBox " muestra ese valor.
MsgBox pgmExcel.ActiveWorkbook.Sheets ( 1 ) . Las células ( 1 , 1 )
8
Click en cualquiera de las declaraciones del programa, a continuación, haga clic en el comando " Ejecutar" del menú " Ejecutar" . El programa se ejecutará y mostrará el valor de la celda en la que escribió en el paso 1 .