Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
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
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: alle pdf Dateien in Verzeichnis einbetten

VBA: alle pdf Dateien in Verzeichnis einbetten
16.04.2015 16:40:06
MarkusL
Hallo zusammen,
ich versuche momentan verzweifelt per VBA alle *.pdf Dateien eines Verzeichnisses in Excel nacheinander einzubetten und zu skalieren, so dass diese auf einem Tabellenblatt nacheinander dargestellt werden.
Da es einfach nicht funktionieren will, kann mir hier jemand helfen? - bin kein vba Experte.
Gruß
MarkusL

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: alle pdf Dateien in Verzeichnis einbetten
16.04.2015 17:45:10
Nepumuk
Hallo,
Hokus Pokus Fidibus drei Mal schwarzer Kater! Und Klapps?
Wenn nicht, liegt das bestimmt daran dass du keinerlei relevanten Angaben machst.
Gruß
Nepumuk

AW: VBA: alle pdf Dateien in Verzeichnis einbetten
16.04.2015 17:57:27
UweD
Hallo
hier ein Teilerfolg...
Die PDF werden alle an eine Stelle gesetzt. Das Verteilen muss noch weiter eingebaut werden...
Bin aber jetzt OFF
Sub PDF_Plus()
Dim FileName$
Dim intCounter
Dim strFile As String, strPath As String, strExt As String
Dim TB
Dim Obj(100)
Set TB = ActiveSheet
strPath = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "*.pdf"
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
intCounter = 1
Do While Len(strFile) > 0
Set Obj(intCounter) = TB.OLEObjects.Add(FileName:=strPath & strFile _
, Link:=False, DisplayAsIcon:=False)
With Obj(intCounter)
.ShapeRange.LockAspectRatio = msoTrue
.ShapeRange.Width = 340.5 ' Breite anpassen
End With
strFile = Dir()
intCounter = intCounter + 1
Loop
End If
End Sub

Gruß UweD

Anzeige
AW: VBA: alle pdf Dateien in Verzeichnis einbetten
16.04.2015 19:10:29
Nepumuk
Hallo,
alle nebeneinander oder wie? Lass dir bitte nicht alles aus der Nase ziehen.
Gruß
Nepumuk

AW: VBA: alle pdf Dateien in Verzeichnis einbetten
17.04.2015 10:40:57
UweD
Hallo nochmal
hab das nebeneinandersetzen noch eingebaut.
bzw. geht auch untereinander
Sub PDF_Plus()
Dim i%, Gr%
Dim FN$, Pfad$, Ext$
Dim Obj(100) 'max 100 Stück
Pfad = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen
Ext = "*.pdf"
FN = Dir(Pfad & Ext)
Gr = 350 'Größe anpassen
i = 1
With ActiveSheet
.Cells(1, 1).Select
Do While Len(FN) > 0
Set Obj(i) = .OLEObjects.Add(FileName:=Pfad & FN _
, Link:=False, DisplayAsIcon:=False)
With Obj(i)
.ShapeRange.LockAspectRatio = msoTrue
'***nebeneinander
.ShapeRange.Width = Gr
.ShapeRange.IncrementLeft (i - 1) * (Gr + 5)
'*** untereinander
'.ShapeRange.Height = Gr
'.ShapeRange.IncrementTop (i - 1) * (Gr + 5)
End With
FN = Dir()
i = i + 1
Loop
End With
End Sub
Gruß UweD
Anzeige

306 Forumthreads zu ähnlichen Themen

Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
Anzeige
Mit VBA Datei auf Server öffnen
egon.kernien@online.de

Hallo Experten!
Ich lasse mit diesem Code eine Exceldatei pda.xls die auf einem Server liegt so öffnen, Daten aus einer Tabelle lesen-kopieren, schliessen.:
ChDir Pfad
strFile = Application.GetOpenFilename
If strFile = "Falsch" Then Exit Sub
Set wbSource = Workbooks.Open(Fi...
03.12.2009 11:32:17
Thread-ID: 1121538
3 Beiträge
Per VBA Excel Datei öffnen und Register wechseln
christoph

Hallo, ich habe als VBA Laie folgendes Problem. Ich möchte im Rahmen eines Makros eine andere bereits geöffnete Exceldatei aktiveren und in dieser neu aktivierten Datei das Registerblatt wechseln - was leider nicht funktioniert. Bisher habe ich folgenden VBA Code zum aktivieren der Datei und...
31.03.2010 15:03:42
Thread-ID: 1149665
9 Beiträge
Anzeige
vba Datei öffnen, Erweiterung unbekannt
Daniel

Hallo VBA - Experten,
Wie öffne ich in vba eine Exceldatei, ohne dass ich die Dateierweiterung kenne? Mein Problem: ich habe ein Makro erhalten, welches Dateien im Excel 2003 - Format öffnet. Das Öffnen sollte auch funktionieren, wenn die Dateien in einem neueren Format mit anderer Erweiter...
09.04.2011 16:16:22
Thread-ID: 1209733
4 Beiträge
PDF Dateien öffnen für Excel BS Vista
ropa

Hallo,
wir haben einen Laptop mit dem BS Vista.
Ich muß mit diesem des öfteren aus dem Internet PDF Dateien öffnen um Daten für Excel zu bekommen.
Wenn ich jetzt mit Firefox eine PDF Datei anklicke dann wird diese nicht geöffnet. Das speichern funktioniert jedoch aber das möchte ich...
27.06.2011 11:57:32
Thread-ID: 1219852
2 Beiträge
Öffnen einer Datei per VBA
Christian

Hallo Forum,
ich möchte per VBA eine Datei öffnem, deren Pfad und Namen als Text in einer Zelle steht.
in A1 steht "D:\test.xls"
dann will ich im Macro den Befehl:
Datei$ = Cells(1, 1).Select
verwenden, um den Namen in der Variablen Datei$ zu speichern.
Das geht nicht....
18.08.2011 12:48:10
Thread-ID: 1226611
4 Beiträge
PDF-Datei öffnen
Lars

Hallo
bisher habe ich mit dem Code:
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 S...
06.09.2011 20:32:44
Thread-ID: 1228841
3 Beiträge
PDF-Datei öffnen
Lars

Hallo
hatte diese Frage vor ein paar Tagen schon einmal eingestellt und leider keine brauchbare Antwort erhalten. Lediglich den Hinweis, dass die "shell" Funktion nicht auf Mac läuft. Habe schon allerhand ausprobiert und kann leider keine Lösung im Netz finden.
bisher habe ich mit dem...
11.09.2011 17:01:47
Thread-ID: 1229384
4 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
4
3
2
8
2
3
1
3
2
3
5
3
4
1
1
3
6
2
4
8
2
3
1
8
6