Notifications
Clear all

MOSTRAR ABA DO ÚLTIMO ARQUIVO XML INSERIDO

5 Posts
2 Usuários
0 Reactions
975 Visualizações
(@mssoares)
Posts: 28
Eminent Member
Topic starter
 

Caros(a), boa noite.

Preciso de uma grande ajuda.

Tenho uma planilha que está relacionada a inserção de arquivos XML.
Antes e depois da inserção do XML tenho um código VBA que me ajuda nessa inserção, envolvendo os filtros.

Na sequencia desse código, ele termina sempre mostrando a segunda aba, mesmo que o novo arquivo inserido seja na primeira.

Preciso de ajuda para que o código finalize mostrando a aba que o último arquivo XML foi inserido.

Tentei me expressar da melhor forma.
Desde já agradeço.

 
Postado : 23/11/2016 6:12 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Precisamos do arquivo ou pelo menos do código, amigo...
Provavelmente você está, no código, criando uma última aba antes de descobrir que não vai fazer nada nela...
Só saberemos, vendo... O ideal seria enviar o arquivo com o código, e uns 2 desses XMLs de modelo... tudo compactado...

Abs,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/11/2016 10:04 pm
(@mssoares)
Posts: 28
Eminent Member
Topic starter
 

Fernando, bom dia!

Desde já agradeço.

Anexo planilha e dois arquivos XML.
Apenas pra você entender melhor, tenho mapas XML diferentes e por isso duas abas. Para importar, uso cada arquivo em sua respectiva aba.

Acontece que quando eu importo um arquivo "DIVERSOS" para a aba "BD_DIVERSOS", o código faz, mas ao final do código, ele me retorna sempre a aba "BD_TRISTAR".

Obrigado novamente.

 
Postado : 24/11/2016 6:06 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

No PC aqui do serviço não consegui executar, deve ser por algumas restrições que nos impõee, mas se entendi, troque as linhas da rotina BeforeXmlImport conforme abaixo e faça os testes :

Troque estas :

Sheets("BD_FRETE_TRISTAR").Select
    Range("Tabela3[[#Headers],[EMBALAGEM]]").Select
    Selection.AutoFilter

Por estas :

    With Sheets("BD_FRETE_TRISTAR")
        .Select
        Range("Tabela3[[#Headers],[EMBALAGEM]]").Select
        Selection.AutoFilter
        .Select
    End With

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/11/2016 1:18 pm
(@mssoares)
Posts: 28
Eminent Member
Topic starter
 

Sr. Mauro, boa tarde!

Fiz os testes. Com a sua sugestão,o que percebi é que não preciso mais (na maioria das vezes) escolher o mapa que o xml será inserido, pois,com esse novo código, o arquivo é lançado na aba que eu estou visualizando antes de importar. O que pra mim é bom, pois tem lógica escolher a aba que eu quero antes de inserir.

Já na sequencia, quando estou na aba "BD_FRETE_DIVERSOS" e quero lançar um arquivo para essa mesma aba, ele lança, mas ao final do processo, acaba me retornando a aba "BD_FRETE_TRISTAR". Ficaria esse ponto para tentarmos resolver.

Se estou na aba "BD_FRETE_TRISTAR" e quero lançar um arquivo para essa mesma aba, o código funciona perfeitamente, pois ao final me retorna essa aba.

 
Postado : 24/11/2016 2:24 pm