Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1032to1036
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
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDF Dokument aus Excel aufrufen

PDF Dokument aus Excel aufrufen
14.12.2008 11:28:20
Wolfgang
Hallo,
ich hatte mir unter Recherche bereits Beispiele zu ähnlichen Fragen angesehen, entdecke aber kein Beispiel zu meiner Fragestellung. Im gleichen Verzeichnis, wie die geöffnete Arbeitsmappe, befindet sich ein PDF-Dokument "Vertrag". Wie könnte erreicht werden, das Dokument öffnen zu können -Acrobat Reader-, ohne nun den konkreten Pfad in VBA einzugeben, da sich dieser ggfs. ändern könnte. XLS und PDF werden sich dabei aber immer im gleichen Ordner befinden. Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF Dokument aus Excel aufrufen
14.12.2008 11:32:00
Mister
Hallo Wolfgang!
hier der Code der dir helfen könnte:
Option Explicit
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


Sub ShowHelp()
'Eine beliebige Datei öffnen...
Dim Pfad As String
CheckDatei
'Einfach den Pfad ändern und das war's....
Pfad = ActiveWorkbook.Path & "\Dienstplanorganizer 2008.pdf"
DateiÖffnen "open", Pfad, SW_MAXIMIZE
End Sub


Sub CheckDatei()
Dim Datei As String
Dim Text As String
' Kontrollieren ob Datei vorhanden
Datei = ActiveWorkbook.Path & "\Dienstplanorganizer 2008.pdf"
If Dir(Datei) = "" Then
Text = "Die Hilfsdatei befindet sich nicht im gleichen Dateiordner wie der Dienstplanorganizer. "
MsgBox Text, vbInformation, "Hilfe anzeigen"
Exit Sub
End If
End Sub


Muss du ggf. anpassen
Gruß
Martin

Anzeige
AW: PDF Dokument aus Excel aufrufen
14.12.2008 12:17:00
Wolfgang
Hallo Martin,
Danke für die Rückmeldung; ich habe versucht, Deinen Code anzupassen. Irgendetwas mache ich noch verkehrt. Worüber erfolgt der Befehl, Acrobat zu öffnen? Denn das macht der Code noch irgendwie nicht. Er erkennt aber wiederum, wenn ich das Dokument nicht mehr im Verzeichnis habe, da erfolgt dann auch die eingebaute Fehlermeldung. Hättest Du da evtl. noch eine Idee, warum Acrobat nicht geöffnet wird? - Danke schon jetzt auch wieder für die Rückmeldung.
Gruß - Wolfgang
Thisworkbook.Path
14.12.2008 11:37:33
Backowe
Hallo Wolfgang,

Sub PDFAufrufen()
Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & ThisWorkbook.Path & "\Vertrag. _
pdf", vbNormalFocus
End Sub


Gruß Jürgen

Anzeige
Danke Jürgen
15.12.2008 20:11:54
Wolfgang
Hallo Jürgen,
herzlichen Dank für Deine Rückmeldung. Ich hatte Deinen Beitrag zunächst übersehen, da ich voll mit dem Code von Martin beschäftigt war, der zunächst nicht rannte. Vorteilhafter am Code von Martin ist, dass ich da keinen Pfad eingeben muß, das mag in der Vernetzung nützlicher sein. Nochmals recht herzlichen Dank und sorry für meine späte Rückmeldung.
Gruß - Wolfgang

299 Forumthreads zu ähnlichen Themen

fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Anzeige
AW: Excel Makro Starten
Matty

Hallo nochmal....
Was ist an meiner Variante falsch?
Ich habe die Dateinamen als String definiert und in der Schleife den String aufgerufen. Was ist an dem Aufruf Application.Run falsch bzw was muss ich anders formulieren, wenn ich möchte dass die dateien entsprechend der Schleife durch...
08.08.2008 07:42:54
Thread-ID: 1000149
2 Beiträge
Lagerverwaltung mit Excel
Ralf

Hallo,
ich habe eine Lagerverwaltungsliste, in Spalte A stehen die Produkte, in Spalte B die Lagerzugänge und in Spalte C die Lagerabgänge.
In jeder Zeile befindet sich immer nur ein Buchungsvorgang, also entweder nur Zugang oder nur Abgang vom Lager.
Ich möchte in Spalte F, die akt...
08.08.2008 09:51:52
Thread-ID: 1000187
4 Beiträge
Anzeige
Sudoku Kontexmenü-Rechts [evtl. Hajo]
Matthias

Hallo
(Level bitte nicht ganz so ernst nehmen)
Folgendes:
In Diese Arbeitsmappe
Option Explicit 'nach einer Idee von Hajo Ziplies 'https://www.herber.de/forum/ _ archiv/972to976/t972675.htm Private Sub Workbook_BeforeClose(Cancel As Boolean) KontextmenueZuruecksetzen End Sub P...
08.08.2008 21:58:35
Thread-ID: 1000418
10 Beiträge
datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Word Dokument in Excel einlesen
Silva


Hallo an alle Exceluser,
ich stehe mal wieder vor einer neuen Herausforderung und komme nicht weiter.
Ich habe ca. 100 Worddateien (ALLE gleich aufgebaut). Und ich habe 1 Exceldatei.
Jetzt möchte ich eine definierte Anzahl an Informationen automatisch aus den Worddateien in Exc...
11.08.2008 11:24:00
Thread-ID: 1000766
8 Beiträge
Access update von Excel
Excel

Hi Excel Freaks,
Ich habe folgendes Problem.
Ich habe eine Access Datenbank mit ca. 150000 Artikel und neben den normalen Preisen enthält diese auch selbst erstellte Preise.
Jetzt bekomme ich per Excel einmal im Monat eine aktualisierte Preisliste mit ca. 12000 Artikeln.
Diese j...
11.08.2008 13:28:57
Thread-ID: 1000834
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
3
12
1
3
1
9
2
4
7
6
3
4
3
1
6
2
9
10
4
1
2
1
1
7
15