¿Código VBA para copiar contenido de Excel a Word?

Hace unos días estuve estudiando exportar datos de EXCEL a Word. El código fuente de Dyma está organizado de la siguiente manera: algunas rutas, nombres de archivos y otra información deben cambiarse (marcados en negrita). Lo que se proporciona es solo una idea para principiantes. Todavía hay mucho espacio para la optimización del código, porque se estima que se necesitan entre 3 y 5 segundos para generar un archivo WORD cada vez, y la generación por lotes es muy molesta (generación por lotes). requiere un bucle, y el nombre del archivo se puede usar marcas de tiempo, números aleatorios y nombre personalizado, no solo debe usar la marca de tiempo, porque a veces se realizará un ciclo más de dos veces en un segundo) (si el nombre es el mismo, se generará un error reportado).

Atenuar MyExcel como libro de trabajo 'Definir variable WORKBOOK

Establecer MyExcel = Workbooks("D.MyExcel"):Sheets("Nombre de hoja").Range("A2:E2") .Value 'Necesita exportar el contenido de la hoja de trabajo de EXCEL a una matriz. Exporte el contenido a una matriz, ya que manipular matrices es mucho más rápido que llamar a RANGE directamente.

Set MyWord = CreateObject("Word.Application") 'Generar un objeto WORD

MyString = MyArray1(1, 1) 'Asignar valores a variables operando matrices puede ser utilizado en múltiples variables Se lleva a cabo el ciclo medio.

MyFileName = "Generar nombre de WORD" 'Nombre de archivo

MyWord.documents.Add' 'Nuevo archivo

MyWord.documents(1).Range. Range.Range.Range.Range.Range.Range.Range.Range.Close False 'Cerrar el archivo sin guardar

MyWord.Quit False

Set MyWord = Nothing 'Borrar la variable

Borrar MyArray1 'Datos anulados