Importacao de arquivos

[Leo Lobo]

Gostaria de saber como posso fazer com que o access importe via macro ou sql varios arquivos ao mesmo tempo independente do nome. Ou seja temos uma rotina onde varios arquivos são importados de palm tops sendo que os nomes dos arquivos são gerados no momento da importacao , ou seja são nomes variaveis que são criados de acordo com as datas do dia do movimento.

É possivel fazer com que o access importe por exemplo 3 arquivos xml diferentes utilizando a maneira " *.XML "

Seria mais ou menos assim - o access vai em um determinado diretorio e procura qualquer arquivo xml e importa para uma mesma tabela já definida na macro trazendo qualquer tipo de arquivo xml existente.

Edited November 12, 2011 by Leo Lobo

[MrMALJ]

Achei código publicado pelo Cougo membro do forum expertaccess que informa que deve habilitar a referência Microsoft Office 11.0 Object Library ou Microsoft Office 12.0 Object Library.

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

A função deve funcionar para selecionar arquivos o que você tem de fazer agora e chamar os arquivos que você selecionou, não testei o código mas creio não haver muita dificuldade em repassar os arquivos selecionados para uma caixa de texto e executarão sua importação.