Tecnología

Inicio

Cómo importar datos de Excel a Word mediante Visual Basic

Cómo importar datos de Excel a Word mediante Visual Basic


En el mundo de la programación es útil saber cómo importar datos de Microsoft Office Excel a un documento de Microsoft Office Word para ser compartido. Word es un procesador de textos incluido en la suite de Office. Excel es una hoja de cálculo también forma parte de la suite de Office. Visual Basic para Aplicaciones (VBA) es un lenguaje de programación utilizado para automatizar tareas rutinarias en las aplicaciones de Microsoft Office. Utilizar VBA para automatizar el proceso manual de importar hojas de cálculo de Excel en documentos de Word.

Instrucciones

1 Iniciar Microsoft Office Word, seleccione la pestaña "desarrolladores" y luego haga clic en "Visual Basic". Seleccione el menú "Insertar" y haga clic en "módulos".

Seleccione el menú "Herramientas" y haga clic en "Referencias". Marque la casilla junto a "Microsoft Excel <número de versión> Biblioteca de objetos." Haga clic en Aceptar."

2 Escribe lo siguiente para crear un nuevo subprograma:

Private Sub importExcelData ()

Presione ENTRAR."

3 Escribe lo siguiente para crear las variables:

Dim libro como WorkBook

Dim como secuencia dataInExcel

4 Escribe lo siguiente para abrir el libro de Excel:

Application.ScreenUpdating = False

Establecer WorkBook = Workbooks.Open ( "C: \ Book1.xls", True, True)

Editar "C: \ Book1.xls" y escriba su propio camino y libro de nombre.

5 Escriba lo siguiente para obtener datos "A1" en el libro de trabajo y agregarlo a su documento de Word:

dataInExcel = workBook.Worksheets ( "Sheet1"). Range ( "A1"). Fórmula

Selection.TypeParagraph

Selection.TypeText texto: = dataInExcel

6 Escriba lo siguiente para obtener datos "A2" de su libro y añadirlo a su documento de Word:

dataInExcel = workBook.Worksheets ( "Sheet1"). Range ( "A2"). Fórmula

Selection.TypeParagraph

Selection.TypeText texto: = dataInExcel

7 Escribe lo siguiente para cerrar el libro y suelte las variables de la memoria:

Falso workBook.Close

Establecer WorkBook = Nada

Application.ScreenUpdating = True