[VBA/EXCEL] Aprire tutti i link esterni in un foglio Excel

[ghisirds]

Ciao a tutti.
Ho installato excel 2003 e come browser uso firefox, che permette di aprire tante pagine insieme grazie alle comode linguette.
Ora, mi trovo con un foglio con un elenco di 30 link che devo spesso aprire, allora clicco su una cella e mi passa ad aprire la pagina in firefox, poi torno ad excel e clicco sulla cella più sotto e il focus mi torna a firefox che acciunge una linguetta ed apre anche questa pagina... e così via per tutte e 30 i link.
Solo che lo devo fare spesso.
Allora io mi chiedevo se non c'era un sistema per selezionare in excel tutte le celle e contemporaneamente mandare tutti i link al browser, tanto come potenza non c'è problema perchè ho già fatto varie prove e ne porta anche di più.
Grazie e tutti.
Marco

[Templare]

Siccome non hai inserito il linguaggio a cui ti riferisci ti allego un esempio in vb6 che puoi naturalmente adattare in altri linguaggi.
Crati un form con un button di nome cmdApriLink.

Option Explicit
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub cmdApriLink_Click()
On Error Resume Next
    Set xlApp = CreateObject("Excel.Application")
    If Err <> 0 Or IsEmpty(xlApp) Then
        MsgBox "Errore di Apertura Microsoft Excel", vbOKOnly + vbCritical, "Errore Apertura"
        Exit Sub
    End If
On Error GoTo 0

xlApp.Workbooks.Open FileName:=App.Path & "\Foglio.xls", ReadOnly:=True
Set xlBook = xlApp.Workbooks("Foglio.xls")
Set xlSheet = xlBook.Worksheets.Item("Foglio1")

Dim i As Integer
For i = 1 To 30
    Range("A" & i).Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Next

End Sub

Infine mi permetto un consiglio a tutti coloro che si interfacciano ad office.
Sapere quali sono le istruzioni per fare qualsiasi cosa è molto semplice con un trucco.
Registrate una macro, rffettuate le operazioni che vi interessano e andate a vedere nel modulo della macro quali sono le istruzioni....

Ciaoooo

[ghisirds]

intanto grazie.

il iinguaggio è il VBA per excel 2003.

ho provato la tua routine, ma mi da errore di variabile non definita in App.Path

"xlApp.Workbooks.Open Filename:=App.Path & "\Foglio.xls", ReadOnly:=True"

ce lo devo inserire io il percorso?

vorrei che lo riconoscesse in automatico lui a seconda delle celle ce seleziono...è possibile?

ciao e grazie
marco

[ghisirds]

ragazzi, il migliore è sempre

Norman
Microsoft Excel MVP

http://groups.google.com/group/micro...a2da1b04d05355

'=============>>
Public Sub Tester()
Dim rCell As Range

With Selection
For Each rCell In Selection.Cells
ActiveWorkbook.FollowHyperlink _
Address:=rCell.Value, _
NewWindow:=True
Next rCell
End With
End Sub
'<<=============

grazie a tutti
marco

[alka]

Originariamente inviato da ghisirds
il iinguaggio è il VBA per excel 2003.

Ricordati di indicarlo sempre anche nel titolo, come da Regolamento.

Questo l'ho corretto io.

[ghisirds]

ok, grazie.
ciao
marco