Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1728to1732
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
1728to1732
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDF verschieben und umbenennen

PDF verschieben und umbenennen
28.12.2019 14:16:38
Oisse
Hallo Zusammen,
ein PDF wird als Vorlage auf einem Sharepointordner gespeichert.
Diese Vorlage möchte ich nun per VBA in einen anderen Sharpointordner verschieben und umbenennen.
Ich habe schon einiges ausprobiert aber leider funktioniert es nicht.
Ich bekomme immer die Fehlermeldung:
Laufzeitfehler 52
Dateiname oder -nummer falsch.
Wenn ich die Vorlage hole funktioniert das einwandfrei. Der Pfad stimmt und auch der Dateiname.
Der neue Ordner lautet dann wie folgt: 

Pfad = ThisWorkbook.Path & "/Anlagen/Gefährdungen " & Arr(y, 3) & ".pdf"

Unter "Info" befindet sich der Pfad und der Dateiname der Vorlage
Ich habe es probiert mit 
FileCopy Info, Pfad

und auch mit 

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile Info, Pfad

aber nichts hilft.
Könnt ihr helfen?
Gruß Oisse

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

Betreff
Datum
Anwender
Anzeige
oT tausche / gegen \
28.12.2019 14:51:07
Anton
vergiss es
28.12.2019 14:54:06
Anton
Hallo Oisse,
hab die Frage falsch verstanden.
mfg Anton
AW: PDF verschieben und umbenennen
28.12.2019 18:22:04
Oberschlumpf
Hi,
Wenn ich die Vorlage hole
Wie lautet der genaue Befehl dazu?
Unter "Info" befindet sich der Pfad
Wie heißt der Pfad?
Wenn Laufzeitfehler 52 auftritt, welche Inhalte genau haben dann Info + Pfad im Befehl:
FileCopy Info, Pfad
Bedeutet:
Überprüfe - während des Fehlers - den Inhalt in Info, ob der Inhalt tatsächlich den vollständigen Verzeichnispfad zur PDF-Datei hat, die du kopieren willst.
Überprüfe - während des Fehlers - den Inhalt in Pfad, ob vielleicht der Inhalt von Pfad wirklich eine korrekte Verzeichnispfadangabe enthält.
Ciao
Thorsten
Anzeige
AW: PDF verschieben und umbenennen
28.12.2019 20:50:44
Oisse
Hallo Thorsten,
holen heißt, dass ich mit dem Verzeichnispfad "Info" die PDF als Anhang für eine Email hole, also Attachments.Add Info.
Die Adresse ist also korrekt, denn die pdf wird angehängt.
In dem Ordner, in dem sich auch die Excelmappe befindet, gibt es einen Ordner "Anlagen".
In diesen Ordner soll das Ursprungs-PDF mit dem Namen: Gefährdungen " & Arr(y, 3) & ".pdf gespeichert werden. In Arr(y,3) befinden sich Tätigkeiten. Auch die werden korrekt ausgelesen.
Das müsste doch so passen oder?: 

Pfad = ThisWorkbook.Path & "/Anlagen/Gefährdungen " & Arr(y, 3) & ".pdf"

Tut mir leid, dass ich mich so spät melde.
Gruß Oisse
Anzeige
AW: PDF verschieben und umbenennen
28.12.2019 23:22:05
Oberschlumpf
Hi,
ich weiß leider auch keine Lösung.
Ciao
Thorsten
AW: PDF verschieben und umbenennen
29.12.2019 21:13:53
Oisse
Danke trotzdem.
Gruß Oisse
AW: PDF verschieben und umbenennen
29.12.2019 10:12:31
Anton
Hallo Oisse,
ein PDF wird als Vorlage auf einem Sharepointordner gespeichert.
Wo liegt dieser Sharepointordner ? Lokal auf deiner Festplatte oder auf einem Server?
Wenn lokal, dann war meine erste Antwort gar nicht so verkehrt.
mfg Anton
AW: PDF verschieben und umbenennen
29.12.2019 21:15:35
Oisse
Hallo Anton,
der Sharepointordner liegt auf einem Server.
Danke für´s Gedanken machen. :)
Gruß Oisse
AW: PDF verschieben und umbenennen
29.12.2019 18:36:07
Herbert
Hallo Oisse,
probiers mal damit:
Sub eMail_versenden()
Dim sFileNamePDF$, olSession As Object, sPfad$
'* Speicherpfad festlegen
sPfad = "E:\2job\excelhelper\xxx\"
ChDrive sPfad
ChDir sPfad
'* Pfad & Dateiname
sFileNamePDF = sPfad & "Testmappe.pdf"
'* PDF evtl. löschen falls Datei vorhanden
If Dir(sFileNamePDF, vbNormal)  "" Then Kill sFileNamePDF
'* PDF speichern
On Error Resume Next
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFileNamePDF, IgnorePrintAreas: _
=False
' hier kommt Dein eMail-Code
'dein Code
'* hier löschst du die vorher generierte pdf-Datei
Kill sFileNamePDF
End Sub
Servus
Anzeige
AW: PDF verschieben und umbenennen
30.12.2019 14:25:15
Anton
Hallo Oisse,
hast du schon probiert den Sharepointordner zu mappen, so wie du das schon hier gemacht hast?
mfg Anton
AW: PDF verschieben und umbenennen
30.12.2019 15:40:58
Oisse
Hallo Anton,
danke für den Hinweis. Nein habe ich nicht, weil ich mir gedacht habe, wenn das pdf geholt wird, dann kann es offensichtlich auch abgelegt werden. Diesen "umständlichen" Weg wollte ich mir ersparen. Aber vermutlich hast du recht. Sonst wird´s nicht gehen. Ich machs mal und geb Bescheid, weil ich bisher auch sonst keine andere Lösung gefunden habe.
Grüße
Oisse
Anzeige
AW: PDF verschieben und umbenennen
30.12.2019 16:36:47
Oisse
Hallo Anton,
tja, scheinbar geht´s tatsächlich nur so, dass man den Sharepointordner mapped.
So funktionierts jetzt einwandfrei.
Herzliche Grüße
Oisse

21 Forumthreads zu ähnlichen Themen

Datei umbenennen und auslesen
Oliver

Hallo alle zusammen,
da ich VBA-Neuling bin, würde ich mich über Hilfe freuen um ein paar Arbeitsschritte unter Excel2010 zu automatisieren.
Ich möchte über einen Auswahldialog eine Datei auswählen (*.hrn), Von dieser Datei soll eine Kopie als *.txt in einem anderen Ordner ("E:\neu\") g...
15.08.2011 11:13:12
Thread-ID: 1226097
5 Beiträge
Anzeige
PDF aus Pfad auslesen und in Outlook E-Mail einfüg
Zoamy

Hallo,
also ich stehe vor einem Problem und ich hoffe, ihr könnt mir hier helfen.
Ich habe den folgenden Code:
Sub AllPDFtoEmail() ' PDF Datein automatisch in E-Mail anzeigen Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet: Set Ws = Wb.Worksheets("E-Mails") Dim Pfad$,...
03.05.2017 15:35:41
Thread-ID: 1556061
4 Beiträge
Dateien Download und umbenennen VBA
Danny

Hallo zusammen,
Ausgangslage: Tabelle mit 2 Spalten. 1. Hyperlink/URL 2. Dateiname
Problem: die URL enthält keinen "harten" Pfad zu einer Datei, sondern löst beim Aufruf den Download einer Datei aus.
Ich will nun nacheinander die URLs aufrufen und in einem vorgegebenen Pfad unter d...
27.06.2019 22:00:37
Thread-ID: 1699868
16 Beiträge
Anzeige
vba dateien suchen, umbenennen und verschieben
franz
Moin ...
Freitag und ein Problem:
Kann man über Makro folgendes steuern:
Suche mir in dem Verzeichnis c:\2004 folgende Dateien:
(Für den Stern (*) können noch verschiedene Buchstaben und Zahlen folgen
oder vorausgehen)).
1.) Bestandsprotokoll_*.xls
2.) BRNR_PTK.txt
3....
04.06.2004 09:05:20
Thread-ID: 437245
5 Beiträge
Datei umbenennen mit VBA
Gerald

Hallo,
ich komme nicht weiter mit der Umbenennung einer Datei.
Alles was ich so gefunden hatte, habe ich ausprobiert und bin doch gescheitert.
Folgendes:
In meinem Ordner, wo auch die eigentliche Arbeitsmappe liegt, werden jeden Monat einige Dateien automatisch reinkopiert.
...
02.12.2020 18:06:33
Thread-ID: 1797218
8 Beiträge
Dateien umbenennen per VBA "_" ersetzen
Max

Hallo zusammen,
ziel meines Makro soll sein, die ersten 15 Zeichen eines Dateinamen stehen zu lassen und den Rest zu löschen,
dass funktioniert auch...
jetzt würde ich noch gerne falls vorhanden unterstriche ("_") durch Leerzeichen (" ") ersetzen
Vielen Danke schonmal für eure H...
14.04.2021 16:38:48
Thread-ID: 1825852
4 Beiträge
PDF Dateien kopieren und umbenennen
Patrick
Hallo zusammen,
ich möchte folgendes Szenario in VBA umsetzen.
Ich habe eine Exceltabelle mit verschiedenen Infos. Relevant sind aber eigentlich nur 4 Spalten. Hier mal ein Beispiel einer Zeile:
A1 = 3971
B1 = 7001
C1 = 0000
AL = 580
A1 bis C1 sollen später verkettet und...
08.12.2021 11:31:16
Thread-ID: 1860700
12 Beiträge
Datei umbenennen und auslesen
Oliver

Hallo alle zusammen,
da ich VBA-Neuling bin, würde ich mich über Hilfe freuen um ein paar Arbeitsschritte unter Excel2010 zu automatisieren.
Ich möchte über einen Auswahldialog eine Datei auswählen (*.hrn), Von dieser Datei soll eine Kopie als *.txt in einem anderen Ordner ("E:\neu\") g...
15.08.2011 11:13:12
Thread-ID: 1226097
5 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
1
3
15
10
4
7
3
11
4
2
1
3
21
4
1
1
3
3
11
9