Saltar al contenido

Pegar rango de Excel a archivo Word abierto.


Recommended Posts

publicado

Saludos amigos del foro,este código pega un rango de excel en Mi archivo Word que esta cerrado, luego lo abre y lo muestra. Alli verifico que ha pegado bien.
Private Sub CommandButton1_Click()
Hoja8.Range("A1:H32").Select
    Selection.CopyPicture xlScreen, xlPicture
    Archivo = ThisWorkbook.Path & "\Microbiologia I.docx"
    With CreateObject("word.application")
        Selection.CopyPicture xlScreen, xlPicture
        .Documents.Open Archivo
        .Selection.Paste
        .ActiveDocument.SaveAs (Archivo)
        .Visible = True
        .Activate
    End With
End Sub

Pero que tal si al querer pegar el archivo mencionado ya esta abierto???

El codigo mostrado genera error aquí:

.Documents.Open Archivo

Debido a que procura abrir un archivo que ya está abierto.

Cómo hago para pegar en mi archivo que ya abierto?

Les anticipo mis agradecimientos

publicado

Gracias por el interés de los visitantes a este tema

Lo siento ya lo he resuelto de un modo

Pueden cerrar el tema

 

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.