Este fórum está sendo desativado

[LuisRosales]

Olá pessoal, estou rodando a minha ferrari...ops quer dizer minha macro rs.

Agora ela esta dando umas derrapadas na obteção da imagens. Ora importa a imagem, hora não importa.

O código que estou utlizando é:

Código: Selecionar todos

 strPicPath = "C:\Users\user\Pictures\Sua_Imagem.jpg"

Estudando o caso, percebi que algumas imagens da pasta que extraio possuem algumas variações. Algumas vem com nome e outras nome mais complemento.

Exemplo:
logomarca.jpg
logomarcaempresa.jpg

Todas possuem a descrição logomarca, mas algumas vem com este complemento. Estou pensando em duas alternativas:
1) usar um código que atenda esta variação
2) ou um código para renomear para um nome padrão.

Tentei utilizar sem sucesso o código:

Código: Selecionar todos

 strPicPath = "C:\Users\user\Pictures\logomarca*.jpg"

.

Alguem consegue me ajudar?

[rit]

Talvez assim funcione.

Código: Selecionar todos

"C:\Users\user\Pictures\"&"*" & ".jpg"

[LuisRosales]

Agradeço a pronta colaboração, mas infelizmente não deu certo

[babdallas]

Está importando imagens de onde? Web de uma pasta? Mostra o código todo, por favor.

[LuisRosales]

Código: Selecionar todos

'ACESSA AO SITE E AGUARDA CARREGAR
    IE.navigate "https://gru.inpi.gov.br/pePI/servlet/MarcasServletController?Action=detail&CodPedido=" & OutputSheet.Cells(ln, col)
    IE.Visible = True
    Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy
    Loop
    Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)
    
'DELETA DOCUMENTOS DA PASTA E BAIXA A HTML COMPLETA DA PÁGINA
    Kill "C:\Users\luisc\Desktop\INPI\*.*"
    Kill "C:\Users\luisc\Desktop\INPI\INPI_arquivos\*.*"
    IE.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, "C:\Users\luisc\Desktop\INPI\inpi.html", ""
     
'CARREGA A IMAGEM E TRANSFERE PARA PLANILHA
    OutputSheet.Shapes.AddPicture _
    "C:\Users\luisc\Desktop\INPI\INPI_arquivos\LogoMarca", _
    False, True, rngCell.Left, rngCell.Top, rngCell.Height, 70
    Set rngCell = rngCell.Offset(1, 0)

[LuisRosales]

Importo a html completa, posteriormente acesso a pasta baixada e copio a imagem e transfiro para a planilha.

As imagens geralmente vem como o mesmo nome, mas ocorre casos que vem com complemento de nome.

Acredito que a melhor forma seria uma macro para acesssar esta pasta e ronomer o arquivo que começa com logomarcaxxxx para logomarca. Aii segue o procedimento padrão.

[Basole]

Tente desta forma

Código: Selecionar todos

Dim strPicName
   strPicName = VBA.Dir("C:\Users\luisc\Desktop\INPI\INPI_arquivos\LogoMarca*.jpg")

  If strPicName <> "" Then
  
     OutputSheet.Shapes.AddPicture _
     "C:\Users\luisc\Desktop\INPI\INPI_arquivos\" & strPicName, _
       False, True, rngCell.Left, rngCell.Top, rngCell.Height, 70
  End If

[LuisRosales]

Basole ,

Simplemente inenarrável, funcional perfeitamente! Minha ferrari agora esta voando rs.

Não só hoje, mas sempre o mundo precisara de pesoas que nem você. Com coração excelente, ao ponto de doar parte de sua vida que é de valor inestimável para ajudar o próximo.

Minha oração é que Deus p possa multiplicar as suas bençãos e de toda sua familia.

Muito obrigado mesmo!