Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
For / Next openfile
For / Next openfile
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!!!!!
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!!!!!
-
- Manda bem
- Mensagens: 168
- Registrado em: Sáb Set 24, 2016 4:48 pm
Re: For / Next openfile
Eu utilizo o código abaixo para abrir o último arquivo gerado.
Contém a função Next.
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
Boa tarde!!!
Muito obrigado, foi de grande ajuda sua indicação, nossa me tirou um peso de tentar resolver, muito agradecido mesmo...vlw
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
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!!!!
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!!!!
-
- Manda bem
- Mensagens: 168
- Registrado em: Sáb Set 24, 2016 4:48 pm
-
- Manda bem
- Mensagens: 168
- Registrado em: Sáb Set 24, 2016 4:48 pm
Re: Aba documento excel com condição ao excluir
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?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!!!!
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
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
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 !!!!
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 !!!!