none
Abrir una hoja de exel 2010 y que referencias necesito. ademas de como incluirle datos.? RRS feed

  • Pregunta

  • como puedo Abrir una hoja de exel 2010 y que referencias necesito. ademas de como incluirle datos. a apartir de un formulario. Lenguaje que uso es visual basic. El detalle es que se puede abrir con un objeto. o open pero no me acuerdo como se realiza.. gracias
    • Cambiado Enrique M. Montejo miércoles, 5 de febrero de 2014 13:09 Programación con Microsoft Excel
    domingo, 2 de febrero de 2014 3:46

Respuestas

  • Hola!

    Para abrir un archivo de excel 2010 puedes hacerlo de esta forma.

    *** Con una ruta estática (No recomendable)

       Dim proceso As New ProcessStartInfo()
            proceso.UseShellExecute = True
            proceso.FileName = "C:\Users\Core-i7\Desktop\PaginasCSS.xlsx"
            Process.Start(proceso)

    *** Eligiendo la ruta de nuestro archivo

        Dim abrir As New OpenFileDialog
            abrir.Filter = "Archivos Excel 2010 (.xlsx)|*.xlsx"
    
            If abrir.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim abrirProceso As New ProcessStartInfo()
                abrirProceso.UseShellExecute = True
                abrirProceso.FileName = abrir.FileName
                Process.Start(abrirProceso)
            End If


    Los dos pasos anteriores te permitiran abrir un archivo excel!!

    Para poder crear un excel , puedes agregar la referencia.

    luego importas

    Imports Microsoft.Office.Interop

    Y un demo de código! :D

    Dim xExcel As Excel.Application Dim xLibro As Excel.Workbook Dim xHoja As Excel.Worksheet Try xExcel = DirectCast(CreateObject("Excel.Application"), Excel.Application) xExcel.ErrorCheckingOptions.NumberAsText = False formulario.Cursor = Cursors.WaitCursor xLibro = xExcel.Workbooks.Add xHoja = xExcel.Sheets.Add xHoja.Name = "Acta de Contratación" 'Propiedades para toda la hoja xHoja.Cells.Font.Name = "Calibri" xHoja.Application.ActiveWindow.DisplayGridlines = False 'Longitud de las columnas xHoja.Range("A1").ColumnWidth = 7.43 xHoja.Range("B1").ColumnWidth = 9.71 'Titulo de la hoja With xHoja.Range("A1:I1") .Merge() .Value = "Esto es solo Ejemplo" .HorizontalAlignment = 3 .Font.Size = 12 .Font.Bold = True .Font.Underline = True End With MsgBox("El archivo Excel fue creado y enviado a su escritorio.", MsgBoxStyle.Information, "Mensaje")

    xExcel.Visible = True Catch ex As Exception MsgBox("Se produjo un error : " & ex.Message, _ MsgBoxStyle.Critical, "Error System - Ex0001") End Try xHoja = Nothing xLibro = Nothing xExcel = Nothing

    Espero haberte ayudado!

    Saludos :D


    JC NaupaCrispín

    • Marcado como respuesta Dransiel sábado, 5 de abril de 2014 18:57
    domingo, 2 de febrero de 2014 4:57
    • Marcado como respuesta Dransiel sábado, 5 de abril de 2014 18:58
    lunes, 3 de febrero de 2014 12:00

Todas las respuestas

  • Hola!

    Para abrir un archivo de excel 2010 puedes hacerlo de esta forma.

    *** Con una ruta estática (No recomendable)

       Dim proceso As New ProcessStartInfo()
            proceso.UseShellExecute = True
            proceso.FileName = "C:\Users\Core-i7\Desktop\PaginasCSS.xlsx"
            Process.Start(proceso)

    *** Eligiendo la ruta de nuestro archivo

        Dim abrir As New OpenFileDialog
            abrir.Filter = "Archivos Excel 2010 (.xlsx)|*.xlsx"
    
            If abrir.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim abrirProceso As New ProcessStartInfo()
                abrirProceso.UseShellExecute = True
                abrirProceso.FileName = abrir.FileName
                Process.Start(abrirProceso)
            End If


    Los dos pasos anteriores te permitiran abrir un archivo excel!!

    Para poder crear un excel , puedes agregar la referencia.

    luego importas

    Imports Microsoft.Office.Interop

    Y un demo de código! :D

    Dim xExcel As Excel.Application Dim xLibro As Excel.Workbook Dim xHoja As Excel.Worksheet Try xExcel = DirectCast(CreateObject("Excel.Application"), Excel.Application) xExcel.ErrorCheckingOptions.NumberAsText = False formulario.Cursor = Cursors.WaitCursor xLibro = xExcel.Workbooks.Add xHoja = xExcel.Sheets.Add xHoja.Name = "Acta de Contratación" 'Propiedades para toda la hoja xHoja.Cells.Font.Name = "Calibri" xHoja.Application.ActiveWindow.DisplayGridlines = False 'Longitud de las columnas xHoja.Range("A1").ColumnWidth = 7.43 xHoja.Range("B1").ColumnWidth = 9.71 'Titulo de la hoja With xHoja.Range("A1:I1") .Merge() .Value = "Esto es solo Ejemplo" .HorizontalAlignment = 3 .Font.Size = 12 .Font.Bold = True .Font.Underline = True End With MsgBox("El archivo Excel fue creado y enviado a su escritorio.", MsgBoxStyle.Information, "Mensaje")

    xExcel.Visible = True Catch ex As Exception MsgBox("Se produjo un error : " & ex.Message, _ MsgBoxStyle.Critical, "Error System - Ex0001") End Try xHoja = Nothing xLibro = Nothing xExcel = Nothing

    Espero haberte ayudado!

    Saludos :D


    JC NaupaCrispín

    • Marcado como respuesta Dransiel sábado, 5 de abril de 2014 18:57
    domingo, 2 de febrero de 2014 4:57
  • gracias pero como haria para importar los datos al archivo que habri. Es decir quiero crear un reporte en exel al abrirlo le envie los datos
    domingo, 2 de febrero de 2014 14:45
    • Marcado como respuesta Dransiel sábado, 5 de abril de 2014 18:58
    lunes, 3 de febrero de 2014 12:00