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

Preencher TXT a partir de Matriz Variável

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Preencher TXT a partir de Matriz Variável

Mensagem por Adonias »

Bom dia pessoal,
Estou precisando preencher um arquivo txt com dados de uma coluna, apenas, do excel e no txt também terá só uma coluna.
Acontece que os valores dessa coluna estarão numa Array variável e não na coluna mesmo.

Esclarecendo
A única coluna que mostra valores será a coluna A
a partir dela o código cria a coluna B só que não coloca na coluna B, mas sim na matriz.
Eu quero preencher meu txt com dados dessa matriz.

Exemplo

Coluna A
11.111.111/0001-11
22.222.222/0002-22

o código retira a formatação desses números e coloca na matriz apenas
11111111000111
22222222000222
e conclui criando um arquivo txt apenas com os dados obtidos.
Só que o numero de itens poderá variar sempre


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Preencher TXT a partir de Matriz Variável

Mensagem por Reinaldo »

Talvez com um modelo do que é vs o que espera fique mais simples e obtenha um retorno que lhe auxilie


Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Preencher TXT a partir de Matriz Variável

Mensagem por Adonias »

Ok, Reinaldo
Veja, meu objetivo é não ter que gerar na planilha qualquer coluna além a coluna A e para isso, pensei que uma matriz resolvesse.
Olha só de que se trata: eu terei uma relação de CNPJ que irão variar de quantidades, podendo ser mais de 1000 por lote.
Eu preciso criar uma pasta para cada CNPJ que recebo, elas serão temporárias que concluo o meu trabalho eu as deleto então não tenho problemas com espaço.
Essa foi a solução mais viável que encontrei de criar essas pastas automaticamente: recebo a relação de CNPJ, copio e colo na célula A1 e gero o arquivo bat que depois é só executar e as pastas serão criadas.

Outra coisa que queria implementar era fazer com que o inputbox que é chamado para o usuário inserir o caminho onde quer salvar o arquivo, abrisse a pasta "salvar como". Daé depois de escolhido o local ele precisaria digitar apenas o nome do arquivo e o codigo além de tudo salvaria o caminho no defaut do inputbox e clicando em OK, seguiria o código e enviaria esse endereço com o nome do arquivo para ficar registrado na célula E1, módulo invisível. Pensei tb em enviar para uma variável, mas não consegui. O objetivo era sempre que o usuário chegasse nesse inputbox ele já viesse preenchido o defaut com o caminho onde ele salvou anteriormente e ele mudaria só o nome do arquivo.

Então é isso: quero retirar os caracteres dos CNPJ, acrescentar o comando Make Directory(MD) que gerará as pastas e salvar arquivo bat no endereço escolhido.
aqui está onde consegui chegar aproveitando códigos de macros já trabalhadas aqui no site.

A propósito Reinaldo, poderia me ensinar a colocar a palavra [Resolvido] aqui nao site quando encontramos antes do tópico?

segue modelo e obrigado
Anexos
criar sem ERRO txt.rar
(27.1 KiB) Baixado 174 vezes


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Preencher TXT a partir de Matriz Variável

Mensagem por Reinaldo »

Veja no anexo se está em linha com o que espera/demanda
Anexos
CriarDiretorio.zip
(24.06 KiB) Baixado 176 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Preencher TXT a partir de Matriz Variável

Mensagem por Adonias »

Reinaldo, ficou excelente meu amigo. Como sempre você arrasa. Espero um dia chagar a pelo menos 20% do seu conhecimento em VBA.
E quanto a colocar a Palavra Resolvido no Tópico, como procedo?


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Preencher TXT a partir de Matriz Variável

Mensagem por Reinaldo »

Boa Pergunta, em todos os fóruns que participo/participei nunca me preocupei com isso.
Porem acredito que deva ser editado manualmente o titulo do tópico e acrescentado a palavra/termo desejado


Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Preencher TXT a partir de Matriz Variável

Mensagem por Adonias »

Reinaldo, para concluir minha planilha eu queria acrescentar algo mais.
O meu sistema anexa arquivos que estarão em cada pasta criada por esse código.
Os arquivos serão colocados em cada pasta pelo usuário, só que existem uns 10 arquivos que deverão estar em todas essas pastas.
Eu os mantenho na pasta C:\Temp. Como faria para acrescentar essa rotina ao codigo para ele verificar a pasta Temp, copiar todos os arquivos e colar em todas as pastas que foram criadas no código?


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Preencher TXT a partir de Matriz Variável

Mensagem por Reinaldo »

Veja em https://www.rondebruin.nl/win/s3/win026.htm como copiar pastas ou arquivos e tente adaptar a sua realidade
chame a rotina para copiar +/- neste local

Código: Selecionar todos

...        If fsoLocal.FolderExists(strPath) Then
        Else
            fsoLocal.CreateFolder (Caminho & NomeDir)
            Copy_Folder
        End If
...


Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Preencher TXT a partir de Matriz Variável

Mensagem por Adonias »

Reinaldo eu já tinha vistos todos os exemplos dessa página, mas todos eles focal apenas numa pasta. Eu quero copiar todos os arquivos de uma pasta, isso o código faz tranquilamente, e quero salvar todos em cada uma das pastas dentro de um diretório escolhido, isso o código dessa pasta não faz.

acho que tem de ter um loop e não estou conseguindo.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Preencher TXT a partir de Matriz Variável

Mensagem por Reinaldo »

Ao criar a nova pasta
"...fsoLocal.CreateFolder (Caminho & NomeDir)..."
logo a seguir insira o codigo/rotina para copiar/colar pasta/arquivo
" fsoLocal.CreateFolder (Caminho & NomeDir)
Copy_Folder to caminho & NomeDir
end if"


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder