Thema Datum  Von Nutzer Rating
Antwort
18.11.2022 19:28:35 ulsis
NotSolved
18.11.2022 20:58:38 xlKing
NotSolved
Rot Excel Range als .CSV speichern und schließen
 18.11.2022 22:22:50 Gast20876
NotSolved
18.11.2022 23:16:42 ulsis
NotSolved

Ansicht des Beitrags:
Von:
Gast20876		 Datum:
18.11.2022 22:22:50		 Views:
660		 Rating:
     
Antwort:
  Ja
Thema:
Excel Range als .CSV speichern und schließen

Hallo,

klappt, erspart das Speichern und ich kann die Arbeitsmappe schließen.

Option Explicit

Sub RangetoCSV_Export()  'nach Bsp. Kutools "ExportRangetoFile"

Dim Rng As Range
Dim WorkRng As Range
 
Dim xFile As Variant
Dim xFileString As String
On Error Resume Next
Set WorkRng = Application.Selection
Application.ActiveSheet.Copy        'Kopiert in neues Workbook unter "Mappe_n)
Application.ActiveSheet.Cells.Clear 'löscht alle Zellen in neuer Mappe_n
WorkRng.Copy Application.ActiveSheet.Range("A1") 'Kopiert "Bereich/Range" ab A1 in Mappe_n

Set xFile = CreateObject("Scripting.FileSystemObject") '???????

'Speichert Datei unter Auswahl oder einzugebenden Dateinamen als CSV

xFileString = Application.GetSaveAsFilename("", filefilter:="Semicolon Separated Text (*.CSV), *.CSV")

Application.ActiveWorkbook.SaveAs Filename:=xFileString, FileFormat:=xlCSV, CreateBackup:=False, Local:=True

Application.ActiveWorkbook.Close True
           
End Sub

 

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
18.11.2022 19:28:35 ulsis
NotSolved
18.11.2022 20:58:38 xlKing
NotSolved
Rot Excel Range als .CSV speichern und schließen
 18.11.2022 22:22:50 Gast20876
NotSolved
18.11.2022 23:16:42 ulsis
NotSolved