Kompilierungsfehler unter WINXP
01.02.2008 12:00:00
Oliver
ich habe mit Excel2000 und Windows2000 Professional eine Datei geschrieben und mit UserForm und einigen Funktionen per Makro´s gefüllt. Nachdem die Datei geladen ist kann man eine UserForm aufrufen in der ich per CommandButton (Makro) eine ShellExecute starte und pdf-Dateien und die dazugehörende Anwendung (Adobe Acrobat) öffne. Das ganze funktioniert auch bei einem Rechner mit Windows XP und SP2. Das Makro hierzu sieht wie folgt aus:
Declare
Function ShellExecute Lib "shell32" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub OpenPDF()
ShellExecute 0, _
"Open", _
"T:\Antriebsberechnungsprogramm\Umlenkungen.pdf", _
vbNullString, _
vbNullString, _
vbNormalFocus
End
Sub
Jetzt ist es notwendig geworden, das Programm mobil zu gestalten, so dass es inkl. aller _
Unterverzeichnisse mit pdf-Dateien auch auf ein anderes Laufwerk oder einen anderen Rechner läuft. Also hab ich das Makro geändert, so dass die Unterverzeichnisse direkt angesprochen werden. Unter Win2000 funktioniert das hervorragend, sobald man jedoch nun unter WinXP das Makro anspricht erscheint ein Kompilierungsfehler. Das neue Makro lautet:
Declare
Function ShellExecute Lib "shell32" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub OpenPDF()
Dim strPfad As String
strPfad = ThisWorkbook.Path
If Right(strPfad, 1) "\" Then strPfad = strPfad & "\"
strPfad = strPfad & "Umlenkungen.pdf"
ShellExecute 0, _
"Open", _
strPfad, _
vbNullString, _
vbNullString, _
vbNormalFocus
End
Sub
Ich habe jetzt schon alle AddInn´s kontrolliert und abgschaltet, die Verweise im VBA-Editor _
Ref Edit Control unter XP abgeschaltet, aber der Fehler tritt immer wieder auf. Was kann noch diesen Fehler verursachen? Für Hilfe bin ich sehr Dankbar.
Viele Grüsse
PointOfView