Traspaso de datos de tabla excel a tabla word
Publicado por Camila (2 intervenciones) el 11/03/2018 06:25:56
Hola a todos!! Tengo una tabla excel con los datos que se muestran en la foto (los cuales varían sus filas), y programé que se pasaran a un word. El problema es que en el traspaso, los datos pierden su formato de tabla y se insertan únicamente en una celda de la tabla word, lo que hace que se vean muy desordenados (tal como se muestra en la segunda foto). Me gustaría que se pasaran con el mismo formato del excel, es decir, una columna para cada grupo de datos.
De antemano, muchas gracias.
De antemano, muchas gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Dim textoActualCelda As String
For contador = 11 To Hoja2.Cells.SpecialCells(xlCellTypeLastCell).Row
textoActualCelda = textoActualCelda & "" & Chr(13) & Chr(10) & Hoja2.Cells(contador, 2)
datos(1, 5) = textoActualCelda
Next contador
datos(0, 6) = "[reemp_cont]"
Dim textoActualCelda1 As String
For contador = 11 To Hoja2.Cells.SpecialCells(xlCellTypeLastCell).Row
textoActualCelda1 = textoActualCelda1 & "" & Chr(13) & Chr(10) & Hoja2.Cells(contador, 3)
datos(1, 6) = textoActualCelda1
Next contador
datos(0, 7) = "[reemp_erroresop]"
Dim textoActualCelda2 As String
For contador = 11 To Hoja2.Cells.SpecialCells(xlCellTypeLastCell).Row
textoActualCelda2 = textoActualCelda2 & "" & Chr(13) & Chr(10) & Hoja2.Cells(contador, 4)
datos(1, 7) = textoActualCelda2
Next contador
datos(0, 8) = "[reemp_especificación]"
Dim textoActualCelda3 As String
For contador = 11 To Hoja2.Cells.SpecialCells(xlCellTypeLastCell).Row
textoActualCelda3 = textoActualCelda3 & "" & Chr(13) & Chr(10) & Hoja2.Cells(contador, 5)
datos(1, 8) = textoActualCelda3
Next contador
Valora esta pregunta
0
