Office: Pfad in Zwischenablage speichern

Hallo,

ich speichere eine copy einer Datei mit folgendem code ab:

strFile = "\\pfad\" _
& ActiveSheet.Range("A3") & " " & ActiveSheet.Range("B3") & ".xls"
ActiveWorkbook.SaveCopyAs strFile

Wie kann ich nun den Pfad der gespeicherten copy mit VBA in die Zwischenablage speichern? Dies funktioniert nicht sondern ruft eine Fehlermeldung hervor:
strFile.PutInClipboard

Grüsse Udo

:)

 

Hallo, *Smilie

folgender Code funktioniert, wenn Du einen Verweis (im VBA-Editor auf Extras - Verweise...) auf die "Microsoft Forms 2.0 Object Library" gesetzt hast. Am einfachsten fügst Du diesen Verweis ein indem Du eine UserForm einfügst - diese kannst Du dann gleich wieder löschen, der Verweis bleibt bestehen:

Code:

Servus
Case

 

Dank dir, Case, das klappt super!
Hab grad festgestellt, daß das Ergebnis für meine Zwecke nicht ganz ausreicht. Besser wäre es, wenn ich direkt per VBA nicht nur den Pfad in die Zwischenablage bekomme sondern wenn ich eine Verknüpfung zu diesem Pfad an einem beliebigen Ort (Desktop?) abspeichern könnte. Gibt es diese Möglichkeit?

Gruss Udo

 

Hallo, *Smilie

eine Verknüpfung (.lnk)? Auf den Desktop? So:

Code:

Entsprechende Anpassungen vornehmen - fertig.

Servus
Case

 

Hey,

mit diesem Code kannst Du (etwas misbräuchlich *tongue.gif* ) eine Verknüpfung zu deiner Excel-Datei auf dem Desktop erstellen :

Code:

Diese Methode dient eigentlich dazu Verknüpfungen für Webseiten-URLs zu erstellen, aber sie funktioniert auch für lokale Dateien. Allerdings erhalten sie das IE oder Standard-Browser-Icon *rolleyes.gif*

 

Hallo Case, Hallo NoNet,

Ich hab (der Reihenfolge halber) den ersten Vorschlag von Case benutzt und da er anstandslos funktioniert den zweiten dann erst gar nicht ausprobiert.

Vielen Dank für eure Hilfe & schönes Wochenende!
Udo