Exportando planilha excel para BD Access

[Macêdo]

Coloque no form 4 textBox e 1 Botão

No gerneral declarations:

Dim db As Database

A sub que fará o trabalho:

Private Sub ExportaExcel(nomepasta As String, caminhoplanilha As _

    String, nometabela As String, caminhobd As String)
    
   Dim db As Database
    
   Set db = OpenDatabase(caminhoplanilha, True, False, "Excel 5.0")
    
   Call db.Execute("Select * into [;database=" & caminhobd & "]." & nometabela & " FROM [" & nomepasta & "$]")
    
   MsgBox "Tabela Exportada com Sucesso", vbInformation, "JcmSoft"

End Sub

Comando do Botão para realizar a exportação, chamando a sub:

Private Sub Command1_Click()

On Error GoTo trata_erro
   
   ExportaExcel text2.Text, text1.Text, text4.Text, text3.Text
   Exit Sub
   
trata_erro:
      MsgBox Err.Number & " -  " & Err.Description
      Exit Sub

End Sub

Na text1 coloque o endereço do arquivo do excel

Na text2 coloque o nome da planilha

Na text3 coloque o endereço do banco Access.mdb onde quer gravar os dados da planilha

Na text4 coloque o nome da tabela que será criada no BD access com os campos da planilha excel

exemplo:

text1:

C:\Documents and Settings\Usuario\Desktop\Nova pasta\pasta1.xls

text2:

plan1

text3:

C:\Documents and Settings\Usuario\Desktop\Nova pasta\teste.mdb

text4:

teste