none
hola me pueden ayudar con el codigo estoy usando vb 2015 con el (If .ShowDialog = Windows.Forms.DialogResult.OK Then stRuta = .FileName End If) RRS feed

  • Pregunta

  • CARGAR ARCHIVO DE EXCEL ********************************


    Dim stRuta As String = ""
            Dim openFD As New OpenFileDialog

            With openFD
                .Title = "Seleccionar archivos"
                .Filter = "Archivos Excel(*.xls;*.xlsx)|*.xls;*xlsx|Todos los archivos(*.*)|*.*"
                .Multiselect = False
                .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    stRuta = .FileName
                End If
            End With

            Try
                Dim stConexion As String = ("Provider=Microsoft.ACE.OLEDB.12.0;" & ("Data Source=" & (stRuta & ";Extended Properties=""Excel 12.0;Xml;HDR=YES;IMEX=2"";")))
                Dim cnConex As New OleDbConnection(stConexion)
                Dim Cmd As New OleDbCommand("Select * From [Hoja1$]")
                Dim Ds As New DataSet
                Dim Da As New OleDbDataAdapter
                Dim Dt As New DataTable
                cnConex.Open()
                Cmd.Connection = cnConex
                Da.SelectCommand = Cmd
                Da.Fill(Ds)
                Dt = Ds.Tables(0)

                Me.DataGridView1.DataSource = Dt
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            End Try
    • Cambiado Enrique M. Montejo lunes, 22 de febrero de 2016 7:00 Pregunta relacionada con objetos de Windows Forms.
    viernes, 19 de febrero de 2016 20:49

Todas las respuestas