none
DAtos de Formulario VB a Documento Excel 2007 RRS feed

  • Pregunta

  • Buenas Tardes:

    Tengo una consulta  como  cargar datos  de un formulario, que no están en ninguna tabla ni acces ni slq en una  hoja excel, me explico  tengo en el textbox Nombre  y que en la hoja de excel llamada Datos que esta guardada en disco d en el   rango "a10"  quede el texto  Del nombre en una hoja ya creada

    Y la otra consulta es que  si tengo una serie de item en un listbox, pueda colocarlos en la misma  hoja pero uno debajo del otro ejemplo

    si mi list box tiene los numeros empezar en dfeterminada celda y hacia abajo el resto

    1

    2

    3

    4

    5

    en la hoja de excel quede:

    a11 = 1

    a12 = 2

    a13 = 3

    a14= 4

     asi sucesivamente hasta que  y todos los  datos del listbox queden  cargados


    Hhendrix2012 Programattion OK

    miércoles, 18 de abril de 2012 21:12

Respuestas

  • después de tanto trabajar en el tema 

    para quien lo necesite  lo que requeria era:

    Sub IMPRIMIR_EXCEL_LARGE()
            Dim oExcel As Object
            Dim oBook As Object
            Dim oSheet As Object

            'Start a new workbook in Excel.
            oExcel = CreateObject("Excel.Application")

            oBook = oExcel.Workbooks.open("D:\vb software\Cma Aplication\Formato Gestion\F03 CMA P1 03 Rev 51-S.xlsx")

            'Add data to cells of the first worksheet in the new workbook.
            oSheet = oBook.Worksheets(1)

            Dim i As Integer
            Dim INI As Integer = 14
            Dim ITEMS As Integer = 0
            For i = 0 To FrOrdenPro.LbItem.Items.Count - 1
                oSheet.Range("B" & INI).Value = FrOrdenPro.LbItem.Items.Item(ITEMS)
                INI = INI + 1
                ITEMS = ITEMS + 1
            Next i

             oBook.SaveAs("D:\vb software\Cma Aplication\Formato Gestion\" & FrOrdenPro.TxtConsecutivo.Text & "-12" & ".xlsx")
            'oBook.Printout()
            oSheet = Nothing
            oBook = Nothing
            oExcel.Quit()
        End Sub

    Muy fácil pero me toco  probar de todo


    Hhendrix2012 Programattion OK

    • Marcado como respuesta Hhendrix2012 jueves, 26 de abril de 2012 18:48
    jueves, 26 de abril de 2012 18:48

Todas las respuestas

  • Si te entendido bien, quieres pasar datos de una excel a un formaulario en vb ?
    lunes, 23 de abril de 2012 22:36
  • Si esa la intencion pasar datos de un lisjtbox de un formulario

    a unas casillas consecutivas por item a una hoja de excel

    ejemplo si el listbox tiene 10 items, puedan   por ejemplo en el Rango  a:10 empezar a guardarlos por item

    hasta El RANGO a19 en una hoja de excel


    Hhendrix2012 Programattion OK

    martes, 24 de abril de 2012 15:47
  • Para el Excel puedes hacer lo siguiente:

    Primero en el código de tu formulario (arriba de todo, incluso antes del Public Class del formulario):

    Imports Microsoft.Office.Interop
    Imports Excel = Microsoft.Office.Interop.Excel

    Luego en el evento que Exporta a Excel:

    Private Sub btnPruebaExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPruebaExcel.Click
    
            Dim xlApp As Excel.Application
            Dim xlWorkBook As Excel.Workbook
            Dim xlWorkSheet As Excel.Worksheet
    
            xlApp = New Excel.Application()
            xlWorkBook = xlApp.Workbooks.Open("D:\Prueba.xlsx")
            xlWorkSheet = xlWorkBook.Worksheets("Hoja1")
            'Aqui escribes el texto del Textbox en la Celda 2,2
            xlWorkSheet.Cells(2, 2) = TextBox1.Text
    
            xlApp.Visible = True
            xlApp.UserControl = True
    
            xlApp = Nothing
            xlWorkSheet = Nothing
            xlWorkBook = Nothing
    
    End Sub

    No te olvides que para ello debes previamente habilitar desde el Menú Project/Add reference (pestaña COM), el componente Microsoft Excel 14.0 (o la versión que manejes). Le das OK.

    Saludos.

    martes, 24 de abril de 2012 16:29
  • Gracias por la pronta respuesta

    Como realizara que los item del LIstbox  ya que se que es  con un contador for pero no se como realizarlo

    y para que los datos listBOx los pase a un rango en excel determinado?


    Hhendrix2012 Programattion OK

    martes, 24 de abril de 2012 16:46
  • después de tanto trabajar en el tema 

    para quien lo necesite  lo que requeria era:

    Sub IMPRIMIR_EXCEL_LARGE()
            Dim oExcel As Object
            Dim oBook As Object
            Dim oSheet As Object

            'Start a new workbook in Excel.
            oExcel = CreateObject("Excel.Application")

            oBook = oExcel.Workbooks.open("D:\vb software\Cma Aplication\Formato Gestion\F03 CMA P1 03 Rev 51-S.xlsx")

            'Add data to cells of the first worksheet in the new workbook.
            oSheet = oBook.Worksheets(1)

            Dim i As Integer
            Dim INI As Integer = 14
            Dim ITEMS As Integer = 0
            For i = 0 To FrOrdenPro.LbItem.Items.Count - 1
                oSheet.Range("B" & INI).Value = FrOrdenPro.LbItem.Items.Item(ITEMS)
                INI = INI + 1
                ITEMS = ITEMS + 1
            Next i

             oBook.SaveAs("D:\vb software\Cma Aplication\Formato Gestion\" & FrOrdenPro.TxtConsecutivo.Text & "-12" & ".xlsx")
            'oBook.Printout()
            oSheet = Nothing
            oBook = Nothing
            oExcel.Quit()
        End Sub

    Muy fácil pero me toco  probar de todo


    Hhendrix2012 Programattion OK

    • Marcado como respuesta Hhendrix2012 jueves, 26 de abril de 2012 18:48
    jueves, 26 de abril de 2012 18:48