Página 1 de 1

For / Next openfile

Enviado: Seg Jul 24, 2017 11:19 pm
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!!!!!

Re: For / Next openfile

Enviado: Seg Jul 24, 2017 11:55 pm
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

Re: For / Next openfile

Enviado: Ter Jul 25, 2017 2:39 pm
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

Aba documento excel com condição ao excluir

Enviado: Qua Jul 26, 2017 5:52 pm
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!!!!

Re: For / Next openfile

Enviado: Qua Jul 26, 2017 7:31 pm
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

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

Enviado: Qua Jul 26, 2017 10:25 pm
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".

Re: For / Next openfile

Enviado: Qui Jul 27, 2017 8:25 am
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 !!!!

Resolvido: For / Next openfile

Enviado: Sex Set 01, 2017 1:18 am
por Barucky
Resolvido

Resolvido: For / Next openfile

Enviado: Sex Set 01, 2017 11:47 am
por Barucky
Resolvido: For / Next openfile