Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Jens T am August 18, 2016, 20:53:57 Nachmittag
-
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