Fecha y hora actual: Viernes 26 Abr 2019 12:56
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

Exportar Tabla de Excel con Word con rango

Responder al Tema

Índice del Foro > Excel > Exportar Tabla de Excel con Word con rango

Autor Mensaje
SALAVERRINO



Registrado: 24 Jul 2015
Mensajes: 3

Mensaje Publicado: Domingo 14 Abr 2019 16:02

Título del mensaje: Exportar Tabla de Excel con Word con rango

Responder citando

Buenas noches a los integrantes de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo en como mejorar la macro que describo y adjunto archivo, la macro permite exportar la tabla que se encuentran en la pestaño TELECREDITO a una planitlla en word y problema esta la siguiente instrucción: Worksheets("TELECREDITO").Range("A1:D7").Select y como podran apreciar la cantidad de filas es superior a lo indicado Range("A1:D7") y lo que deseo es que esta instrucción sea automática es decir que por si sola busque la ultima fila que tiene información.

Código:
Sub tablaaword()
patharch = ThisWorkbook.Path & "\CARTA FAPOSA.docx"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0

Worksheets("TELECREDITO").Range("A1:D7").Select
Selection.Copy

textobuscar = "[tabla_excel]"

objWord.Selection.Move 6, -1 'moverse al principio del documento
objWord.Selection.Find.Execute FindText:=textobuscar

While objWord.Selection.Find.found = True 'reemplaza el texto, y busca si hay otro para reemplazarlo

objWord.Selection.PasteExcelTable False, True, False

objWord.Selection.Move 6, -1
objWord.Selection.Find.Execute FindText:=textobuscar
Wend

objWord.Activate

End Sub


Saludos.

Volver arriba
Ver perfil del usuario Enviar mensaje privado
SALAVERRINO



Registrado: 24 Jul 2015
Mensajes: 3

Mensaje Publicado: Sábado 20 Abr 2019 20:35

Título del mensaje: Exportar Tabla de Excel con Word con rango

Responder citando

Buenas tardes a los integrantes de este foro, pude solucionar el problema de como Combinar datos de Tabla de Excel a Word, para lo cual comparto la rutina.

Anterior:

Worksheets("TELECREDITO").Range("A1:D7").Select

Actual:

Worksheets("telecredito"). Range("a1"). CurrentRegion. Copy

Por lo que daria como TEMA SOLUCIONADO.

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Responder al Tema
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 2 Horas

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

pasar archivo de texto a excel

harold vasquez Visual Basic y VBA 0 Jueves 06 Abr 2017 19:07 Ver último mensaje
El tema está bloqueado: no pueden editarse ni agregar mensajes.

Programador Visual Basic Excel

WhiteSkull Bolsa de trabajo 1 Lunes 20 Feb 2017 10:34 Ver último mensaje
El foro no contiene ningún mensaje nuevo

MACRO EXCEL: busquedas sin usar bucles

Alexia Excel 1 Viernes 28 Oct 2016 15:35 Ver último mensaje
El foro no contiene ningún mensaje nuevo

exportar dos grib a un txt "ya exporto un...

EVILMEN164 Visual Basic .NET 0 Jueves 09 Jun 2016 18:41 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Formula Excel

tugatime Ofimática 0 Lunes 29 Feb 2016 18:39 Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,