|
Moin z'sammen,
ich benötige per Makro eine klare Trennung um per Hyperlink ein Verzeichnis zu öffnen und über einen weiteren Link die darin befindliche Datei
Folgendes Makro habe ich mir zusammengebastelt ...
For Each aItem In pCurrentDir.Files
If aItem.name Like strName Then
pfad(n) = aItem.Path
Datei(n) = aItem.name
index(n) = Right(Datei(n), 3)
Datum(n) = Left(aItem.DateCreated, 10)
Uhrzeit(n) = Right(aItem.DateCreated, 8)
LDatum(n) = Left(aItem.DateLastModified, 10)
ADatum(n) = Left(aItem.DateLastAccessed, 10)
LUhrzeit(n) = Right(aItem.DateLastModified, 8)
AUhrzeit(n) = Right(aItem.DateLastAccessed, 8)
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 2).Value = pfad(n)
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 3).Value = Datei(n)
'Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 3).Hyperlinks.Add
With Workbooks("katalog.xls").Worksheets(Blattname)
.Hyperlinks.Add Anchor:=Cells(3 + n, 2), Address:=pfad(n)
.Hyperlinks.Add Anchor:=Cells(3 + n, 3), Address:=Datei(n)
End With
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 4).Value = index(n)
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 5).Value = Datum(n)
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 6).Value = LDatum(n)
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 7).Value = ADatum(n)
For Each aItem In pCurrentDir.Files
If aItem.name Like strName Then
pfad(n) = aItem.Path
Datei(n) = aItem.name
index(n) = Right(Datei(n), 3)
Datum(n) = Left(aItem.DateCreated, 10)
Uhrzeit(n) = Right(aItem.DateCreated, 8)
LDatum(n) = Left(aItem.DateLastModified, 10)
ADatum(n) = Left(aItem.DateLastAccessed, 10)
LUhrzeit(n) = Right(aItem.DateLastModified, 8)
AUhrzeit(n) = Right(aItem.DateLastAccessed, 8)
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 2).Value = pfad(n)
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 3).Value = Datei(n)
'Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 3).Hyperlinks.Add
With Workbooks("katalog.xls").Worksheets(Blattname)
.Hyperlinks.Add Anchor:=Cells(3 + n, 2), Address:=pfad(n)
.Hyperlinks.Add Anchor:=Cells(3 + n, 3), Address:=Datei(n)
End With
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 4).Value = index(n)
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 5).Value = Datum(n)
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 6).Value = LDatum(n)
Workbooks("katalog.xls").Worksheets(Blattname).Cells(3 + n, 7).Value = ADatum(n)
Das Problem bei dem Spaß ist, daß 'Path' immer mit dem Dateinamen aufgelistet wird! und genau das darf nicht sein ...
Wer kann mir dabei helfen?
Gruß
Michel
|