Never Surrender

Bom galera to passando akew so pra dizer que eu resolvi o problema xD

não é 100% certo porque eu nunk tentei mas voce já pensou em chamar um formulario apenas com um label dizendo aguarde? apos finalizar a aplicação o programa fecharia o formulario tambem

mesmo assim segue o link para download do vb http://www.baixebr.org/?p=1399 espero ajudar

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

Bom Cara Para criar codigos em vba voce não precisa do vb necessariamente é só voce apertar alt + f11 em suas aplicaçoes office abraços