Ir para conteúdo
Fórum Script Brasil

Buruca

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Buruca

Buruca's Achievements

0

Reputação

  1. Bom dia Pessoal, Primeiramente, quero lhes agradecer por me aceitarem no fórum! Sou de Floripa, e estou tentando aprender um pouco sobre programação. Tenho o seguinte código: Sub test1() Dim c As Object, x, i As Long, n As Long Set c = CreateObject("Scripting.FileSystemObject") oldpath = Range(["D2"]): newpath = Range(["D3"]) x = Range([c2], [c2].End(xlDown)) For i = 1 To UBound(x) c.copyfile oldpath & x(i, 1), newpath & x(i, 1) n = n + 1 Next: MsgBox n & " arquivos copiados com sucesso", vbInformation: End Sub Consigo com isto, utilizando o Excel, copiar várias imagens de uma determinada pasta para outra pasta. Porém, na planilha do Excel, tenho duas colunas: Uma com o nome das imagens (001.jpg, 002.jpg, 003.jpg, etc) e outra com o tamanho das imagens (1800x1200 ou 2700x1800 ou 3600x2400).Gostaria que o computador procurasse estas imagens em uma pasta e suas subpastas e as copiasse para uma das pastas (1800x1200 ou 2700x1800 ou 3600x2400), conforme o tamanho das imagens. Será que alguém poderia me ajudar a resolver este problema? Obrigado pela atenção
×
×
  • Criar Novo...