Excel vba - webbrowser

Question

Ciao a tutti

ho trovato nel forum qualcosa di simile al mio problema ma riferito al vba word e non al vba excel come a me occorre.

In poche parole sto cercando di avere sul controllo WebBrowser1 della mia uForm, l'anteprima di un documento word.

Il codice prevede:

....

   sFileName = "C:\MiaCartella\MioDocumento.doc"

   WebBrowser1.Navigate sFileName

.....

Però al posto di vedere il .doc nel controllo, excel mi apre il documento con word.

Nel web ho trovato questo supporto: https://support.microsoft.com/it-it/kb/982995

Ho effettuato il download del fix, ma l'esecuzione si interrompe segnalando:

C'è qualche soluzione?

grazie

domenico

Edit: RISOLTO

sorry, sempre da quel link msc ho utilizzato la correzione manuale (copiando le istruzioni in un txt rinominato in .reg) e dopo l'esecuzione il tutto ha funzionato.....

Grazie e scusate

domenico

Answer 1

Ciao

chiedo sempre sull'argomento webbrowser.

Ho fatto una piccola procedura (vedi immagine) che mi permette tramite un TreeView e due controlli posti in una UForm, di vedere immagini (controllo: Image1) e anteprime di alcuni file (controllo: WebBrowser1).

ho i seguenti problemi che vorrei superare quando clicco sul "nodo" di un file relativo ad un documento Word o Excel:

1) diversamente da un txt oppure pdf che mi vengono mostrati immediatamente nel webbrowser1, quando clicco su un file word/excel si apre prima una finestra che mi chiede se voglio o no aprire il file:

Vorrei sapere se è possibile eliminare questo messaggio.

2) Nella prima immagine, la freccia indica 2 file (~xxxxx) rimasti aperti prima di quello visualizzato.

Come posso chiuderli prima di cliccare su un altro nodo?

Questa la parte di codice:

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

Me.Image1.Picture = LoadPicture("")

WebBrowser1.Visible = False

Image1.Visible = False

If Node.Image = 2 Then

    FillTreeDir (Node.Key) 'expand this level of the directory

ElseIf UCase(Right(Node.Key, 3)) = "JPG" Or UCase(Right(Node.Key, 3)) = "BMP" Or _

        UCase(Right(Node.Key, 3)) = "GIF" Then

    Me.Image1.Visible = True

    Image1.Picture = LoadPicture(Node.Key)

ElseIf UCase(Right(Node.Key, 3)) = "XLS" Or UCase(Right(Node.Key, 4)) = "XLSX" Or _

        UCase(Right(Node.Key, 3)) = "DOC" Or UCase(Right(Node.Key, 4)) = "DOCX" Or _

        UCase(Right(Node.Key, 3)) = "PDF" Or UCase(Right(Node.Key, 3)) = "TXT" Then

    On Error Resume Next

    Me.WebBrowser1.Visible = True

    On Error GoTo 0

    WebBrowser1.Navigate Node.Key

End If

End Sub

Grazie per l'aiuto che vorrete darmi.

Domenico