Newsgroup: it.comp.hardware
Titolo: [super OT] scusate, ma chiedo se...

...Esiste un modo per far partire una data applicazione utilizzando le macro 
che si posso "registrare" su Excel, o al limite anche programmandone una ex 
novo? Nela fattispecie dovrei su un click di un pulsante custom far partire 
una riproduzione di un dato file multimediale tramite windows media player.
Grazie e scusate 

Su "it.comp.hardware",  ==Rimininfo=> ha scritto: 

Per aprirlo col lettore predefinito del sistema metti questo in un
modulo:
http://www.suodenjoki.dk/us/productions/articles/vbashellexecute.htm
Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3
Public Declare Function ShellExecute Lib "Shell32.dll" Alias
"ShellExecuteA" _
  (ByVal hwnd As Long, _
   ByVal lpOperation As String, _
   ByVal lpFile As String, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As Long
Sub RunYourProgram()
  Dim RetVal As Long
  On Error Resume Next
  RetVal = ShellExecute(0, "open", "C:\Film.avi", "", _
                        "C:\", SW_SHOWMAXIMIZED)
End Sub
-- 
Freccia@Bulldozer63 :D

 ...Esiste un modo per far partire una data applicazione utilizzando le macro 

Per aprirlo col lettore predefinito del sistema metti questo in un
modulo:
http://www.suodenjoki.dk/us/productions/articles/vbashellexecute.htm
Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3
Public Declare Function ShellExecute Lib "Shell32.dll" Alias
"ShellExecuteA" _
  (ByVal hwnd As Long, _
   ByVal lpOperation As String, _
   ByVal lpFile As String, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As Long
Sub RunYourProgram()
  Dim RetVal As Long
  On Error Resume Next
  RetVal = ShellExecute(0, "open", "C:\Film.avi", "", _
                        "C:\", SW_SHOWMAXIMIZED)
End Sub
Poi all'evento Click del bottone metti
  Call RunYourProgram (il call puoi ometterlo)
Se devi far partire SEMPRE wmp dovrebbe bastarti il comando Shell,
passando il path completo dell'eseguible <spazio> il path completo del
file da aprire.
-- 
Freccia@Bulldozer63 :D

 modulo:
Mhhh....
Troppo complicato per me... Speravo tanto fosse possibile, all'interno della 
macro, inserire un comando tipo:
open [percorso del file] e amen, ma evidentemente sto chiedendo troppo, sia 
al linguaggio di programmazione che soprattutto a me stesso ;) 

Dopo dura riflessione, Rimininfo ha scritto :

Prova sul ng specifico: microsoft.public.it.office.excel...cmq dai uno 
sguardo al comando "Shell" ed all'esempio al link:
http://tinyurl.com/6z53dr
-- 
Ciao a tutti
Pippo

 ha scritto nel messaggio 
news:mn.68237d856...@nospaminvalid.it...

Link utilissimo, che mi ha fatto fare un bel passo in avanti, e che perň mi 
ha fatto capire una cosa: ora riesco a lanciare il programma che piů mi 
aggrada, ma il problema č l'apertura del file da riprodurre, in quanto 
(deduco) tale procedura č da farsi da "dentro" il programma selezionato, e 
aggiungendo al posto dell'indirizzo internet il percorso del file la macro 
ritorna un errore. Questo anche usando altri player. Inoltre se provo a 
lanciare direttamente il file (senza la precedente istruzione del programma 
da aprire non succede assolutamente niente.
Proverň anche sul NG indicato, grazie :) 


Basta che fai il copia incolla come ti ho detto:
http://img522.imageshack.us/img522/1646/shellexecutepq6.jpg
Se il file è variabile passi il nome alla routine, ma prima vedi se
riesci così, poi ti rispiego meglio

 da aprire non succede assolutamente niente.
Sicuro non funzioni? Hai lasciato lo spazio all'inizio della stringa del
nome del file? Puoi anche scrivere tutto in una sola stringa...
A me funziona:
[...]
s = "C:\Programmi\VideoLAN\VLC\VLC.exe"
Shell (s & " C:\WINDOWS\Media\recycle.wav")
            ^
  qui ci vuole uno spazio
[...]
Credo che quasi tutti i player multimediali, lanciati da console, accettino
come argomento il nome/path del file da riprodurre.
-- 
Arch

 come argomento il nome/path del file da riprodurre.
Ora funziona!!!!! Il problema non era nella stringa che inserivo,, ma nel 
fatto che i file che mi interessavano erano in una cartella con un nome non 
riconoscibile da Dos... Certe cose se le si facessero in orari umani anzichè 
alle tre del mattino sarebbe meglio ;)
Grazie a tutti per i preziosi cosigli :))) 

 alle tre del mattino sarebbe meglio ;)
In effetti quasi sospettavo stessi lavorando su un pc con l'orologio
sballato... :)
-- 
Arch