mit VBA dateiverknüpfung (.lnk) "auflösen"
Frank Arendt-Theilen
wie folgt:
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal Fensterzugriffsnummer As Long, _
ByVal lpOperation_wie_Open_oder_Print As String, _
ByVal lpDOSLinkname_incl_Pfad As String, _
ByVal lpZusätzliche_Startparameter As String, _
ByVal lpArbeitsverzeichnis As String, _
ByVal nGewünschte_Fenstergröße_der_Anwendung As Long) _
As Long
Sub Test()
ShellExecute 0&, "open", "g:\testxl~1.lnk", vbNullString, _
vbNullString, 1
End Sub
Anmerkung:
Mit der Funktion ShellExecute wird der Link ausgeführt und die
entsprechende Datei in der assozeierten Application geöffnet.
Anschliessend kann mit ActiveWorkbook.Fullname der Pfad dieser
Arbeitsmappe erfragt werden.
MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de
Philipp von Wartburg
Also bezüglich Öffnen von lnk-Dateien mit Excel bin ich
allerdings nicht gleicher Meinung. Verknüpfungen auf xls-
Dateien lassen sich wie gewöhnliche Arbeitsmappen
öffnen - zumindest auf meinem Rechner (XL97 unter
Windows NT 4.0). Ich hab's auch gerade nochmal
getestet.
Mit der Open-Methode wird die xls-Datei geöffnet, auf
welche 'verknüpft wurde', z.B.
Workbooks.Open "D:\Demo\Verknüpfung mit Link Test.xls.lnk"
bzw.
Workbooks.Open "D:\Demo\LinkAufMappe.lnk",
nachdem man die Linkdatei umbenannt hat. Die Dateiendung
"lnk" ist jeweils anzugeben.
Man könnte beispielsweise auch alle Verknüpfungen in
dem von dir erwähnten Verzeichnis beim Excel-Start
öffnen; am einfachsten durch Eintragen dieses Verzeich-
nisses als 'zusätzlicher Startordner'.
Ich kann mir vorstellen, dass Verknüpfungen je nach
Windows-Version bzw. Windows-/Office-Konfiguration nicht
immer gleich reagieren.
Gruss
Philipp
Gary Schneider schrieb in Nachricht
<096d01c29ca6$0d7571a0$8ef82ecf@TK2MSFTNGXA04>...
hi newsgroup,
ich habe in einem verzeichnis einige verknüpfungen
(.lnk-files), die auf echte excel-files "zeigen", die
wiederum quer über die server meiner firma verteilt liegen.
ich möchte nun mit VBA diese dateien nacheinander öffnen.
das problem: ein .lnk-file lässt sich nicht öffnen, weil
bloss eine fehlermeldung kommt, dass das dateiformat excel
nicht bekannt sei (soweit logisch). ABER: wie kann ich den
pfad und namen der EXCEL-datei herausbekommen, auf die das
.lnk-file "zeigt"? mit dieser info wäre das öffnen kein
problem mehr.
danke im voraus!
gary