[RISOLTO] Macro per aprire URL (qualsiasi)

[pinko]

Eccomi per un'altro quesito.
Ho trovato questa macro che fa al caso mio: prende un URL da una casella di una tabella e lo apre. Il problema è che apre qualsiasi URL, anche quindi un pdf una immag., come un file Writer.
Vi chiedo è possibile modificarla affinche apra il file URL con il giusto programma (così come fa esplora risosrse, per intenderci).
Grazie

Codice: Seleziona tutto

Sub sAbreDoc(Event As Object)
   Dim oFormD As Object
   Dim sURL As String
   On Error Goto Err_sAbreDoc
   oFormD=Event.Source.Model.Parent
   If oFormD.IsModified Then
      If oFormD.IsNew Then oFormD.InsertRow Else oFormD.UpdateRow
   End If
   sURL=ConvertToURL(oFormD.Columns.GetByName("URL").GetString)
   If Dir(sURL)="" Then
      MsgBox "No se encuentra el archivo: " & sURL
      Exit Sub
   End If

[vladko]

Codice: Seleziona tutto

Sub openFile(sUrl)
Select Case Left(Right(sUrl,3),2)
	Case "pd", "pn", "jp", "gi", "ti","JP"
		If GetGUIType=1 Then
			Shell ("C:\Program Files\Mozilla Firefox\firefox.exe", 1, sUrl)
		Else
			Shell ("firefox", 1, sUrl)
		Endif
	Case "od"
		If GetGUIType=1 Then
			Shell ("C:\Program Files\OpenOffice.org 3\program\soffice.exe", 1, sUrl)
		Else
			Shell ("soffice", 1, sUrl)
		Endif
	Case Else
	print "File non riconosciuto"
End Select
End Sub
'***Select file****************************************************
Function selectFile
	oFilePicker = createUnoService ("com.sun.star.ui.dialogs.FilePicker")
	'oFilePicker.appendFilter("OpenDocumentText","*.odt")
	If oFilePicker.execute() Then
		selectFile = oFilePicker.Files(0)
	Else
		print "Select the file"
	Endif
End Function

questo è quanto avevo nei miei appunti.
spero qualcuno fa meglio
fai sapere grazie

[pinko]

Qui mi dice "Valore per la propietà errato"

Codice: Seleziona tutto

Select Case Left(Right(sUrl,3),2)

[Mizio1961]

Ciao
Devi operare per macro e sub macro passando dalla tua sAbreDoc() il parametro sURL a quella di vladko
Saluti

[pinko]

Mizio,
per cortesia la componi tu, perchè io (a parte che non ci ho capito nulla) ma non ci sono riuscito. Mi escono fuori un casino di errori.
Oppure spiegati meglio...

Comunque ti ringrazio per la risposta.

[Mizio1961]

Il discorso è il seguente:

Codice: Seleziona tutto

Sub sAbreDoc(Event As Object)
   Dim oFormD As Object
   Dim sURL As String
   On Error Goto Err_sAbreDoc
   oFormD=Event.Source.Model.Parent
   If oFormD.IsModified Then
      If oFormD.IsNew Then oFormD.InsertRow Else oFormD.UpdateRow
   End If
   sURL=ConvertToURL(oFormD.Columns.GetByName("URL").GetString)
   If Dir(sURL)="" Then
      MsgBox "No se encuentra el archivo: " & sURL
      Exit Sub
   else
      openFile(sURL)
   End If
end sub

Sub openFile(sUrl)
   Select Case Left(Right(sUrl,3),2)
      Case "pd", "pn", "jp", "gi", "ti","JP"
         If GetGUIType=1 Then
            Shell ("C:\Program Files\Mozilla Firefox\firefox.exe", 1, sUrl)
         Else
            Shell ("firefox", 1, sUrl)
         Endif
      Case "od"
         If GetGUIType=1 Then
            Shell ("C:\Program Files\OpenOffice.org 3\program\soffice.exe", 1, sUrl)
         Else
            Shell ("soffice", 1, sUrl)
         Endif
      Case Else
      print "File non riconosciuto"
   End Select
End Sub
    '***Select file****************************************************
Function selectFile
   oFilePicker = createUnoService ("com.sun.star.ui.dialogs.FilePicker")
   'oFilePicker.appendFilter("OpenDocumentText","*.odt")
   If oFilePicker.execute() Then
      selectFile = oFilePicker.Files(0)
   Else
      print "Select the file"
   Endif
End Function

Questo codice funziona se viene chiamato da un formulario di Base al cui interno ci sia un campo "URL" che contiene il nome del file da aprire comprensivo del percorso su HD C: dove trovarlo.
Se hai altre difficoltà allora allega il tuo file dove vorresti inserirlo perchè altrimenti rischiamo solo di perdere tempo
Saluti by Mizio

[pinko]

OK, allego il file. E ti ringrazio per la disponibilità
Questo è il db che vorrei modificare affinchè la macro apra tutti i tipi di file.

Ho modificato la macro, ma genera errore.

Viceversa se togli l'aggiunta tutto fila liscio ma solo se il file è un file writer altrimenti apre il file (pdf per esempio) ma con writer ed è inutile.

Ciao

[pinko]

Forse così ti rendi meglio conto.
Ho aggiunto un altro pulsante che apre la macro originale e come puoi notare funziona.

[Mizio1961]

Ciao
In allegato trovi il tuo file con la macro che fuziona. Due punti da tenere presente:
- Il primo riguarda alle cartelle che contengono i programmi. Nella macro OpenFile() trovi quelli che funzionano sul mio PC, quindi li devi modificare coi tuoi percorsi di riferimento.
- Il secondo riguarda il modo di scrivere il percorso di ricerca del file da aprire. Per questo il contenuto della variabile sURL non sempre può aver bisogno di essere trattato con la funzione convertToURL(), come vedi nel caso il file sia di tipo PDF.
Saluti
PS: Ricordati di cambiare il titolo iniziale di questo post aggiungendogli la scrita [Risolto] all'inizio

[pinko]

Ciao, infinite grazie per l'aiuto.

Ho fatto una mia piccola modifica.
A me capitava che il primo pulsante caricasse l'URL secondo file:///c:/........etc
Però il secondo pulsante anche se apriva acrobat, acrobat mi segnalava che il persorso era invalido.
Allora ho pensato di far aprire l'URL da explore e.... funziona!