Como exportar datos de vb60 a excel

Muy buenas.
Te comento, mi ultima incursión en el tema de la programación fue cuando tenia 12 años, tengo 31. Recién empecé a trabajar en una empresa de aluminio y me metí en el propósito de hacer un programa que me hiciera las cotizaciones. Lo hice, muy a mi sorpresa mirando aquí y allá. Me quedo para mi nivel muy bueno. La cosa es que necesito que una vez tenga hecha una cotización de una ventana me exporte los datos a una hoja de excel, para tener mejor control de todo y que me vaya pasando los datos que obtengo en mi programa a esta hoja de excel.
A continuación te mando el código que tengo hasta ahora por si esto te ayuda.
De antemano muchísimas gracias.
Option Explicit
Private Sub Command1_Click()
    refcab.Text = ""
    refeng.Text = ""
    reftra.Text = ""
    refjam.Text = ""
    refsil.Text = ""
    refhor.Text = ""
    refhorinf.Text = ""
    precab.Text = ""
    preeng.Text = ""
    pretra.Text = ""
    prejam.Text = ""
    presil.Text = ""
    prehor.Text = ""
    prehorinf.Text = ""
    prepansup.Text = ""
    prepaninf.Text = ""
    descab.Text = ""
    deseng.Text = ""
    destra.Text = ""
    desjam.Text = ""
    dessil.Text = ""
    deshor.Text = ""
    deshorinf.Text = ""
    despansup.Text = ""
    despaninf.Text = ""
    percab.Text = ""
    pereng.Text = ""
    pertra.Text = ""
    perjam.Text = ""
    persil.Text = ""
    perhor.Text = ""
    perhorinf.Text = ""
    perpansup.Text = ""
    perpaninf.Text = ""
    sobcab.Text = ""
    sobeng.Text = ""
    sobtra.Text = ""
    sobjam.Text = ""
    sobsil.Text = ""
    sobhor.Text = ""
    sobhorinf.Text = ""
    sobpansup.Text = ""
    sobpaninf.Text = ""
    medalt.Text = ""
    medanc.Text = ""
    cuerpos.Text = ""
    vidalt.Text = ""
    vidanc.Text = ""
    vidalt2.Text = ""
    vidanc2.Text = ""
    previd.Text = ""
    totmat.Text = ""
    previd.Text = ""
    totacc.Text = ""
    totman.Text = ""
    totcom.Text = ""
    totvid.Text = ""
    total.Text = ""
    totalu.Text = ""
    totalacc.Text = ""
    preemp.Text = ""
    pregui.Text = ""
    precha.Text = ""
    prebal.Text = ""
    numbal.Text = ""
    numcha.Text = ""
    numgui.Text = ""
    metemp.Text = ""
    colvid.Text = ""
    grovid.Text = ""
End Sub
Private Sub Command2_Click()
If optcru.Value = True Then
    'Ventana panorámica (valores de las etiquetas de despiece)
    If chkpan.Value = True Then
        Labhor.Caption = "2"
        labhorinf.Caption = "2"
        labeng.Caption = "4"
        labtra.Caption = "2"
    Else
        If cuerpos.Text = 2 Then
            Labhor.Caption = "2"
            labhorinf.Caption = "2"
            labeng.Caption = "2"
            labtra.Caption = "2"
        End If
        If cuerpos.Text = 3 Then
            Labhor.Caption = "3"
            labhorinf.Caption = "3"
            labeng.Caption = "2"
            labtra.Caption = "4"
        End If
        If cuerpos.Text = 4 Then
            Labhor.Caption = "4"
            labhorinf.Caption = "4"
            labeng.Caption = "4"
            labtra.Caption = "4"
        End If
    End If
    'Referencias
    refcab.Text = "CR"
    refeng.Text = "CR"
    reftra.Text = "CR"
    refjam.Text = "CR"
    refsil.Text = "CR"
    refhor.Text = "CR"
    refhorinf.Text = "CR"
    'Despieces
    descab.Text = Val(medanc.Text)
    dessil.Text = Val(medanc.Text)
    desjam.Text = Val(medalt.Text) - 1
    If chkpan.Value = False Then
        If cuerpos.Text = "2" Then
            deshor.Text = Val(medanc.Text) / 2
            deshorinf.Text = Val(medanc.Text) / 2
        End If
        If cuerpos.Text = "3"...
1

1 respuesta

Respuesta
¿Cómo te va?
Mira, de nada me sirve tu código...
Si lo que quieres hacer es exportar mil textboxs a excel
Vas a tener que hacerlo una por una y te aseguro que
Es algo demasiado engorroso...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas