Office: Excel Datei speichern und verknüpfung auf dem Desktop erstellen

Hi,

kling komisch und denke nicht, dass das geht *biggrin.gif* aber ich würde gerne meinem Programm sagen, dass man einen Dateipfad angeben soll, da wird die datei dann gespeichert (kein problem) und dann wird von der Datei eine Verknüpfung mit dem name "XXX" auf dem Desktop platziert.

GEHT DAS??

Gruß aus Malaysia und DANKE *biggrin.gif*

Das Programm steht zu 95% *wink.gif* juhuuu ... :=D

:)

 

Hallo, *Smilie

so der Spur nach:

Code:

Servus
Case

 

DANKE *biggrin.gif* sehr sehr geil *wink.gif* es klappt

 

Moin moin,

ich habe ein ähnliches Problem und benötige Hilfe. Ich möchte eine Excel Datei unter einem bestimmten Namen abspeichern, den ich vom User erfrage. Dann wird die Datei an einem vorgegebenem Ort im Windows Explorer abgespeichert. Zusätlich soll von der Datei am selben Ort eine Verknüpfung erstellt werden, die ich dann in eine Email packe, um Sie zu versenden. Bis auf die Erstellung der Verknüpfung läuft alles rund. Eine Verknüpfung wird auch erstellt, die aber leider nicht funktioniert.

Ich habe folgenden Code:

cb = InputBox("Bitte geben Sie den Dateinamen vor:", "Speicherung der Daten", "Beispiel für Dateiname")

ActiveWorkbook.SaveAs Filename:="X:\TEST1\TEST2\TEST3\2015\" & cb & ".xlsm"


Dim objLink As Object
Dim strFile As String
Dim strPath As String
Dim objWSH As Object
On Error GoTo Fin
strPath = "X:\TEST1\TEST2\TEST3\2015\" ' anpassen
strFile = cb & ".xlsm" ' anpassen
Set objWSH = CreateObject("WScript.Shell")
Set objLink = objWSH.CreateShortcut(strPath & strFile & ".lnk")
With objLink
.Targetpath = strPath & strFile
.Save
End With
Fin:
Set objWSH = Nothing

Die Speicherung funktioniert einwandfrei, eine Verknüpfung wird ebenfalls erstellt.Aber leider mit einer Endung (.xlsm) und die Verknüpfung funktioniert vermutlich gerade deshalb nicht. Woran kann das liegen?
Vielen Dank schon mal im Voraus für die Antworten...

 

Das kann ich mir nicht vorstellen.
Mit dieser Zeile

Code:

wird definitiv die Verknüpfung mit der Erweiterung lnk erstellt (rot markiert)

Wenn Du allerdings in den Ordneroptionen die Standardeinstellung aktiviert hast, daß bekannte Erweiterungen nicht angezeigt werden sollen, siehst
Du im Explorer natürlich nur den reinen Dateinamen (Variable strFile), bei dem das .xlsm noch dranhängt.

Öffnen sollte sich die verknüpfte Datei aber trotzdem...(bei mir klappt das fehlerfrei)

 

Moin Scorefun,

vielen Dank für deinen Hinweis. Aber leider funktioniert der Link nicht. Ich poste hier gleich nochmal die Fehlermeldung dazu, die erscheint, wenn ich die Verknüpfung aufrufe:

"Die Datei '....' kann von Excel nicht geöffnet werden, da das Dateiformat oder die Dateierweiterung ungültig ist. Überprüfen Sie, ob die Datei beschädigt ist und ob die Dateierweiterung dem Dateiformat entspricht."

Sagt jemandem diese Fehlermeldung etwas?

 

Die gespeicherte Arbeitsmappe selbst lässt sich aber öffnen?

 

Das hatte ich zuletzt nicht getestet. Die funktioniert auch nicht mehr und ich bekomme die gleiche Fehlermeldung...

 

Also liegt es nicht an der Verknüpfung...

Handelt es sich denn auch wirklich um eine xlsm Datei (Excel >=2007)
oder vielleicht doch noch um eine alte 2003er Version (xls) ??

 

Moin Scorefun,

vielen Dank für deine Antwort. Ich bin selber gerade darauf gestoßen, dass ich ja eine alte Excel Version noch benutzt habe. Nun funktioniert alles tadellos.

Danke nochmal...