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?