|
In fondo all’artico troverete link per scaricare i file in vari formati |
|
Melody (è la suoneria del mio cellulare) |
|
Calo: |
|
|
Ciao Michele (non sono indovino ho visto il nome sul display del cellulare) |
|
Michele |
|
|
Ciao Calo, ti ricordi quel file di excel che tutte le mattine devo compilare e mettere in condivisione? |
|
Calo: |
|
|
Si, quello per l’avanzamento lavori!!? |
|
Michele |
|
|
Proprio quello, non ci sarebbe il sistema di farlo aprire automaticamente? |
|
Calo: |
|
|
Certo! Basta fare il collegamento e lo copi nella cartella
C:\Documents and Settings\miki\Menu Avvio\Programmi\Esecuzione automatica.
E, ad ogni avvio, l’avanzamento lavori si apre. |
|
Michele |
|
|
Grazie, ci vediamo ciao. |
|
Calo: |
|
|
Di niente. Ciao a presto. |
|
Il lunedì successivo
|
|
Melody (è sempre la suoneria del mio cellulare) |
|
Calo: |
|
|
Ciao Michele ( guardo sempre il display del cellulare) |
|
Michele |
|
|
Ciao Calo, questa mattina ho avviato il Computer e mi ha aperto il file della settimana scorsa. Ho rifatto la procedura che mi avevi spiegato e ora funziona bene, pero è una noia rifare tutto manualmente.
Non sarebbe possibile(..e qui di solito sento dei brividi freddi alla schiena) fare in modo che excel faccia tutto da solo? |
|
Calo: |
|
|
Dammi tempo qualche ora vedo cosa si può fare. |
|
La sera accompagno mia moglie alle prove di canto del coro e mentre loro (sono in 50) intonano xxxxx mi metto al lavoro. Scrivo un po’ di codice, consulto qualche libro, faccio alcune prove e voilà, l’avvio automatico funziona.
Dopo aver provato con diversi files, mi ritrovo con la cartella “Esecuzione automatica” piena di collegamenti.
Al processo manca qualche attività.
Scrivo un altro po’ di codice, consulto la guida, faccio qualche prova e voilà, anche questa funzionalità è ok.
Spengo il computer giusto in tempo per sentire Cristiano, ( è il grande maestro del Coro) che dice: “dovete concentrarvi, il prossimo è un appuntamento importante, andiamo a cantare nella città sede del parlamento Europeo, quindi serve una maggiore attenzione”, …e come sempre riesce ad ottenerla.
|
|
E-mail a Michele con il file allegato. |
|
Michele legge l’e-mail, scarica il file, lo prova e: |
|
Melody |
|
Calo: |
|
|
Ciao Michele hai visto l’e-mail ? |
|
Michele |
|
|
Sì, perfetto, ho utilizzato il tuo file con la combinazione di tasti "CTRL + l" si attiva.
E' proprio quello che volevo. Grazie!
Posso far vedere il file ai colleghi? |
|
Calo: |
|
|
Certo, ti saluto ciao e buona giornata. |
|
Michele |
|
|
Grazie ancora e a buon rendere. |
|
Dopo 10 Minuti |
|
Melody (è sempre la suoneria del mio cellulare) |
|
Calo: |
|
|
Ciao Lidia (sempre il display del cellulare) come va? |
|
Lidia |
|
|
Ciao, ho visto il programmino che hai creato per Michele.
Io uso solo word e mi serve la stessa cosa. Non sarebbe possibile …(ri-brividi freddi) fare la stessa cosa con word ?. |
|
Calo: |
|
|
Dammi un po’ di tempo e vedo cosa si può fare. |
|
Il tempo necessario è stato 3 minuti.
- Apro word ed excel
- Apro i rispettivi visual basic editor
- Creo una nuova macro con word (assegno come combinazione di tasti “CTRL+L”)
- Copio il codice creato con excel dentro la macro di Word.
- Con la funzione “sostituisci” cambio la parola “Workbook” con la parola “Document” (7 sostituzioni).
….e non ci crederete, il tutto funziona anche con word, potere dell’integrazione di Office!!!!
|
|
E-mail a Lidia con il file di word allegato. |
|
Lidia legge l’e-mail, scarica il files, lo prova e: |
|
Melody |
|
Calo: |
|
|
Ciao Lidia hai visto l’e-mail ? |
|
Lidia: |
|
|
Sì, perfetto, Ho utilizzato il tuo file come modello è proprio quello che volevo. Grazie!
Ma come hai fatto così presto? |
|
Calo: |
|
|
Semplice sono un G…….. ti saluto è buona giornata. |
|
Lidia : |
|
|
Grazie ancora, mi spieghi come funziona? |
|
Calo: |
|
|
Ti invio il codice commentato : |
Sub AvvioAutomatico()
'
' Programma creato il 06/11/2007 da Calogero Rifici
'
' Scelta rapida da tastiera: CTRL+l
'
Dim oShellLink As Object
Dim WshShell As Object
Dim OB_TovaDati As Object
Dim ST_Mess As String
Dim StScelta As String
Dim StGestioneRisorse As String
Dim StPercorso As String
Set OB_TovaDati = CreateObject("WScript.Network") ' tipo oggetto
' dopo aver dichiarato le variabili popoliamo ST_Mess con i seguenti dati
'Chr(13) = quest'istruzione serve ad inserire un ritorno a capo
'Space(10) = quest'istruzione serve solo per allineare più o meno il testo
'ActiveWorkbook.path = Cartella ove si trova il files
'ActiveWorkbook.Name = Nome del files
'OB_TovaDati.ComputerName = Nome_Computer
'OB_TovaDati.UserDomain = Nome_Dominio
'OB_TovaDati.UserName = Nome_Utente
'Le prossime tre righe servono per spiegare la funzionalità dei tre tasti presenti.
'ST_Mess = ST_Mess & "Si per creare il collegamento " & Chr(13)
'ST_Mess = ST_Mess & "NO per annullare l'operazione " & Chr(13)
'ST_Mess = ST_Mess & "Annulla per aprire una finestra e gestire i vari collegamenti " & Chr(13)
ST_Mess = "Percorso" & Space(18) & ActiveWorkbook.path & "\" & ActiveWorkbook.Name & Chr(13)
ST_Mess = ST_Mess & "Nome_Computer " & Space(5) & OB_TovaDati.ComputerName & Chr(13)
ST_Mess = ST_Mess & "Nome_Dominio" & Space(9) & OB_TovaDati.UserDomain & Chr(13)
ST_Mess = ST_Mess & "Nome_Utente" & Space(10) & OB_TovaDati.UserName & Chr(13) & Chr(13)
ST_Mess = ST_Mess & "Si per creare il collegamento " & Chr(13)
ST_Mess = ST_Mess & "NO per annullare l'operazione " & Chr(13)
ST_Mess = ST_Mess & "Annulla per aprire una finestra e gestire i vari collegamenti " & Chr(13)
StScelta = MsgBox(ST_Mess, vbYesNoCancel)
'faccio partire MsgBox che contiene il testo contenuto in ST_Mess e i tre pulsanti
If StScelta = vbYes Then 'se pigio si
Set WshShell = CreateObject("Wscript.Shell")
Set oShellLink = WshShell.CreateShortcut("C:\Documents and Settings\" & _
OB_TovaDati.UserName & _
"\Menu Avvio\Programmi\Esecuzione automatica\" & ActiveWorkbook.Name & ".lnk")
oShellLink.TargetPath = ActiveWorkbook.path & "\" & ActiveWorkbook.Name
oShellLink.Arguments = ActiveWorkbook.path & "\" & ActiveWorkbook.Name
oShellLink.Save
Set oShellLink = Nothing ' Rilascio la variabile per liberare memoria.
End If
If StScelta = vbNo Then MsgBox "Annullo Operazione" 'se pigio No avviso il cliente e chiudo la procedura
If StScelta = vbCancel Then 'se pigio annulla apro eplora risorse
StPercorso = "C:\Documents and Settings\" & OB_TovaDati.UserName & "\Menu Avvio\Programmi\Esecuzione automatica"
Call OpenTextGestioneRisorse(StPercorso)
End If
End Sub
'------------------------------------------------------------------------------------
Function OpenTextGestioneRisorse(StPercorso As String)
Dim AppVal As String
Dim NomeStringa As String
NomeStringa = "explorer.exe " & StPercorso
AppVal = Shell(NomeStringa, 1)
End Function
'------------------------------------------------------------------------------------