Hallo zusammen,
mit diesem Macro importiere ich Einträge aus einem Verzeichnis.
Es handelt sich dabei um Verknüpfungen zu Fotos und Filmsequenzen
auf meiner Festplatte.
Range("I1").Select
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim i As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
For Each xFile In xFolder.Files
i = i + 1
ActiveSheet.Hyperlinks.Add Cells(i, 10), xFile.Path, , , xFile.Name
Next
Nun suche ich nach einer 'Umkehrfunktion', die mir die bearbeitete Excel-Liste wieder
in ein Verzeichnis zurückexportiert.
Wer kann mir hier mit einer kurzen Befehlssequenz helfen.
Gruß Henry