Vídeo recomendado
https://youtu.be/diWPPPhW-9E

importar arquivo de imagens e listar na planilha (Resolvido)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
valzito
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Sex Abr 12, 2019 9:40 am

importar arquivo de imagens e listar na planilha (Resolvido)

Mensagem por valzito »

Bom dia.

Tenho um sisteminha que carrega imagens da planilha com base no Nome e endereço completo da imagem para um userform. Até aqui tudo bem, funcionando tudo ok.
O problema é que tenho uma pasta que tem algumas centenas de imagens que preciso inserir no sistema. Como são muitas, Preciso criar uma macro que me permita baixar todas, em vez de uma a uma.

Esse código que Encontrei na Internet faz parte do que preciso, busca o Arquivo e baixa, só que tem dois problemas: Não pega o endereço completo, apenas o nome da imagem, e o outro é que vc precisa clicar na célula onde vai iniciar o primeiro nome. No meu caso seria: NOME DA IMAGEM Iniciar na célula (B2) e ENDEREÇO COMPLETO DA IMAGEM na (C3).

Gostaria de saber se é possível adapta esse código para realizar essa façanha.

Código: Selecionar todos

Option Explicit
Sub GetFileNames()
Dim xRow As Long
Dim xDirect, xFname, InitialFoldr

InitialFoldr = "C:\"
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = " Selecione o Aquivo "
.InitialFileName = InitialFoldr
.Show
   
If .SelectedItems.Count <> 0 Then
xDirect = .SelectedItems(1) & "\"
xFname = Dir(xDirect, 7)
Do While xFname <> ""
ActiveCell.Offset(xRow) = xFname
xRow = xRow + 1
xFname = Dir
Loop
End If
End With
End Sub


Desde já agradeço!
Editado pela última vez por valzito em Qui Jan 23, 2020 12:57 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: importar arquivo de imagens e listar na planilha

Mensagem por srobles »

valzito,

Veja se a rotina abaixo atende sua necessidade.

Código: Selecionar todos

Sub retornarArquivos()
    Dim novaLinha As Long
    Dim caixaArquivos As Office.FileDialog
    
    Set caixaArquivos = Application.FileDialog(msoFileDialogFilePicker)
    
        With caixaArquivos
            .AllowMultiSelect = True
            .Filters.Clear
            .Filters.Add "Arquivos de imagem", "*.bmp,*.jpg"
            .Title = "Selecione os arquivos"
            .InitialFileName = ThisWorkbook.Path
            .Show
        End With
            
        If caixaArquivos.SelectedItems.Count >= 1 Then
            For vItem = 1 To caixaArquivos.SelectedItems.Count
                novaLinha = ThisWorkbook.Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row + 1
                
                With ThisWorkbook.Sheets(1)
                    .Cells(novaLinha, 2) = caixaArquivos.InitialFileName
                    .Cells(novaLinha, 3) = Mid(caixaArquivos.SelectedItems(vItem), Len(caixaArquivos.InitialFileName) + 1, Len(caixaArquivos.SelectedItems(vItem)))
                    .Cells.EntireColumn.AutoFit
                End With
                    
            Next
        End If
End Sub


valzito
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Sex Abr 12, 2019 9:40 am

Re: importar arquivo de imagens e listar na planilha

Mensagem por valzito »

Saulo, Obrigado por Responder.

Na verdade consegui em outro Forum, Só esqueci de voltar aqui e fechar o Tópico. Mas, de qualquer forma fica aqui meu agradecimento pela sua colaboração.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder