Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Ordner erstellen und csv darin abspeichern
21.04.2021 14:41:39 ch79
NotSolved
21.04.2021 15:02:02 Mase
NotSolved
21.04.2021 16:52:51 ch79
NotSolved
22.04.2021 10:28:39 ch79
NotSolved

Ansicht des Beitrags:
Von:
ch79
Datum:
21.04.2021 14:41:39
Views:
62
Rating: Antwort:
  Ja
Thema:
VBA Ordner erstellen und csv darin abspeichern

Hallo

Wie kann ich einen Unterordner im Ordner wo die Excel Datei gespeichert ist erstellen?

Ordnertitel soll aus der Zelle: Worksheets("Deckblatt").Range("J2") und _ABCD bestehen.

 

Folgendes Makro habe ich schon und funktioniert aber das mit dem Unterordner fehlt noch:

Private Sub CommandButton8_Click()

' speicher Tabellenblatt als csv Datei im Ordner ab

strName = ThisWorkbook.Path & "\" & Worksheets("Deckblatt").Range("J2") & "_ABCD_.csv"
'strName = Replace(ThisWorkbook.FullName, ".xlsm", "_ABCD_.csv", 1, -1, vbTextCompare)     =>nimmt den ganzen Dateinamen mit und wechselt über Replace das Dateiformat

    Cells.Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.SaveAs Filename:=strName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    ActiveWorkbook.Close False
    ActiveWorkbook.Activate
    Range("R8").Select
End Sub

 

Freue mich auf eure Hilfe.

Gruss

ch79


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Ordner erstellen und csv darin abspeichern
21.04.2021 14:41:39 ch79
NotSolved
21.04.2021 15:02:02 Mase
NotSolved
21.04.2021 16:52:51 ch79
NotSolved
22.04.2021 10:28:39 ch79
NotSolved