Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: aus Excel heraus PDF in Sharepoint Ordner

aus Excel heraus PDF in Sharepoint Ordner
10.06.2024 20:41:17
Djskyalex
Hallo Zusammen,
ich möchte gern aus Excel heraus eine PDF auswählen und diese in einem freigegebenen Sharepoint Ordner unter fortlaufender Nummer speichern.
Ist so etwas möglich?
Also die Datei soll mittels Button ausgewählt werden und nach auswählen abgespeichert werden.

Ich hoffe das ich es so verständlich ausgedrückt habe.

Vielen Dank im Voraus für die Hilfe

Djsky
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aus Excel heraus PDF in Sharepoint Ordner
10.06.2024 21:00:26
ralf_b
hast du den Sharepointordner per Laufwerkmapping ins Dateisystem eingebunden?
AW: aus Excel heraus PDF in Sharepoint Ordner
10.06.2024 21:45:21
Djskyalex
Hallo Ralf,
Wie meinst du das mit dem Sharepointordner per Laufwerkmapping?
VG Djskyalex
AW: aus Excel heraus PDF in Sharepoint Ordner
12.06.2024 06:14:07
Djskyalex
Hallo Ralf,
ich hab den Ordner mit OneDrive verknüpft und freigegeben.

VG Djskyalex
Anzeige
AW: aus Excel heraus PDF in Sharepoint Ordner
10.06.2024 22:31:32
Der Analyst
Wenn du den Sharepoint Ordner auf deinem Laufwerk synchronisierst, dann kannst du das PDF über vba direkt in den Ordner erzeugen lassen. Die PDF wird dann synchronisiert und ist für alle im sharepoint verfügbar.
AW: aus Excel heraus PDF in Sharepoint Ordner
11.06.2024 06:29:11
Djskyalex
Ok, das klinkt super. Aktuell nutze ich diesen Code.
Vielleicht kann man den umschreiben?

Private Sub CommandButton3_Click()

Dim varPDF As Variant
Dim objOLE As OLEObject
Dim rngObject As Range
On Error GoTo Fehler
With Range("K36:k41")
.Select
If .MergeCells = True Then
Set rngObject = .MergeArea
Else
Set rngObject = .Cells
End If
End With
varPDF = Application.GetOpenFilename("PDF (*.pdf),*.pdf", , "Select PDF File", , "False")
If varPDF = False Then Exit Sub
Set objOLE = ActiveSheet.OLEObjects.Add(Filename:=varPDF, _
Link:=False, DisplayAsIcon:=False)
With objOLE
.Top = rngObject.Top
.Left = rngObject.Left
If .Width > rngObject.Width Then .Width = rngObject.Width
If .Height > rngObject.Height Then .Height = rngObject.Height

End With
Range("K7") = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name = "Objekt"
Range("K7") = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
Fehler:
End Sub


Vielen Dank
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige