Página 1 de 1
Função Kill selecionar um grupo de ficheiros e eliminar com condição
Enviado: 21 Mar 2021 às 13:34
por JOAOS86
Bom dia a todos.
Sou novo aqui no forum e neste momento, estou tentando fazer uma reciclagem de
conhecimento de vba e macro.
O meu problema é o seguinte.
Tenho uma pasta com demasiados ficheiros dos quais já não são uteis mas
para eliminar os ficheiros certos tenho uma condição!
basicamente é isto:
verificar todas as células da 1ª coluna, e se for = 0
todas as linhas que tiverem 0, na coluna 3 vai corresponder um nome do ficheiro,
esse ficheiro é para eliminar!
ex:
A1 B1
0 1234.txt
0 2345.txt
0 3456.txt
Cumprimentos a todos!
Re: Função Kill selecionar um grupo de ficheiros e eliminar com condição
Enviado: 21 Mar 2021 às 15:00
por osvaldomp
#
Experimente:
Código: Selecionar todosSub DeletaArquivosTxt()
Dim c As Range
For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
If c.Value <> "" And c.Value = 0 Then
On Error Resume Next
Kill "C:\MinhaPasta\" & c.Offset(, 2).Value
On Error GoTo 0
End If
Next c
End Sub
Re: Função Kill selecionar um grupo de ficheiros e eliminar com condição
Enviado: 22 Mar 2021 às 15:05
por JOAOS86
Sub DeletaArquivosTxt()
Dim c As Range
For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row) pode explicar esta linha ?
If c.Value <> "" And c.Value = 0 Then
On Error Resume Next
Kill "C:\MinhaPasta\" & c.Offset(, 2).Value
On Error GoTo 0
End If
Next c
end sub
Não funcionou.
montei um exemplo igual ao dado em cima e não eliminou os ficheiros
o objectivo é ler o 0 e fazer a correspondência o numero do txt e eliminar , e fazer em todos os 0 em ciclo!
Re: Função Kill selecionar um grupo de ficheiros e eliminar com condição
Enviado: 22 Mar 2021 às 16:23
por osvaldomp
JOAOS86 escreveu: ↑21 Mar 2021 às 13:34
... todas as células da 1ª coluna, e se for = 0
todas as linhas que tiverem 0, na coluna 3 vai corresponder um nome do ficheiro,
1. confirme se no código que você está testando, em lugar de "
MinhaPasta" está o nome correto da pasta/sub pasta que contém os arquivos a serem deletados;
2. conforme o seu critério acima, verifique se os nomes dos arquivos existentes na coluna C da planilha ativa existem na pasta de interesse (item 1 acima)
Se for o caso, disponibilize uma amostra do seu arquivo Excel com 3 ou 4 linhas com dados e informe o caminho completo dos arquivos.
Re: Função Kill selecionar um grupo de ficheiros e eliminar com condição
Enviado: 07 Abr 2021 às 16:39
por JOAOS86
Coluna A --------- colunaC
0 --------- 15854-01
0 --------- 15995-02
0 --------- 15300-03
0 --------- 15400-01
1 --------- 15500-02
2 --------- 15501-03
3 --------- 15502-01
até linha A2000 e C2000
diretório
C:\Users\joao P\Desktop\minhapasta
qual é o formato da colunaA e o da colunaC , numero, texto ?