Microsoft Excel

Herbers Excel/VBA-Archiv

Bitte um Hilfe ich kann es nicht


Betrifft: Bitte um Hilfe ich kann es nicht von: Engel Peter
Geschrieben am: 26.09.2017 18:30:54

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

  

Betrifft: AW: Bitte um Hilfe ich kann es nicht von: Stefan
Geschrieben am: 26.09.2017 18:42:36

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


  

Betrifft: AW: Bitte um Hilfe ich kann es nicht von: Stefan
Geschrieben am: 26.09.2017 18:44:28

sorry, hab da was vergessen


pfad = "E:\OP Plan\OP Pläne zum Planen" & "\"


  

Betrifft: AW: Bitte um Hilfe-RECHERCHE nutzen? von: robert
Geschrieben am: 26.09.2017 18:52:08

:-(


  

Betrifft: AW: Bitte um Hilfe ich kann es nicht von: Engel Peter
Geschrieben am: 26.09.2017 19:00:08

Hallo noch mal,

ui das schaut aber sehr kompliziert aus.

Geht bestimmt auch, aber ich kann es nicht
niederschreiben, weiß nicht wie???????


  

Betrifft: AW: Bitte um Hilfe ich kann es nicht von: Stefan
Geschrieben am: 27.09.2017 19:41:42

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