Pesquisar pasta com nº do mês e nome do mês

2024 - VBA & Macros

Post Recente por schneiderx 11 anos atrás

6 Posts

2 Usuários

0 Reactions

1,232 Visualizações

RSS

schneiderx

(@schneiderx)

Posts: 15

Active Member

Topic starter

Bom dia pessoal, tudo bem?!
Tenho um caminho de pasta da seguinte forma:

H:ClienteItemAno01 - JaneiroDimensional.xls

Porém tive que editar a pasta do Mês para apenas o número do mês (no lugar de "01 - Janeiro" tive que por "1") pois no código que criei faço a pesquisa através de um For de início 13 até 0 para percorrer os meses, só consigo fazer a pesquisa através do número.

Dim caminho As String
Dim CMes As Integer
For CMes = 13 To 0 Step -1
caminho = "H:ClienteItemAno" & CStr(CMes) & "Dimensional.xls
.
.
.
Next

Minha pergunta:
Existe uma maneira de fazer essa pesquisa utilizando um For como o exemplo acima porém dessa maneira:
"...Ano" & CStr(CMes) & " - " & nomemês & "" & Item & "*"

Desde já agradeço, tenham um ótimo dia.

Postado : 09/06/2014 8:27 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia schneiderx,

Ao chegar no 13 é o mês de janeiro do ano subsequente?

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 09/06/2014 8:41 am

schneiderx

(@schneiderx)

Posts: 15

Active Member

Topic starter

O 13 e o 0 foram além por segurança de que vai mesmo passar pelo 12 e pelo 1. Creio eu que não seja necessário, correto?

Postado : 09/06/2014 8:45 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia schneiderx,

Não há necessidade.

Vê se ajuda.

Dim caminho As String
Dim CMes As Integer
On Erros Resume Next
For CMes = 12 To 1 Step -1
caminho = "H:ClienteItemAno" & CStr(CMes) & " - " & Format("1/" & CStr(CMes) & "/2014", "mmmm") & "Dimensional.xls"

.
.
.
Next

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 09/06/2014 8:50 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Também pode experimentar algo assim, se quiser utilizar a sintaxe inicial "(H:ClienteItemAno1 - JaneiroDimensional.xls)"

Dim caminho As String, Meses()
Dim CMes As Integer
Meses = Array("Janeiro", "Fevereiro", "Março", "Abril", "Maio", "....") 'Aqui complete até dezembro

For CMes = 12 To 1 Step -1
caminho = "H:ClienteItemAno" & Format(CMes, "00") & " - " & Meses(CMes - 1) & "Dimensional.xls"
Next

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 09/06/2014 8:56 am