Access Hyperlinks exportieren

[theoxa]

Ich habe ein Programm, das mir aus einem gefilterten Listenfeld in Access die daten in Excel exportiert. Das funktioniert auch. In meiner datenbank hab ich eine Spalte mit links auf Bilder die auf eine festplatte im Netzwerk zugreifen. Der link wird hier leider auch nur als text exportiert.

Frage:

Wie kann ich es machen, dass mein Link als Link exportiert wird

Programm:

Dim xlApp As Object, xlWB As Object, xlSheet As Object
Dim ctl As Control, varItem As Variant
Dim I As Integer, zNum As Integer, sNum As Integer
Dim MerkPos As Integer


Set xlApp = CreateObject("Excel.Application") ' Excel starten
xlApp.Visible = True ' Excel anzeigen
Set xlWB = xlApp.Workbooks.Add ' Neue Mappe erzeugen
Set xlSheet = xlWB.sheets(1) ' 1. Tabelle der Mappe nutzen
Set ctl = Me![Liste16]
For zNum = 0 To ctl.ListCount - 1
ctl.Selected(zNum) = True
' alle Spalten durchlaufen (mit Schlüsselspalte)
For sNum = 0 To ctl.ColumnCount

xlSheet.Cells(zNum + 1, sNum + 1) = ctl.Column(sNum, zNum)


Next sNum

Next zNum