Pfadangabe in einer Zelle

Uwe · 2008-10-27T09:31:00+00:00

Hallo, weiß jemand, wie ich den aktuellen Pfad in einer Zelle abbilden kann, so dass sich dieser, wenn die Datei in einem anderen Ordner abgespeichert wird entsprechend automatisch verändert? In der Fußzeilen-Funktion gibt es ja die Möglichkeit über "&Pfad". Ich möchte mir jedoch den Pfadnamen nicht in die Fußzeile sondern in einer Zelle anzeigen lassen. Grüße Uwe

Hallo Interessierte,
wieso klappt der erste Code nicht, mit der bat-Datei klappt es.
Hinweise auf die Startparameter bei Powerpoint:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;254011
brachten mich nicht recht weiter.
Irgendwie komme ich da mit den Anführungszeichen/Leerzeichen nicht klar.


Sub OeffnePPT()
Dim appPPT
Const PPT As String = "c:\programme\microsoft office\office\powerpnt.exe "
MsgBox Range("E3").Value
appPPT = Shell(PPT & Range("E3").Value, vbMaximizedFocus)
End Sub
Sub OeffnePPT2()
Dim FF As Long, PPT
FF = FreeFile
Open "H:\ppt.bat" For Output As #FF
Print #FF, Chr(34) & "c:\programme\microsoft office\office\powerpnt.exe" & Chr(34) & " " & Chr( _
34) & CurDir & "\" & Range("E1") & Chr(34)
Close #FF
PPT = Shell("H:\ppt.bat", vbMaximizedFocus)
End Sub

Inhalte der Zellen:
E1: pwrpnt10.ppt
E3: C:\Dokumente und Einstellungen\IchalsAdministrator\Eigene Dateien\pwrpnt10.ppt
Gruß
Reinhard

Hallo,
habe noch mal getestet, bei langen Dateipfad muss dieser in die so genannte
Kurzschreibweise umgewandelt werden (Dos kompatibel).
Modul Modul1

Option Explicit 
Private Declare Function GetShortPathNameA Lib "kernel32" ( _
    ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, _
    ByVal cchBuffer As Long) As Long 
Public Function ShortPath(ByRef Path As String) As String 
  Dim n As Long 
 
  ShortPath = Space$(256) 
  n = GetShortPathNameA(Path, ShortPath, 255) 
  ShortPath = Left$(ShortPath, n) 
End Function 
 
 
Sub Test() 
Dim Datei As Integer 
Dim FileName As String 
FileName = ShortPath("C:\Test.ppt") 
Datei = Shell("C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE /s " & FileName) 
End Sub

Gruß Tino

Forumthread: Pfadangabe in einer Zelle

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial