Importar Archivo de Excel a Access

Dudas sobre código
Asdermo
Nivel 1
Mensajes: 1
Registrado: Sab Ago 05, 2017 6:59 pm

Importar Archivo de Excel a Access

Mensajepor Asdermo » Sab Ago 05, 2017 7:06 pm

Hola como están.
les vengo a pedir ayuda ya que no e encontrado una forma eficiente de pasar una hoja expecifica de un documento de excel a mi bd mediante un formulario en vb.

yo probé llenar un datagridview y luego recorrerlo y guardar los datos pero tengo un problema porque manejo excel 2016 y no funciona de la forma apropiada ya que no puedo acceder al nombre de la hoja.

Gracias de antemano por el tiempo prestado.

Pd: Ese es el código que utilizo

Código: Seleccionar todo

Module Importar
    Sub importarExcel(ByVal tabla As DataGridView)
        Dim myFileDialog As New OpenFileDialog()
        Dim xSheet As String = ""
        With myFileDialog
            .Filter = "Excel Files |*.xlsx"
            .Title = "Open File"
            .ShowDialog()
        End With
        If myFileDialog.FileName.ToString <> "" Then
            Dim ExcelFile As String = myFileDialog.FileName.ToString
            Dim ds As New DataSet
            Dim da As OleDbDataAdapter
            Dim dt As DataTable
            Dim conn As OleDbConnection
            xSheet = InputBox("Digite el nombre de la Hoja que desea importar", "Complete")
            conn = New OleDbConnection(
                              "Provider=Microsoft.ACE.OLEDB.12.0;" &
                              "data source=" & ExcelFile & "; " &
                             "Extended Properties='Excel 12.0 Xml;HDR=Yes'")
            Try
                da = New OleDbDataAdapter("SELECT * FROM  [" & xSheet & "$]", conn)
                conn.Open()
                da.Fill(ds, "MyData")
                dt = ds.Tables("MyData")
                tabla.DataSource = ds
                tabla.DataMember = "MyData"
            Catch ex As Exception
                MsgBox("Inserte un nombre valido de la Hoja que desea importar", MsgBoxStyle.Information, "Informacion")
            Finally
                conn.Close()
            End Try
        End If
        MsgBox("Se ha cargado la importacion correctamente", MsgBoxStyle.Information, "Importado con exito")
    End Sub
End Module

Volver a “Código VBA”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados