none
Manejar hojas de Excel desde visual RRS feed

  • Pregunta

  • Bueno día, espero que alguien pueda ayudarme, quiero saber como manejar excel desde visual, no busco algo demasiado avanzado como introducir y exportar datos y demás, lo único que quiero es el comando para poder abrir una hoja en especifico, por ejemplo:

    Al presionar el botón 1, se abre mi libro en la hoja 1

    Al presionar el botón 2, se abre mi libro en la hoja 2

    Al presionar el botón 3, se abre mi libro en la hoja 3

    De este modo puedo elegir según que botón presione, la hoja que se abrirá de mi proyecto.

    Espero haberme dado a entender y que alguien pueda aclarar mi duda, aun soy neófito en esto así que agradecería un poco de paciencia y claridad en sus respuestas, por adelantado, gracias.

    lunes, 12 de enero de 2015 17:39

Respuestas

  • Imports Excel
    
    Public Class Form1
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            AbrirHoja("c:\libro.xls", 1)
        End Sub
    
        Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
            AbrirHoja("c:\libro.xls", 2)
        End Sub
    
        Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
            AbrirHoja("c:\libro.xls", 3)
        End Sub
    
        Sub AbrirHoja(archivo As String, num As Integer)
            Dim aplica As New Excel.Application
            Dim libro As Workbook = aplica.Workbooks.Open(archivo)
            Dim hoja As Worksheet = CType(libro.Worksheets.Item(num), Worksheet)
    
            hoja.Select()
            aplica.Visible = True
        End Sub
    
    
    End Class
    

    Debes agregar las referencias de excel. Ya sea las PIA distribuidas por microsoft, o la typelib desde tu copia de excel. Esto último es lo que yo hago porque mi versión de excel es la 10. (Microsoft Excel 10 Type Library desde la pestaña COM de agregar referencias)

    lunes, 12 de enero de 2015 18:16

Todas las respuestas

  • Imports Excel
    
    Public Class Form1
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            AbrirHoja("c:\libro.xls", 1)
        End Sub
    
        Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
            AbrirHoja("c:\libro.xls", 2)
        End Sub
    
        Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
            AbrirHoja("c:\libro.xls", 3)
        End Sub
    
        Sub AbrirHoja(archivo As String, num As Integer)
            Dim aplica As New Excel.Application
            Dim libro As Workbook = aplica.Workbooks.Open(archivo)
            Dim hoja As Worksheet = CType(libro.Worksheets.Item(num), Worksheet)
    
            hoja.Select()
            aplica.Visible = True
        End Sub
    
    
    End Class
    

    Debes agregar las referencias de excel. Ya sea las PIA distribuidas por microsoft, o la typelib desde tu copia de excel. Esto último es lo que yo hago porque mi versión de excel es la 10. (Microsoft Excel 10 Type Library desde la pestaña COM de agregar referencias)

    lunes, 12 de enero de 2015 18:16
  • Muchas gracias! Ha sido exactamente lo que necesitaba :D Te debo una cerveza jaja, Lo había buscado por todos lados y no lo encontraba, de nuevo, muchas gracias.
    lunes, 12 de enero de 2015 19:42