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