Komilierungsfehler unter WinXP :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2000] Komilierungsfehler unter WinXP

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

pointofview
Newbie
Newbie

Anmeldedatum: 31.01.2008
Beiträge: 1

Verfasst am: 31.01.2008, 16:38

Hallo,

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Outlook 2007 funktioniert unter Windo...	Playa187	Microsoft Outlook Hilfe	3	14.05.2008, 12:21
	Suchfunktion in den Kontakten unter O...	sloncar	Microsoft Outlook Hilfe	0	07.05.2008, 10:30
	Druckprobleme - speichern unter Excel...	Xlpro	Microsoft Excel Hilfe	1	25.04.2008, 11:31
	Verlängerung einer Range unter Visual...	plcgjxr	Microsoft Excel Hilfe	2	17.04.2008, 14:26
	Drucken unter VBA	BTG	Microsoft Access Hilfe	1	16.04.2008, 10:58

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de