[Resolvido]Importar arquivo XML.

Prezados, boa tarde,

Tenho um arquivo xml que tentei importar para tabela ACCESS pelo modo assistente, porém, quando eu importo ele cria diversas tabelas, ou seja, não seria isso que preciso.

Criei um botão de comando e no evento ao clicar eu gostaria de inserir o código que importa os registros para apenas uma tabela.

Alguém se habilita a tentar me ajudar com essa demanda ou me dar alguma ideia?

dropbox.com/s/drkvqrao8s0xo2e/ENVIO_LOTE_GUIAS_doc_37044_id_20927.rar?m=


Grato,

Qual a versão do Access você usa?

Você é do Espírito Santo?

Pablo Neruda, boa tarde,

Uso a versão do Access que uso é 2007.

Sim, sou do Espírito Santo.

Atenciosamente,

Ai meu conterrâneo segue exemplo o qual converti de uma rotina em excell:

dl.dropboxusercontent.com/u/32346357/XML.rar

Extraia o arquivo em C: na pasta XML, nele já tem o seu arquivo de exemplo... Deve referenciar o objeto "Microsoft XML, Vx.x", no meu caso usei a 6.0... No exemplo esta importando os 4 primeiros campos o restante é com você...

Sds,


Pablo

Pablo, boa noite,

Sou da Serra...

Seria isso que estou precisando, vou dar uma estudada no que me enviou. Pois tenho mais de 50 arquivos XML para serem importados.

Apenas não compreendi o trecho que escreveu (Deve referenciar o objeto "Microsoft XML, Vx.x", no meu caso usei a 6.0... )

Muito obrigado amigo.

Bom dia!

Sou de Vila Velha...

Se você for copiar a rotina para outro arquivo, na tela do VBA deverá ir em ferramentas > Referencia e marcar essa opção para que o código possa funcionar...

Se tiver sido resolvido sua questão, marque o tópico como resolvido ok!!!

A e se tiver serviço free-lancer me chama!!!!

Sds,


Pablo

Ok Pablo,

Ainda não resolvi, mas assim finalizar eu marco como resolvido.

Se pintar algum free-lancer concerteza eu lembro de você.

Atenciosamente,

Prezado,

No exemplo que postou ele importa automático sem perguntar qual arquivo eu pretendo importar ao clicar no botão.

Porque da minha pergunta, eu tenho uma pasta com mais de 40 arquivos xml e preciso importar um a um e eles possuem titulos diferentes.

Grato,

Sugestão...
Meu caro...
Passei o dia tentando fazer isso e agora que consegui gostaria de compartilhar:

- Crie um botão com nome de botao e insira o seguindo código "ao clicar"

Private Sub botao_Click()

For i = 1 To 2

DoCmd.TransferSpreadsheet acImport, 10, "NOTAS", "C:\Users\Evandro\Desktop\teste\teste.xlsx", True, "tb_" & i & "!A1:B100"

Next i

End Sub

O código acima importa as tabelas do arquivo teste.xlsx que estão nas planilhas tb_1 e tb_2 para o banco de dados e as insere na tabela (já existente no banco de dados Access) NOTAS.

Obs:
- O número 10 no comando DoCmd refere-se a versão do excel que está se importando
- A palavra chave "True" no comando DoCmd quer dizer que as tabelas devem ser importadas com cabeçalho. Mude para "False" se não quiser esta opção
- O range "A1:B100" compreende um intervalo grande o suficiente para pegar a tabela do Excel inteira. Defina um range adequado para você.

Espero ter ajudado
Abraço
Evandro

Se você tiver muitos arquivos em excel e quiser importar todos eles para o Access, você pode fazer o seguinte:

Pelo ms-dos entre na pasta em que estão os arquivos
Digite o comando dir > arquivos.txt

Irá ser gerado um arquivo txt com o nome de todos os arquivos da pasta.
Copie os nomes cole no excel e trate os dados (texto para colunas) de forma a deixar somente os nomes dos arquivos

Utilize formula de concatenar e monte o comando DoCmd (que eu expliquei acima) várias vezes com os nomes dos diferentes arquivos.

Seja Feliz!!

Abraço
Evandro

Prezado etrj.fisica, bom dia,

Obrigado pela atenção que teve ao me sugerir essas dicas. Atualmente estou usando o código abaixo e funcionou. Minha grande peleja é importação de arquivo no formato XML.

Grato,

Dim strTabela As String

strTabela = "Recebido1"

If MsgBox("Deseja confirmar importação do (s) registro (s) para tabela ENVIADO?", vbYesNo, "Importando Dados...") = vbYes Then

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTabela, "C:\Users\wagomes\Desktop\Base dados SAC\Unimed Recebido.xlsx", True, "Plan1" & "!A:AQ100000"

End If

waguininho,

Tem um código que fiz para converter planilhas para xlsx. Assim você pode contornar o problema de importação de arquivos xml. Você pode colar esse código em uma planilha que contenha os nomes das bases que você irá converter de xml para xlsx no intervalo A1:A4 (você pode aumentar esse range a depender da quantidade de arquivos que você vai converter).

Código:

Sub trata_bases()

Dim plan(4, 1) As String ' Definir quantas linhas tem a matriz que irá carregar os arquivos

For i = 1 To 4   'Passar os arquivos do range da planilha macro para o vetor plan
plan(i, 1) = Cells(i, 1).Value
Next i

endereco = "C:\Users\Evandro\Desktop\teste\"   ' Definir o endereço onde estão os arquivos a serem tratados

For j = 1 To 4 ' Tratar os arquivos

arquivo = plan(j, 1) & ".xls"

Workbooks.Open (endereco & arquivo)
ActiveWorkbook.SaveAs endereco & plan(j, 1), FileFormat:=xlWorkbookDefault     'Salva no formato xlsx
ActiveWorkbook.Close False      ' Fecha o arquivo sem salvar

Next j

End Sub


Abraço

Pablo.

poderia verificar o link que está off

Obrigado