Herbers Excel-Forum - das Archiv

Favoriten kopieren

Bild

Betrifft: Favoriten kopieren
von: Paula

Geschrieben am: 22.12.2006 13:16:15
Hallo Excelgemeinde!
wie kann ich alle Favoriten(mit Linkangaben) in ein Sheets kopieren?
Vielen Dank für Eure Tipps
Paula
Bild

Betrifft: AW: Favoriten kopieren
von: Anton

Geschrieben am: 22.12.2006 15:34:47
Hallo Paula,
versuch's damit,
Sub ie_favoriten_in_tabelle()
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
strFavoriten = WshShell.SpecialFolders("favorites")
With Application.FileSearch
.NewSearch
.LookIn = strFavoriten
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
If LCase(fso.getExtensionName(.FoundFiles(i))) = "url" Then
Set urlfile = fso.OpentextFile(.FoundFiles(i))
Do
adresse = urlfile.readline
gefunden = InStr(LCase(adresse), "url=")
If gefunden > 0 Then
adresse = Mid(adresse, gefunden + 4)
Exit Do
End If
Loop While urlfile.AtEndOfStream <> True
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(i, 1), Address:=adresse, _
TextToDisplay:=fso.GetBaseName(.FoundFiles(i))
End If
Next i
End If
End With
ActiveSheet.Columns.AutoFit
Set WshShell = Nothing
Set fso = Nothing
End Sub
Kurze Rückmeldung bitte nicht vergessen.
MfG Anton

Bild

Betrifft: AW: Favoriten kopieren
von: Paula
Geschrieben am: 22.12.2006 16:03:06
Hi Anton
danke, klappt vorzüglich.
ein schönes Fest wünscht Paula
 Bild
Excel-Beispiele zum Thema "Favoriten kopieren"
HTML-Seiten den Favoriten hinzufügen Blätter in andere Arbeitsmappen kopieren
Module von Mappe zu Mappe kopieren Arbeitsblatt 40 mal kopieren
Schriftgröße beim Kopieren verdoppeln Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen
Tabellencode nach Kopieren des Blattes löschen Arbeitsmappe blitzschnell kopieren
VBE-Namen der Blattmodule beim Kopieren festlegen Blattinhalt von einer zur anderen Arbeitsmappe kopieren