Office 2003: Hilfe Dateipfad vba Hyperlinks

[Jens T]

Lieber Nutzer,

ich habe viel mit folgendem Code gekämpft, der aus einem Dateipfad automatisch File namen ziehen soll und diese mit Hyperlinks in Excel einfügt. Folgende drei Fragen habe ich:

1) Ich habe das Script auf zwei verschiedenen Rechnern, die Excel Versionen sind unterschiedlich, auf einem Rechner ist eine ältere Excelversion installiert. Auf diesem Rechner funktioniert dieser Code Teil nicht: Sheet1.Cells(iRow, 1) = sFile, wieso?

 

2) Ich habe in B1, C1, D1 automatische foldernames, die wechseln. Wie kann an das Ende des Dateipfads sPath = "C:\eSupport\Manual\**hier**"  zB. den Inhalt der Zelle B1 einfügen?

 

3) Ich möchte mit einer Schleife erreichen, dass das Makro selbstständig immer eine Spalte weiter springt B1,C1 ... und so die in den Ordnern enthaltenen Dokumente mit Hyperlinks ausgibt. Dieser Mechansimus soll fortgesetzt werden, bis das Makro an eine erste Ziele kommt, die leer ist.

 

Ich habe viel gekämpft mit dem Script, bin aber zu keiner Lösung gelangt. Help needed =( Dank!!

Script:

Sub FolderHyper()
    Dim sPath As String
    Dim sFile As String
    Dim iRow As Integer
 
   
    sPath = "C:\eSupport\Manual\"  'Path to Files
 
    iRow = 0            'Define iRow auto
    sFile = Dir(sPath)
    While sFile <> ""
        iRow = iRow + 1
        Sheet1.Cells(iRow, 1) = sFile
        sBird = Left(sFile, Len(sFile) - 4)
        ActiveSheet.Hyperlinks.Add Anchor:=Sheet1.Cells(iRow, 1), _
          Address:=sPath & sFile, TextToDisplay:=sBird
        sFile = Dir     ' Start with next file name
    Wend
End Sub