Cómo insertar archivos de Excel en Word

Utilice la programación vba para lograr la inserción con un solo clic.

Paso 1: Crea una hoja de Excel usando macros.

Paso 2: Crea una tabla excel correspondiente a word. Es decir, dígale al programa qué tabla de Excel debe insertarse en qué posición en Word. Como se muestra en la figura:

Paso 3: Escriba el programa de inserción. El código es el siguiente:

Sub Insertar formulario () Dim SS como cadena Dim wdoc como nueva palabra Dim Ruta actual, Exportar nombre de archivo de ruta, i, j Dim Str1, Str2, Str3 Dim tarr(1 To. 100, 1 a 3) Dim filepathname As String Ruta actual = ThisWorkbook.Path

Número de última fila = Sheets("Numeric Forms").Range("B30").End(xlUp).> 'Exportar nombre de archivo = "Report Work.doc" filepathname = Ruta actual amp; "\" amp; Tfile If Dir(filepathname) = "" Entonces 'El archivo no existe FileCopy Ruta actual amp; Ruta amp; "\ " amp; Tfile End If Sheets("Tabla de números").Seleccione para i = KShh hasta el último número de fila tarr(i - KShh 1, 1) = Sheets("Tabla de números"). i, 1) tarr (Celdas(i, 2) tarr(i - KShh 1, 2) = Hojas("Tabla de números").Celdas(i, 2) tarr(i - KShh 1, 3) = Hojas(" Table of Numbers") .Cells(i, 3)

End Sub

Paso 4: cree una plantilla de Word y marque la ubicación donde desea insertar la tabla como se muestra:

Paso 5: Cree un botón de clic y asigne la macro al botón, como se muestra en la figura:

Esto le permitirá insertar la tabla con un solo clic.

En el futuro, la herramienta se podrá generalizar simplemente modificando el contenido del paso 2 según sea necesario.