Condividi:        

Richiesta aiuto macro inserisci oggetto

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Richiesta aiuto macro inserisci oggetto

Postdi albemazz » 16/10/14 18:33

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.
albemazz
Newbie
 
Post: 3
Iscritto il: 16/10/14 18:26

Sponsor
 

Re: Richiesta aiuto macro inserisci oggetto

Postdi Zer0Kelvin » 16/10/14 20:13

Ciao.
Prima un suggerimento: quando si cita un errore è bene specificare l'errore (codice e descrizione) e l'istruzione che provoca l'errore.
La macro a me funziona perfettamente; ho provato ad inserire file di testo, pdf, word, html. Ho provato sia inserendoli come oggetto (Link= false) che come collegamento (Link=True) e funziona bene in entrambi i casi. :?: :?:
Eventualmente allega il file con la macro difettosa...
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 388
Iscritto il: 08/04/12 11:23

Re: Richiesta aiuto macro inserisci oggetto

Postdi albemazz » 17/10/14 10:48

Ciao Zer0Kelvin,

grazie per la tua risposta. Sono risucito a risolvere anch'io. Era un mio errore dato che inserivo il codice nel foglio errato. Sto lavorando su diversi fogli.

Posso chiederti se per caso sai come fare in modo che il file venga inserito in una cella specifica?
Ho bisogno infatti di replicare il bottone in diverse celle e vorrei che per ogni bottone il file inserito si presentasse vicino a quello specifico bottone.
Al momento, se replico il bottone, tutti i file vengono inseriti nella stessa cella del foglio.

Grazie
albemazz
Newbie
 
Post: 3
Iscritto il: 16/10/14 18:26

Re: Richiesta aiuto macro inserisci oggetto

Postdi Zer0Kelvin » 17/10/14 11:23

Penso che sia sufficiente selezionare la cella interessata prima di eseguire OLEObjects.Add.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 388
Iscritto il: 08/04/12 11:23

Re: Richiesta aiuto macro inserisci oggetto

Postdi albemazz » 17/10/14 12:21

Hai ragione! grandissimo! grazie davvero per il supporto!
albemazz
Newbie
 
Post: 3
Iscritto il: 16/10/14 18:26


Torna a Applicazioni Office Windows


Topic correlati a "Richiesta aiuto macro inserisci oggetto":


Chi c’è in linea

Visitano il forum: Nessuno e 103 ospiti