Ciao ragazzi,
ho cercato ovunque ma non riesco a risolvere questo problema con una macro.
Sto creando un modulo per inserire degli ordini e per rendere tutto più ordinato abbiamo bisogno che i file (anche di formati particolari) possano essere inseriti in un foglio excel.
Dato che mi rivolgo ad utenti non proficient, ho bisogno che possano semplicemente cliccare su un pulsante e aprire la loro cartella documenti per l'upload anzichè seguire la normale procedura (inserisci, oggetto, crea da file, etc.).
Non mi è possibile registrare la macro perchè dovrei seguire tutto il path e inserire un file per stoppare la registrazione, facendo si che ad ogni click quel file venga inserito in seguito.
Per ora Ho trovato una macro utile per fare quello che mi serve, ma mi da errore quando inserisco un file, qualunque esso sia.
Eccola:
[i]Sub testingtest()
'
' Keyboard Shortcut: Ctrl+o
'
Application.CutCopyMode = False
ActiveSheet.OLEObjects.Add( _
Filename:=SelectFile(), _
Link:=False, _
DisplayAsIcon:=False).Select
Application.CutCopyMode = False
End Sub
Function SelectFile() As String
'Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
'Set function result to selected filename
If .SelectedItems.Count <> 0 Then
SelectFile = .SelectedItems(1)
End If
End With
End Function[/i]
Se avete correzioni, proponetele. Se invece ritenete occorra un altra stringa, aiutatemi.
Grazie sin da ora per il vostro contributo.