Cómo importar por lotes tablas de Excel a tablas de Word

Utilice el programa vba para implementar.

Paso 1: cree una tabla de control y combine el número de fila inicial, el número de fila final, el número de columna inicial, el número de columna final de la tabla de Excel con el número de secuencia, el número de fila inicial y el número de fila inicial de la tabla de documentos de Word. El número de columna inicial se ingresa en la tabla de control.

Paso 2: escriba un programa vba que lea la información de la tabla de referencias cruzadas, lea los datos de la tabla de Excel de acuerdo con los requisitos de la tabla de referencias cruzadas y los escriba en la tabla correspondiente en Word.

El siguiente es un ejemplo que hice, interceptando parte de la información y parte del código del programa en la tabla como referencia.

1. Captura de pantalla de la tabla de control

2. Parte del código fuente del programa

Datos de subexportación ()

S_EXCEL = Cells(4, 3).Text 'Nombre del archivo EXCEL de origen de datos

T_WORD = Cells(7, 3).Text 'Nombre del documento WORD de destino

DZB = Cells(3) .Text 'Nombre del documento WORD de destino

T_WORD = Celdas(7, 3).Text 'Nombre del documento WORD de destino

T_WORD = Celdas(7, 3).Text 'Documento WORD de destino nombre

DZB = Cells(5, 3).Text 'Nombre de la hoja de trabajo de referencia cruzada

Llamar a exc_to_word(S_EXCEL,T_WORD,DZB)

End Sub

Sub exc_to_word(S_EXCEL,T_WORD,DZB)

Atenuar wdoc como nueva aplicación de Word