Paulo Wellichan

Basole, estou usando esse código para importar, mas ele so deixa e selecionar 1 XML por vez, o que posso alterar para ajustar isso ? Private Sub ToggleButton1_Click() Dim sArquivo Dim sEspecificação As String Dim sTítulo As String Planilha1.Select 'seleciona a Planilha1 Range("A1048576").Select 'seleciona a ultima linha da Planilha1 Selection.End(xlUp).Select 'sobe até o primeira célula com conteúdo If ActiveCell = "ID" Then contador = 0 Else contador = ActiveCell.Value 'captura na variável o valor da linha atual End If contador = contador + 1 txt_for_id = contador txt_for_data = Format(Now, "DD/MM/YYYY") sEspecificação = "Arquivos XML (*.xml*),*.xml*" sTítulo = "Selecione um arquivo XML:" 'Evita a mensagem de erro ao importar os itens do XML Application.DisplayAlerts = False sArquivo = CStr(Application.GetOpenFilename(sEspecificação, , sTítulo, , False)) If sArquivo <> CStr(False) Then Planilha1.Select Cells.Select Selection.Delete Shift:=xlUp Range("A2").Select MsgBox "O seguinte arquivo XML será importado: " & vbCrLf & sArquivo & vbCrLf '& vbCrLf & "Confirme as próximas mensagem..." On Error Resume Next ActiveWorkbook.XmlImport Url:=sArquivo, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1") Else 'Nenhum arquivo foi selecionado End If

Tentei fazer, mas quando eu tento importar para o Excel por exemplo 40 XML ele abre 40 Excel com 1 xml em cada, e não todos em uma unica planilha.

Fala gente tudo bom ? Trabalho com sistema ERP e estou com um cliente que faz a separação de XML manual, ele esta me pedindo se não tem como fazermos isso de uma forma mais pratica. Vou explicar da forma que foi passado a mim. Ele quer clicar em um botão "importar XML" selecionar a pasta e abrir os xml em uma lista, essa lista com um filtro para organizar por cidade, e os produtos contendo nos xml em uma outra listagem. Para ele imprimir essas listagens e ficar mais fácil a separação dos produtos. Algumas imagens para melhor entendimento: Imprimir uma listagem desse estilo, importante somar o valor do peso! Informações de nome de Fornecedor e produtos borrados pois não tenho permissão para divulgar esse conteúdo !

Bom dia a todos, não sei se estou postando esse tópico no lugar certo pois sou novo aqui. Mas preciso de uma ajuda. Estou tentando abrir um arquivo DBF no Excel mas ele não esta abrindo, ele não vem em coluna, vem com vários símbolos e as letras todas misturadas, não sei se esta criptografado ou algo do tipo, baixei um DBF View e ate consegui abrir em Excel, porém como é a versão teste do programa ele só abre os 50 primeiros da lista, e na lista que quero abrir tem 30000 mil itens. Estou anexando uma imagem de como fica quando abro o Excel. Agradeço pela atenção! Paulo Roberto.