Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Word » guardar datos de formulario de word en hoja excel

Word - guardar datos de formulario de word en hoja excel

Volver
Nuevo Tema
<<>>
 
Vista:

guardar datos de formulario de word en hoja excel

Publicado por javier echegaray (2 intervenciones) el 03/03/2019 19:08:25
tengo un problemilla que no consigo solucionar. Tengo un formulario en word con los datos de clientes. La base de datos lo tengo en un archivo de excel. Consigo cargar los datos de excel a word pero lo que no consigo es guardar modificaciones de word a excel. Os pego el código tanto de importación (que es la que funciona), como la de exportación, que parece que rula pero no guarda los datos.
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
Public Sub ImportarDatos()
    Dim pgmExcel As Excel.Application
    Set pgmExcel = CreateObject("Excel.Application")
    pgmExcel.Workbooks.Open "c:\archivo.xls"
    f = 0 'fila de listbox FrmCliente

    'c = 0 'columna de listbox FrmCliente

    'fx = 1 'fila de bd excel

    cx = 1 'columna de bd excel

    For fx = 1 To 15
        If pgmExcel.ActiveWorkbook.Sheets(3).Cells(fx, cx) = "" Then
            Exit For
        Else
            FrmCliente.LstFichas.AddItem
            For c = 0 To 8
                FrmCliente.LstFichas.List(f, c) = pgmExcel.ActiveWorkbook.Sheets(3).Cells(fx, c + 1)
            Next
        End If
        f = f + 1
        cx = cx + 1
 
    Next
    pgmExcel.Quit
End Sub
 
Public Sub ExportarDatos()
 
    Dim pgmExcel As Excel.Application
    Set pgmExcel = CreateObject("Excel.Application")
    pgmExcel.Workbooks.Open "c:\archivo.xls"
    fx = FrmCliente.TxtFicha0.Value
 
    For c = 0 To 8
        With FrmCliente.Controls("TxtFicha" & c)
            texto = .Value
            pgmExcel.ActiveWorkbook.Sheets(3).Cells(fx, c + 1).Value = texto
            valor = pgmExcel.ActiveWorkbook.Sheets(3).Cells(fx, c + 1)
        End With
    Next
    pgmExcel.ActiveWorkbook.Save
    pgmExcel.Quit
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

guardar datos de formulario de word en hoja excel

Publicado por javier echegaray (2 intervenciones) el 10/03/2019 12:16:20
Ya lo solucioné. Parece que ahora si funciona. Os pego el código por si a alguien le interesa

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub ExportarDatos()
 
    Dim pgmExcel As Excel.Application
    Dim bdX As Excel.Workbook
    Dim bdhoja As Excel.Worksheet
    Dim fx As Integer
 
    Set pgmExcel = New Excel.Application
    Set bdX = pgmExcel.Workbooks.Open("c:\archivo.xls")
    Set bdhoja = bdX.Sheets("bd")
 
    fx = FrmCliente.TxtFicha0.Value + 1
 
    For c = 0 To 8
        With FrmCliente.Controls("TxtFicha" & c)
            bdhoja.Cells(fx, c + 1).Value = .Value
        End With
    Next
    pgmExcel.ActiveWorkbook.Save
    pgmExcel.Quit
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar