Hyperlink im Batchbetrieb

10/09/2008 - 20:06 von yado70 | Report spam
Hallo,

ich habe eine CD mit über 4000 Midifiles,und fast 4000
Textdateien,zusàtzlich eine Excel Datei mit allen Titeln.

Ist es möglich die Titel im Batchbetrieb mittels Hyperlink in der Excel
Liste zu verlinken,gleiches habe ich mit denTextdateien vor.

Einzeln geht das, wàre aber zu aufwendig für je 4000 Dateien.
 

Lesen sie die antworten

#1 Claus Busch
11/09/2008 - 12:03 | Warnen spam
Hallo Yado,

hier sind Realnamen gern gesehen.

Am Wed, 10 Sep 2008 11:06:04 -0700 schrieb yado70:

ich habe eine CD mit über 4000 Midifiles,und fast 4000
Textdateien,zusàtzlich eine Excel Datei mit allen Titeln.

Ist es möglich die Titel im Batchbetrieb mittels Hyperlink in der Excel
Liste zu verlinken,gleiches habe ich mit denTextdateien vor.



wenn die Titel in der Excelmappe in der Schreibweise den Titeln auf der
CD entsprechen, geht es mit folgendem Makro. Falls nicht, dann lies
deine CD neu in Excel ein. Schau dazu mal in den Thread
"Dateiinformationen auslesen" vom 30.08.08.
Falls deine Titel in Excel keine Dateiendung haben, müsstest du diesen
noch der Hyperlinkadresse anfügen:
Sub Inhaltsverzeichnis()

Dim i As Long
Dim Pfad As String

'Hier deinen Laufwerksbuchstaben anpassen
Pfad = "J:\"
With ActiveSheet
'Hier die Startzeile anpassen
For i = 3 To .UsedRange.Rows.Count
'Hier die Spalte anpassen
'Wenn bei deinen Titeln keine Dateiendung
'angehàngt ist, musst du die Zeile mit der Adresse
'gegen folgende Zeile austauschen:
'Address:=Pfad & .Cells(i, 2).Value & ".mid"
.Cells(i, 2).Hyperlinks.Add Anchor:=.Cells(i, 2), _
Address:=Pfad & .Cells(i, 2).Value, _
TextToDisplay:=.Cells(i, 2).Value
Next
End With

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen