0

Estou a tentar criar uma função para fazer upload de vários ficheiros ao mesmo tempo mas mesmo só com um obtenho um erro. O que poderei estar a programar mal?

'FILE DIALOG OPENS UPLOAD PANEL
Private Sub Comando715_Click()
Call Selectfile
End Sub

A função criada é a seguinte:

Public Function Selectfile() As String
Dim Fd As FileDialog
Set Fd = Application.FileDialog(msoFileDialogOpen)
With Fd
.AllowMultiSelect = False
.Title = "Por favor selecione as fotos desta peça a anexar"
If .Show = True Then
    Selectfile = .SelectedItems(1)
    Me.Anexo412 = Selectfile
Else
    Exit Function
End If
Set Fd = Nothing
End With
End Function

O erro que me dá no VBA está na seguinte linha

Dim Fd As FileDialog

Alguém me poderá ajudar a completar o código?

1 Resposta 1

0

O obejeto FileDialog é fornecido pela biblioteca Microsoft Office [Nº da versão] Object Library. Provavelmente a referência não foi definida ou está corrompida.

Para ativar:

Editor VBA > Ferramentas > Referências

E marque a biblioteca.

12
  • Resolveu esse problemas contudo aparece um outro erro que passo a colocar cá. Me.Anexo412 = Selectfile O erro especificado é: Erro em tempo de execuçã '438': O objeto não aceita esta propriedade ou método Commented 3/07/2015 às 14:31
  • O ficheiro que estou a tentar carregar no Anexo412 é um ficheiro .jpeg, como posso restringir o tipo de ficheiros que posso seleccionar, para não seleccione ficheiros de tipos que sejam indevidos? Commented 3/07/2015 às 14:36
  • Você precisa adicionar o anexo selecionado a alguma propriedade do obejto Anexo412. Lista completa de propriedades aqui. Provavelmente é a FilelName. Ficaria assim: Me.Anexo412.FileName = Selectfile Commented 3/07/2015 às 15:17
  • Obrigado já esta exportar para o campo definido. O codigo actual é: Commented 3/07/2015 às 15:29
  • @ Lúcio Rubens 'FILE DIALOG OPENS UPLOAD PANEL Private Sub Comando715_Click() Call Selectfile End Sub 'FUNÇÃO CAIXA DE SELEÇÃO Public Function Selectfile() As String Dim Fd As FileDialog Dim Filtro As FileDialogFilters Set Fd = Application.FileDialog(msoFileDialogOpen) With Fd 'FILTRO DE IMAGENS Set Filtro = .Filters With Filtro .Clear .Add "Imagens", ".jpeg;.jpg" End With 'NÃO PERMITIR MULTI-SELEÇÃO .AllowMultiSelect = False 'DEFINE O NOME DA CAIXA DE SELEÇÃO .Title = " Por favor introduza as fotos da peça" If .Show = True Then Commented 3/07/2015 às 15:32

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .