Criando e adcionando tabelas no access via excel

[Never Surrender]

Boa tarde galera.

o codigo abaixo cria uma planilha no access atraves do comando sql select into

estou enfrentando dificuldades ao tentar adcionar dados a esta planilha subistituindo o comando select into por insert

alguém pode me ajudar?

creio eu que estou errando ao usar "[Plan2$]"

mas não estou achando outro meio de pegar os dados da planilha e adcionar no access

abraços a todos

origem = txtori.Text
destino = txtdes.Text

On Error GoTo trata_erro

    If Dir(origem) = "" Then
    MsgBox "O arquivo origem:" & origem & "Não existe!!", vbCritical, "Erro"
    Exit Sub
    End If
     
    If Dir(destino) = "" Then
    Dim conexao As String
    Dim ocat As ADOX.Catalog
    Set ocat = New ADOX.Catalog
    conexao = "Provider=Microsoft.Jet.oledb.4.0;"
    ocat.Create conexao & "Data Source=" & destino
    End If
    
    Set ocon = New ADODB.Connection
    With ocon
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
    & "Data Source=" & origem & ";" & "Extended Properties = Excel 8.0"
    
    .Open
    csql = " select * into [" & txttab.Text & "] " & _
    "in '" & destino & "' " & " from [Plan2$]"
    .Execute csql
    MsgBox "Dados gravados com sucesso em - " & destino & " - na tabela :" & txttab.Text
    .Close
      End With
Exit Sub
trata_erro:
MsgBox Err.Description & " - " & Err.Number
Exit Sub

Editado Maio 14, 2009 por kuroi
Adicionar tag CODE

[Never Surrender]

Bom galera

to passando akew so pra dizer que eu resolvi o problema

xD