Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pesquisa resultou em 26 ocorrências

por LuizFeijo
Dom Nov 21, 2021 6:43 pm
Fórum: VBA Básico
Tópico: Procurar em .txt e Organizar cada produto.
Respostas: 4
Exibições: 2445

Re: Procurar em .txt e Organizar cada produto.

ola Raygsson, sou leigo em vba, to tentando até agora desde manha aprender com videos no youtube, mais segue em anexo o arquivo XML(txt) e copia do exemplo de como o vba tem de organizar os dados do XML. se puder olha agradeço desde já. O script base está ai, pra um exemplo melhor anexe o seu arquiv...
por LuizFeijo
Dom Nov 21, 2021 11:21 am
Fórum: VBA Básico
Tópico: Procurar em .txt e Organizar cada produto.
Respostas: 4
Exibições: 2445

Re: Procurar em .txt e Organizar cada produto.

bom dia Raygsson, desde já agradeço a resposta, Esse seu texto é um XML, o VBA tem métodos pra fazer a leitura disso. No exemplo abaixo inclui o texto na célula A1, com algumas modificações pode ser carregado direto do .TXT tbm. Sub Exemplo() Set objXML = CreateObject("MSXML2.DOMDocument.6.0&qu...
por LuizFeijo
Qui Nov 18, 2021 3:46 pm
Fórum: VBA Básico
Tópico: Procurar em .txt e Organizar cada produto.
Respostas: 4
Exibições: 2445

Procurar em .txt e Organizar cada produto.

Pessoal abaixo está um exemplo que consegui dentro de um arquivo .txt com os mesmos dados, todo organizado em um padrao. como voces podem ver cada produto é separado pela grandeza <produto item="1"> ,onde o sistema vai identificar a cada novo produto o numero ="1"; ="2"...
por LuizFeijo
Qui Jul 22, 2021 9:09 pm
Fórum: Geral
Tópico: Localizar parte da palavra e Retornar
Respostas: 2
Exibições: 3667

Re: Localizar parte da palavra e Retornar

OLÁ srobles, desculpa a demora, sua planilha tem o teor que eu buscava, exatamente mostrar as "frases/palavras que contenham o que eu busco", eu percebi que ao encontrar o que procuro ela me mostra a lista, e devo escolher a que quero, mais em uma busca com centenas eu teria de escolher um...
por LuizFeijo
Dom Fev 28, 2021 9:02 pm
Fórum: Geral
Tópico: Localizar parte da palavra e Retornar
Respostas: 2
Exibições: 3667

Localizar parte da palavra e Retornar

Saudações colegas do Excel, seguinte, eu uso muito planilhas onde trabalho, e tenho que fazer muito relatorio de comparação, dados externos x dados internos, para encontrar os erros. Eu uso muito PROCV, as vezes com condicionais, mais vejo que chega a um limite, devido a PROCV não ser tao ampla nos ...
por LuizFeijo
Ter Mar 26, 2019 10:04 am
Fórum: VBA Básico
Tópico: IMPORTAR TXT A PARTIR DE CERTA POSIÇÃO-RESOLVIDO-
Respostas: 22
Exibições: 14470

Re: IMPORTAR TXT A PARTIR DE CERTA POSIÇÃO

No Vba toda linha que inicia com apostrofe " ' " é considerada como comentário ou texto explicativo. Essa linha está comentada ('), deixei como exemplo para mostrar como será a sintaxe caso deseje verificar uma string(texto) maior com um valor especifico As duas linhas são apenas comentár...
por LuizFeijo
Ter Mar 26, 2019 7:55 am
Fórum: VBA Básico
Tópico: IMPORTAR TXT A PARTIR DE CERTA POSIÇÃO-RESOLVIDO-
Respostas: 22
Exibições: 14470

Re: IMPORTAR TXT A PARTIR DE CERTA POSIÇÃO

Já não estou entendendo. Para verificar se é letra deverá ser utilizado: Esta linha separa o caractere da posição 393( midi(L,393,1), converte para maiúsculo UCase(...), e atribui valor ASCII Asc(...); a variavel xAsc recebe então esse valor. xAsc = Asc(UCase(Mid(L, 393, 1))) Esta linha verifica se...
por LuizFeijo
Seg Mar 25, 2019 1:19 pm
Fórum: VBA Básico
Tópico: IMPORTAR TXT A PARTIR DE CERTA POSIÇÃO-RESOLVIDO-
Respostas: 22
Exibições: 14470

Re: IMPORTAR TXT A PARTIR DE CERTA POSIÇÃO

Nessa proposta--> If Mid(L, 296, 6) = "130818" <-- e verificado se o conteúdo de 296 à 304 é igual a "130818" A sintaxe da função mid é -->Mid(string, start[, length])<-- (similar a função deplanilha Ext.Texto) E retorna um String(Texto) de seis caractere Bom dia Sr Reinaldo, ne...
por LuizFeijo
Sex Mar 22, 2019 12:40 pm
Fórum: VBA Básico
Tópico: IMPORTAR TXT A PARTIR DE CERTA POSIÇÃO-RESOLVIDO-
Respostas: 22
Exibições: 14470

Re: IMPORTAR TXT A PARTIR DE CERTA POSIÇÃO

Na posição 296 à 304 encontra-se o campo que"negritou" em seu post anterior " 130918 00000000000..." assim o "valor" está entre aspas pois o retorno e strings(texto), deixei comentado apenas como deve ser a sintaxe se quiser/necessitar utilizar esse local para comparaç...
por LuizFeijo
Qui Mar 21, 2019 1:33 pm
Fórum: VBA Básico
Tópico: IMPORTAR TXT A PARTIR DE CERTA POSIÇÃO-RESOLVIDO-
Respostas: 22
Exibições: 14470

Re: IMPORTAR TXT A PARTIR DE CERTA POSIÇÃO

Logo apos o Do While 'INSERIR DADOS NA PLANILHA '------------------------------------------------------------- Do While Not EOF(I) frmmenu.LBLSTATUS.Caption = "PROCESSANDO LINHA:" & LN - 1 DoEvents Line Input #I, L 'Verifica se o valor da string é o esperado 'If Mid(L, 296, 6) = "...