Convertir mi hoja de Excel a Word
Mi Macro se ejecuta correctamente me gustaría alguna guía para poder convertir mi hoja de excel a word y que se guarde con el mismo nombre de la hoja ( mi hoja es desde A1 hasta H40
2 Respuestas
[Hola
No existe una herramienta propia de Excel (o de Office o de VBA) que convierta un archivo de Excel a Word por lo que debe trabajarse con un objeto "Word" del siguiente modo:
Sub CopiaraWord()
Dim MiappWord As Object
Set MiappWord = CreateObject("Word.Application")
Range("A1:H40").Copy
With MiappWord
.Documents.Add
.Selection.PasteExcelTable False, False, False
.ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\miarchivo.docx"
.Visible = True
End With
Application.CutCopyMode = False
Set MiappWord = Nothing
MsgBox "Todo listo"
End SubPrueba y comenta. Ah, activa en el editor de VBA (por si acaso) la referencia a "Microsoft Word 16.0 Object Library" (en donde el 16 puede variar dependiendo de tu versión de Office).
Abraham Valencia
Y si tuviera varias hojas visible no ocultas en mi libro de excel como puedo hacer para que se copien todas las hojas visibles en la misma plantilla de word por que hasta ahora me esta funcionando muy bien su código.
Este ejemplo y el playlist donde encontrarás varias macros relacionadas
https://www.programarexcel.com/2016/10/como-conectar-excel-con-word-crear.html
https://www.youtube.com/playlist?list=PLdK9H5dMIfQjCRgiCW9uxTfrZHetqVHz_