Siga os seguintes passos:
ponha quatro textbox e um command_button num Form
na text1 coloque o endereço onde se encontra a planilha excel a ser exportada ex: c:meus documentospasta1.xls
na text2 coloque o nome da plan que contem os dados ex: plan1
na text3 coloque o endereço do banco access que irá receber os dados da planilha ex: c:desktopmeubanco.mdb
na text4 coloque o nome da tabela que vc quer que seja criada no banco access para receber os dados da planilha excel
agora ponha o codigo abaixo no formulario e assim que vc clicar no botão de comando sera criada no banco access a tabela com o nome que vc colocou na text4 e todos os dados da planilha excel serão enviados para ela.
no general declarations do form:
Dim db As Database
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
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, "Exportando"
End Sub
