Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kann pdf über vba nicht öffnen

kann pdf über vba nicht öffnen
Claudia
Hallo guten Morgen liebe Helfer/innen,
ich habe ein kleines Programm welches seit Jahren funktionierte (bis Excel 2003)
Jetzt habe ich das ganze in 2007 und höher umgearbeitet mit einem eigenen Ribbon. In diesem Ribben ist ein Button der ein im gleichen Ordner abgelegtes pdf-Dokument aufrufen soll. Früher funzte das reibungslos, JETZT LEIDER NICHT MEHR.
Hier der Code: 
Private Sub termine(control As IRibbonControl)
'Eine beliebige Datei öffnen...
Dim Pfad As String
'Einfach den Pfad ändern und das war's....
Pfad = ActiveWorkbook.Path & "\UPLAN_Termine.pdf"
DateiÖffnen "open", Pfad, SW_MAXIMIZE
End Sub
Was muss bitte geändert werden damit ein pdf Dokument mittels VBA auf jeden Rechner der irgendein pdf-Reader hat geöffnet werden kann.
Bitte helft mir.
Danke im Voraus und Gruß
Claudia

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Wo ist der Code zu SUB DATEIÖFFNEN() ? _oT
18.11.2011 11:27:10
NoNet
_oT = "ohne Text"
AW: Wo ist der Code zu SUB DATEIÖFFNEN() ? _oT
18.11.2011 11:45:47
Claudia
Hallo NoNet,
hier der Code aus dem gesamten Modul, es wird noch eine weitere pdf-Datei geöffnet auf einem anderen Butto.
Public Declare Function ShellExecute Lib "shell32.dll" 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
Public hWnd As Long
Public Const SW_HIDE = 0 ' Versteckt öffnen
Public Const SW_MAXIMIZE = 3 ' Maximiert öffnen
Public Const SW_MINIMIZE = 6 ' Minimiert öffnen
Public Const SW_NORMAL = 1
Public Const SW_RESTORE = 9
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNOACTIVATE = 4 
Public Function DateiÖffnen(Aktion As String, Pfad As String, _
Ansicht As String) As Boolean
Call ShellExecute(hWnd, Aktion, Pfad, "", "", Ansicht)
End Function

Private Sub termine(control As IRibbonControl)
'Eine beliebige Datei öffnen...
Dim Pfad As String
'Einfach den Pfad ändern und das war's....
Pfad = ActiveWorkbook.Path & "\UPLAN_Termine.pdf"
DateiÖffnen "open", Pfad, SW_MAXIMIZE
End Sub

Private Sub Hilfe(control As IRibbonControl)
Sheets("Jan").Select
Range("A1").Select
Sheets("Antrag").visible = xlVeryHidden
Sheets("Einstellungen").visible = xlVeryHidden
Sheets("Gesamt").visible = xlVeryHidden
'Eine beliebige Datei öffnen...
Dim Pfad As String
'Einfach den Pfad ändern und das war's....
Pfad = ActiveWorkbook.Path & "\Bedienungsanleitung.pdf"
DateiÖffnen "open", Pfad, SW_MAXIMIZE
End Sub
Gruß
Claudia
Anzeige
AW: Wo ist der Code zu SUB DATEIÖFFNEN() ? _oT
18.11.2011 11:48:22
mumpel
So ähnlich wie mein Code, nur viel zu umständlich.
AW: kann pdf über vba nicht öffnen
18.11.2011 11:29:12
mumpel
Hallo!
1. Welche Fehlermeldung?
2. Lass mal den Backslash weg
3. Versuch auch mal folgenden Code (Pfad zum PDF-Reader anpassen)
Gruß, René
Korrektur
18.11.2011 11:30:41
mumpel
API-Code fehlt.
AW: Korrektur
18.11.2011 11:40:49
Claudia
Hallo Mumpel,
vielen Dank, aber was ist wenn ein Anwender NICHT Adobe bzw. nicht den Reader 9.0 hat. Es gibt ja mittlerweile mehrere pdf-Reader die verwendet werden.
Ich pers. habe sogar noch den Adobe PRO 7.0 in Verwendung.
Kannst Du weiterhelfen?
Danke und Gruß Claudia
AW: Korrektur
18.11.2011 11:46:25
mumpel
AW: Korrektur
18.11.2011 11:57:03
Claudia
Hallo Mumpel,
funktioniert leider nicht (habe selbstverständlich den Namen der pdf-Datei geändert).
Hast Du noch eine Idee?
Gruß Claudia
Anzeige
AW: Korrektur
18.11.2011 11:59:34
mumpel
Dann nenne mal die Fehlermeldung. Hast Du es mal ohne Blacklsash versucht?
ActiveWorkbook.Path & "Hinweis_ExportAsPDF.pdf"color>
AW: Korrektur
18.11.2011 12:00:42
mumpel
Backslash muss es heissen. ;-)
AW: Korrektur
18.11.2011 12:00:48
mumpel
Backslash muss es heissen. ;-)
AW: Korrektur.. so gehts plötzlich auch
18.11.2011 13:56:27
Claudia
Hallo Mumpel,
keine Ahnung warum, aber jetzt gehts auch plötzlich ohne Probleme mit diesem kleinen Prog.
Private Sub termine(control As IRibbonControl) 'OeffnePDF()
Dim Datei As String
Datei = ActiveWorkbook.Path & "\UPLAN_Termine.pdf"
ActiveWorkbook.FollowHyperlink Datei
End Sub
Danke aber für Deine Hilfe
Gruß
Claudia
Anzeige

302 Forumthreads zu ähnlichen Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Abfrage Schliessen Userform über Kreuz
Roland

Hallo fleissige VBA-Helfer
Ich habe ein Problem, bei dem ich im Moment nicht durchblicke.
Ausgangslage:
Ein Code "Test0815" in einem normalen Modul
Eine Userform "Userform1"
Frage:
Wie kann ich im Test0815 abfragen ob die Userform1 übers Kreuz oben rechts verlassen wurde...
19.06.2009 11:50:51
Thread-ID: 1082841
5 Beiträge
Anzeige
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
4
1
4
7
2
6
3
2
6
1
1
6
1
1
3
2
6
10
2
9
6
2
10
2