Preciso de evoluir o seguinte código para fazer a concatenação de dados de certa forma. Tenho uma pasta com fotos de produtos, (varias fotos para cada produto) e pretendo que o Excel faça uma busca pelo nome das fotos e escreva os nomes das fotos referentes a cada produto numa célula e separados por uma virgula.
Outra questão é que para cada produto as fotos podem ter diferentes extensões ou seja, pode ter JPG e/ou PNG e/ou JPEG. (ver exemplos)
O nome das fotos é o mesmo que a referencia do produto e caso o produto tenha mais de uma foto o nome é diferenciado por uma letra do alfabeto no fim do nome e antes do ponto e da extensão. Ex: ac2345a.jpg ou 023198AAb.jpg ou GDV7YDXc.jpeg O nome pode ser apenas números, ou apenas letras ou um mix de números e letras.
Outra condição é que para existir uma imagem ac2345a.jpg tem de existir uma imagem ac2345.jpg(ou png ou jpeg), para existir uma imagem GDV7YDXc.jpeg tem de existir uma imagem GDV7YDX.jpg(ou png ou jpeg), uma imagem GDV7YDXa.jpg(ou png ou jpeg) e uma imagem GDV7YDXb.jpg(ou png ou jpeg).
No total podem existir 1000, 2000, 3000 fotos ou mais na pasta e para cada produto podem existir 1 ou 2 ou 3 ou 15, etc. fotos
Exemplo
FOTOS do produto ac2345
- ac2345.png
- ac2345a.jpg
- ac2345b.png
FOTOS do produto 106
- 106.jpeg
- 106a.jpg
- 106b.jpg
- 106c.jpg
- 106d.jpg
FOTOS do produto 023198AA
- 023198AA.png
- 023198AAa.png
- 023198AAb.jpg
FOTOS do produto GDV7YDX
- GDV7YDX.png
- GDV7YDXa.png
- GDV7YDXb.jpg
- GDV7YDXc.jpeg
- GDV7YDXd.jpg
- GDV7YDXe.png
Código
O código que apresento faz a procura de todos os ficheiros existentes numa pasta e escreve os nomes dos ficheiros numa folha mas escreve cada nome numa célula em separado e todos na coluna A.
Exemplo:
Celula A1 = ac2345.png
Celula A2 = ac2345a.jpg
Celula A3 = ac2345b.png
Célula A4 = 106.jpeg
Célula A5 = 106a.jpg
Célula A6 = 106b.jpg
Célula A7 = 106c.jpg
Célula A8 = 106d.jpg
Célula A9 = 023198AA.png
Célula A10 = 023198AAa.png
Célula A11 = 023198AAb.jpg
Célula A12 = GDV7YDX.png
Célula A13 = GDV7YDXa.png
Célula A14 = GDV7YDXb.jpg
Célula A15 = GDV7YDXc.jpeg
Célula A16 = GDV7YDXd.jpg
Célula A17 = GDV7YDXe.png
Problema
O que eu preciso é que na mesma célula fiquem os nomes referentes a cada produto separados por virgula.
Exemplo:
Celula A1 = ac2345.png, ac2345a.jpg, ac2345b.png
Celula A2 = 106.jpeg, 106a.jpg, 106b.jpg, 106c.jpg, 106d.jpg
Celula A3 = 023198AA.png, 023198AAa.png, 023198AAb.jpg
Celula A4 = GDV7YDX.png, GDV7YDXa.png, GDV7YDXb.jpg, GDV7YDXc.jpeg, GDV7YDXd.jpg, GDV7YDXe.png
Eis o código que tenho:
Sub GetJPGandPNGandJPEG()
Dim X As Long, LastDot As Long, Path As String, FileName As String, F(0 To 9) As String
Path = "C:\teste\"
FileName = Dir(Path & "*.*p*g")
Do While Len(FileName)
LastDot = InStrRev(FileName, ".")
If LCase(Mid(FileName, LastDot)) = ".jpg" Or LCase(Mid(FileName, LastDot)) = ".png" Or LCase(Mid(FileName, LastDot)) = ".jpeg" Then
If Left(FileName, 1) Like "#" Then
F(Left(FileName, 1)) = F(Left(FileName, 1)) & ", " & FileName
End If
End If
FileName = Dir
Loop
For X = 0 To 9
Cells(X + 1, "A").Value = Mid(F(X), 3)
Next
Range("A1:A10").SpecialCells(xlBlanks).Delete
End Sub
Será que alguem me pode ajudar? Agradeço desde já a todos.