Bitte um Hilfe ich kann es nicht

Forumthread: Bitte um Hilfe ich kann es nicht
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Bitte um Hilfe ich kann es nicht

26.09.2017 20:30:54

Engel

Hallo zusammen,
ich müsste mit VBA eine Excel Tabelle unter einen Bestimmten Pfad mit einem Dateinamen aus der Tabelle abspeichern und bekomme es nicht hin.
Könnte mir jemand dabei helfen?
Der Pfad sollte sein "E:\OP Plan\OP Pläne zum Planen"
und der Name der Datei steht in "A2" das ist das Datum.
Danke schön im voraus.
Peter der verzweifelte

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bitte um Hilfe ich kann es nicht

26.09.2017 20:42:36

Stefan
AW: Bitte um Hilfe ich kann es nicht

26.09.2017 20:44:28

Stefan
AW: Bitte um Hilfe-RECHERCHE nutzen?

26.09.2017 20:52:08

robert
AW: Bitte um Hilfe ich kann es nicht

26.09.2017 21:00:08

Engel
AW: Bitte um Hilfe ich kann es nicht

27.09.2017 21:41:42

Stefan

AW: Bitte um Hilfe ich kann es nicht

26.09.2017 20:42:36

Stefan


Public Function MakeDir(FolderName As String)
Dim S As Variant, i As Long, F As String
S = Split(FolderName, "\")
For i = LBound(S) To UBound(S)
If S(i)  "" Then
F = F & S(i) & "\"
On Error Resume Next
MkDir F
On Error GoTo 0
End If
Next i
End Function

Sub speichern
Dim pfad As String
Dim name As String
pfad = "E:\OP Plan\OP Pläne zum Planen"
name = ThisWorkbook.Worksheets(1).Range("A2")
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.folderexists(pfad) Then
GoTo export
Else
Call MakeDir(pfad)
GoTo export
export:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
pfad & name, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End If
End Sub
Probier es mal so

AW: Bitte um Hilfe ich kann es nicht

26.09.2017 20:44:28

Stefan

sorry, hab da was vergessen
pfad = "E:\OP Plan\OP Pläne zum Planen" & "\"

AW: Bitte um Hilfe-RECHERCHE nutzen?

26.09.2017 20:52:08

robert

:-(

AW: Bitte um Hilfe ich kann es nicht

26.09.2017 21:00:08

Engel

Hallo noch mal,
ui das schaut aber sehr kompliziert aus.
Geht bestimmt auch, aber ich kann es nicht
niederschreiben, weiß nicht wie?

AW: Bitte um Hilfe ich kann es nicht

27.09.2017 21:41:42

Stefan

sorry für die späte Nachricht,
das von mir kopieren,
Excelmappe öffnen,
ALT F11 drücken und das ganze in "diese Arbeitsmappe" kopieren,
Mappe als .xlsm speichern

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!