Cod. para carregar automatico no Acces

[Bilecki]

Boa tarde a Todos,

Preciso de uma ajuda,

Tenho um Banco de dados access onde criei um formulario com um botão para carregar uma dterminada planilha.

Esse botão faz o seguinte: você clica nele e ele vai até um caminho que você pré determinou no VBA e carrega a planilha e abas com o nome exato.

Comando:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Nome da tabela no Acces", "C:\HDB\Tabela.xls", True, "Tabela!A1:CA20000"

Mas eu tenho que criar um botão que permita que você selecione onde esta o arquivo e qual você quer carregar, como se fosse carregar manualmente.

No Access deve aparece so esse formulario e partir dele que você selecionara as consultas todas atravez de botões, pois as pessoas que usarao isso são leigas e não podem ter aceeso a edição.

Não sei se fui muito claro, mas alguém pode me ajudar?

[MrMALJ]

Acho que se você criar uma caixa de texto e colocar o endereço da planilha já resolveria isso direto. Uma caixa de texto que poderia ser chamada de txtCaminho

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Nome da tabela no Acces", txtCaminho & "\Tabela.xls", True,txtCaminho & "Tabela!A1:CA20000"

[Bilecki]

Não deu certo

deu o seguinte erro:

Erro no tempo de execução '424'

O objeto é obrigatorio

Estou tentando fazer uma caixa de dialogo mas não sei fazer a referencia com o Microsoft Office 11.0 Object Library

ou Microsoft Office 12.0 Object Library

Sera que funciona?

[MrMALJ]

Você criou a caixa de texto que mencionei no exemplo?

Pois deveria funcionar, a caixa de texto onde vocÊ vai digitar por ex: C:\WINDOWS

Verifique, e se num for isso disponibilize pelo menos essa parte do seu banco para analise.

[Bilecki]

O codigo acha o arquivo mas não me da a opção de editar o endereço apos eu clicar no botão.

Private Sub Comando36_Click()

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Nome da tabela no Acces", txtCaminho & "\HDB_VIVO.xls", True, txtCaminho & "HDB!A1:CA20000"

End Sub

tenho um outro codigo para uma caixa de dialogo:

mas não sei faze a referencia com a biblioteca

Private Sub Comando35_Click()

Dim CxDialog As Office.FileDialog

Set CxDialog = Application.FileDialog(msoFileDialogFilePicker)

With CxDialog

'define como seleção simples

.AllowMultiSelect = False

' Define o titulo da caixa de diálogo

.Title = "Selecione o arquivo"

' limpa os filtros

.Filters.Clear

'adiciona novos filtros

.Filters.Add "Arquivos de texto", "*.txt"

.Filters.Add "Todos os arquivos", "*.*"

'mostra a caixa de dialogo

If .Show = True Then 'se algum arquivo tiver sido escolhido

'atribuie o endereço do arquivo a caxa de texto

Me.txtArquivo = .SelectedItems(1)

End If

End With

End Sub

-----------------------------------------------------------------

desculpe mas sou novo por aqui ainda não sei introduzir codigo como você fez acima.

[MrMALJ]

Então o que você quer é poder selecionar outro arquivo após ter escolhido o primeiro?

[Bilecki]

Isso mesmo, porque as veze preciso carregar mais de tres panilhas de nome diferentes.

meio complicado...

[MrMALJ]

num seria o caso de você criar algumas caixas de texto e utiliza-las com o processo que já usamos.