Exportar una planilla Excel a Word
Publicado por Roberto (9 intervenciones) el 13/07/2016 09:09:52
Saludos a todos.
Mi duda es como pasar datos como "nombre" ,"apellido",edad" , etc.. que estan en una planilla excel .xls (que fue creada anteriormente por un libro de macros) hacia Word, a través de MARCADORES del Word.
La dificultad es que son varios datos (varios marcadores).
A continuación pongo el codigo que he puesto, pero nose que falta o si directamente está malo.
Mi duda es como pasar datos como "nombre" ,"apellido",edad" , etc.. que estan en una planilla excel .xls (que fue creada anteriormente por un libro de macros) hacia Word, a través de MARCADORES del Word.
La dificultad es que son varios datos (varios marcadores).
A continuación pongo el codigo que he puesto, pero nose que falta o si directamente está malo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub exportarWord()
Dim wdApp As Object, wdDoc As Object, address As String
Set wdApp = CreateObject("Word.Application") ' crea aplicacion
patharch = ThisWorkbook.Path & "\reporte property"
Set wdDoc = wdApp.Documents.Add(Template:=patharch, NewTemplate:=False, DocumentType:=0) 'creando copia del documento madre
wdApp.Visible = True
For i = 1 To 39wdApp.ActiveDocument.Bookmarks("texto" & i).Range.InlineShapes.AddPicture Filename:=Controls("TextBox" & i).Text
Next i
End Sub
Valora esta pregunta
0
