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

For / Next openfile

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

For / Next openfile

Mensagem por Barucky »

Boa Noite, Pessoal!!!!
Preciso de uma grande ajuda de vocês, estou desenvolvendo um projeto em que trabalho. Consegui pegar alguns arquivos aqui no fórum, juntá-los e adaptá-los a minha necessidade, porém agora me ocorreu algo que não consigo entender, quando utilizo um FOR / NEXT para abrir uma matrix arquivos no total 18, ela abra faz tudo que preciso, no entanto ao passar pelo evento active.close e Next para abrir o próximo arquivo, ele se perde.
Existe vários comandos, for / do loop & Set .
O que preciso é que depois q a macro varrer todo o comando ele abra o próximo arquivos, de já conto com a grande ajuda de vocês.

Obrigado!!!!!


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.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: For / Next openfile

Mensagem por Wagner.cwb »

Eu utilizo o código abaixo para abrir o último arquivo gerado.
Contém a função Next.

Código: Selecionar todos

Public Sub AbreMaisRecente_base_abandonos()

'http://forum.clubedohardware.com.br/topic/891657-resolvido-macro-para-abrir-um-determinado-arquivo-mais-recente/

  Dim arqSys As FileSystemObject
  Dim objArq As File
  Dim minhaPasta
  Dim nomeArq As String
  Dim dataArq As Date
               
  Dim Diret As String
     
  Diret = "local do arquivo na rede" 'correto

  Set arqSys = New FileSystemObject
  Set minhaPasta = arqSys.GetFolder(Diret)
      dataArq = DateSerial(1900, 1, 1)
  For Each objArq In minhaPasta.Files
  If objArq.name Like "" & Range("P2") & "*csv*" Then 'modificado para buscar o nome do arquivo pela planilha
  'If objArq.Name Like "Agentes2_*csv*" Then 'codigo original
  If objArq.DateLastModified > dataArq Then
        dataArq = objArq.DateLastModified
        nomeArq = objArq
  End If
  End If
  Next objArq
        ActiveWorkbook.FollowHyperlink Address:=nomeArq


Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

Re: For / Next openfile

Mensagem por Barucky »

Boa tarde!!!

Muito obrigado, foi de grande ajuda sua indicação, nossa me tirou um peso de tentar resolver, muito agradecido mesmo...vlw


Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

Aba documento excel com condição ao excluir

Mensagem por Barucky »

Boa tarde pessoal
Gostaria de uma informação, como estou ainda dando os primeiros passos, gostaria de uma ajuda, um código que verifica se no documento exite uma aba com nome "teste", e que venha acompanhado de uma condição Exemplo
Se o nome da aba "teste" estiver no documento excluir
Se não da continuação no código, parte para o próximo passo..

Sei que para o pessoal isso é café com leite, mais a mim um bicho de 7 cabeças,
desde já agradeço a grande ajuda de vocês....
Obrigado!!!!


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.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: For / Next openfile

Mensagem por Wagner.cwb »

Barucky escreveu: Ter Jul 25, 2017 2:39 pm Boa tarde!!!

Muito obrigado, foi de grande ajuda sua indicação, nossa me tirou um peso de tentar resolver, muito agradecido mesmo...vlw
Que bom que ajudou! créditos para o Mr Reinaldo!

abs


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Aba documento excel com condição ao excluir

Mensagem por Wagner.cwb »

Barucky escreveu: Qua Jul 26, 2017 5:52 pm Boa tarde pessoal
Gostaria de uma informação, como estou ainda dando os primeiros passos, gostaria de uma ajuda, um código que verifica se no documento exite uma aba com nome "teste", e que venha acompanhado de uma condição Exemplo
Se o nome da aba "teste" estiver no documento excluir
Se não da continuação no código, parte para o próximo passo..

Sei que para o pessoal isso é café com leite, mais a mim um bicho de 7 cabeças,
desde já agradeço a grande ajuda de vocês....
Obrigado!!!!
Camarada, pelo que entendi, você vai abrir vários arquivos e precisa identificar se a aba ativa é "teste" e caso a aba teste esteja presente no arquivo "excluir" vc quer interromper o código e passar para outro arquivo.. certo?

Dá uma olhada nessa fonte: https://fabiovianna.com.br/como-listar- ... planilhas/

Código: Selecionar todos

Sub GetSheets()

Dim j As Byte

For j = 1 To Sheets.Count

Cells(j, 1) = Sheets(j).Name

Next j

End Sub
O código traz o nome de todas as abas presente no arquivo.

Já a identificação do arquivo, você já pode fazer primeiro e pelo código que te passei antes, tenta criar mais um IF com o nome do "nomeArq".


Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

Re: For / Next openfile

Mensagem por Barucky »

Bom dia!!!

Rapaz sensacional, apesar de não ter me expressado bem você captou tudo que precisava, e agradeço pela dicas e pela grande força e pela resposta super rápida,
Muito Obrigado mesmo !!!!


Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

Resolvido: For / Next openfile

Mensagem por Barucky »

Resolvido


Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

Resolvido: For / Next openfile

Mensagem por Barucky »

Resolvido: For / Next openfile


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