Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
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
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Abspeichern in variablen Ordner

VBA Abspeichern in variablen Ordner
13.03.2009 12:37:34
Danomat
Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Den Ordner bzw. Pfad möchte ich jetzt variabel an Zelle C1 knüpfen. Also das er ggf. im März automatisch einen Ordner "März" erstellt und dort die Datei abspeichert.
Vielen Dank im Voraus
Gruß
Daniel

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Abspeichern in variablen Ordner
13.03.2009 12:54:44
Tino
Hallo,
versuche es mal so.
Option Explicit
Private Declare Function apiCreateFullPath _
Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long

Sub Test()
Dim strFile As String
strFile = "J:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf"

apiCreateFullPath Left$(strFile, InStrRev(strFile, "\"))


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFile _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

End Sub


Gruß Tino

Anzeige
mit Absicherung
13.03.2009 12:58:38
Tino
Hallo,
so wird auch geprüft ob der Ordner vorhanden ist bzw. angelegt wurde.
Private Declare Function apiCreateFullPath _
Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long

Sub Test()
Dim strFile As String
Dim lngPahth As Long
strFile = "V:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf"

lngPahth = apiCreateFullPath(Left$(strFile, InStrRev(strFile, "\")))

    If lngPahth = 1 Then
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFile _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
    Else
     MsgBox "Ordner konnte nicht angelegt oder gefunden werden!", vbCritical
    End If

End Sub


Gruß Tino

Anzeige
AW: mit Absicherung
13.03.2009 13:40:26
Danomat
ok, war vielleicht etwas missverständlich. Der Pfad ist dynamisch, also wenn in Zelle C1 Februar steht, dann soll er die Datei in "G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" abspeichern.
Steht in der Zelle C1 der Monat März, so soll er die Datei in "G:\Dokumente\Berichtswesen\Monatsreporting\03 März\Test.pdf" abspeichern und falls der Ordner noch nicht vorhanden ist, denn ggf. erstellen.
Gruß
Daniel
AW: mit Absicherung
13.03.2009 13:42:10
Jogy
Hi.
Geht so: 

Sub Test()
Dim strFile As String
Dim lngPahth As Long
strFile = "V:\Dokumente\Berichtswesen\Monatsreporting\" & _
Format("1. " & Cells(3, 1).Text, "mm") & " " & Cells(3, 1) & "\Test.pdf"
lngPahth = apiCreateFullPath(Left$(strFile, InStrRev(strFile, "\")))
If lngPahth = 1 Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFile _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Else
MsgBox "Ordner konnte nicht angelegt oder gefunden werden!", vbCritical
End If
End Sub

Gruss, Jogy

Anzeige
AW: mit Absicherung
13.03.2009 13:42:58
Jogy
Hi.
Sorry, war hab die Zahlen bei Cells vertauscht, ist Cells(1, 3) statt Cells(3, 1)
Gruss, Jogy
AW: mit Absicherung
13.03.2009 14:14:01
Danomat
Ok, funktioniert!!!
Besten Dank
Viele Grüße
Daniel
ok. hat sich ja erledigt. oT.
13.03.2009 14:26:20
Tino
AW: mit Absicherung
13.03.2009 14:00:21
Tino
Hallo,
wie steht der Monat in der Zelle C1,
als Datum, als Name oder nur als Zahl?
Gruß Tino
AW: mit Absicherung
13.03.2009 14:15:12
Danomat
Ganz normal als Name. (Februar)

322 Forumthreads zu ähnlichen Themen

Darstellung von Variablen in Textfeldern von Grafi
Variablen

Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
06.10.2008 18:22:00
Thread-ID: 1014516
5 Beiträge
Anzeige
Variablen in Textfile schreiben, getrennt durch ta
Siggi

Hallo,
ich möchte Variablen mit Hilfe der "writeline" Befehls in eine Textdatei schreiben. Funktioniert soweit auch gut. Leider werden die einzelnen Werte die ich in eine Zeile schreibe direkt aneinander gereiht. Ist es möglich diese durch einen Tabstop zu trennen?
Der folgende Code ist...
31.10.2008 17:56:05
Thread-ID: 1020933
3 Beiträge
OpenText FieldInfo variabler array
Siggi

Hallo zusammen,
ich habe eine Textdatei die ich in Excel auslesen möchte. Zum Import nutze ich momentan die Opentext Methode. Anschließend lese ich die Werte des erzeugten Arbeitsblatts in ein Array ein um dann wiederum bestimmte Werte in eine Textdatei zu schreiben.
Workbooks.OpenText...
14.11.2008 18:56:29
Thread-ID: 1024682
2 Beiträge
Anzeige
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
UF->TextBox -> Eingabewerte in Variablen speichern
Best4you

Hallo,
in einem UserForm gebe ich ein Angangsdatum und ein Enddatum in zwei verschiedene Textfelder ein.
Nun möchte ich, die Nettoarbeitstage ausrechnen und im selbigen UF anzeigen lassen.
Ich weiß nur nicht, wie ich die eingegebenen Werte der TextBoxen in Variablen speichere, dami...
17.05.2009 16:35:25
Thread-ID: 1075704
6 Beiträge
VBA - Hilfetexte für Funktionen wie MsgBox, InputB
Stefan

Hallo zusammen,
gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
Danke vorab und Gruß.
Stefan
12.06.2009 09:41:53
Thread-ID: 1080899
2 Beiträge
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 Beiträge
per VBA Textvariable nach Word
ptonka

Hallo zusammen,
folgendes Problem:
Ich stelle per VBA aus mehreren Zelleinträgen in einer Tabelle einen langen String zusammen. Dieser wird der Variable "Langtext" zugewiesen.
Nun soll dieser Text aus der Variable Langtext in ein leeres Worddokument (.doc oder .txt-File) an den Anfa...
01.01.1970 00:00:00
Thread-ID: 1106384
3 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
7
2
1
4
2
5
1
3
2
3
16
10
4
2
6
6
4
4
2
1
6
9
2
2