gistfile1.bas

  Public Function ImportaXLS(ByVal arquivoXLS As String) As Boolean
        '------------------------------------------------------ 
        '-Função lê arquivo do excel e depois grava na tabela-- 
        '------------------------------------------------------ 
        Dim dsDados As DataSet
        Dim daAdaptador As System.Data.OleDb.OleDbDataAdapter
        Dim sql As String
        Dim conexao As String
        Dim conn As OleDb.OleDbConnection
        Dim tabela As String
        Try
            conexao = String.Format("Provider=Microsoft.Jet.OleDb.4.0;data source={0};Extended Properties=Excel 8.0;", arquivoXLS)
            conn = New OleDb.OleDbConnection(conexao)
            Dim dtTabela As New DataTable
            Dim objrestricoes() As Object = New Object() {Nothing, Nothing, Nothing, "TABLE"}
            conn.Open()
            'Pega o nome da primeira sheet da planilha. 
            dtTabela = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, objrestricoes)
            tabela = dtTabela.Rows(0)("TABLE_NAME").ToString()
            'Executa select na primeira sheet da planilha 
            daAdaptador = New System.Data.OleDb.OleDbDataAdapter(String.Format("select * from [{0}]", tabela), conn)
            dsDados = New DataSet
            daAdaptador.Fill(dsDados)
            'Executa Inserção .... 
            'aqui vc cria uma função e insere ok? 
            For Each item As DataRow In dsDados.Tables(0).Rows
                IncluirItens(item)
            Next
            conn.Close()
            conn.Dispose()
            dsDados.Dispose()
            daAdaptador.Dispose()
            Return True
        Catch ex As Exception
            Throw
        Finally
            dsDados = Nothing
            daAdaptador = Nothing
            conn = Nothing
        End Try
    End Function