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

Ansicht des Beitrags:
Von:
ulsis
Datum:
18.11.2022 19:28:35
Views:
97
Rating: Antwort:
  Ja
Thema:
Excel Range als .CSV speichern und schließen

Hallo, ich habe ein Makro geändert welches eine in Excel aufgezogene Range als *.csv speichert.

Das Speichern und schließen per VBA erstellt eine unerwünschte Komma-getrennte Datei.

Speichere ich die erstellte *.CSV per STRG+S und Schließe diese dann, ist die Datei korrekt semikolon getrennt gespeichert.

Ich bin ratlos und bitte um Hilfe. mfg. Ulsis


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
'======================================================================================
'==  Das speichern und schließen der Datei funktioniert nicht. Ich muss die          ==
'==  *.csv- Datei speichern (STRG+S) vor dem Schließen, sonst Comma statt Semicolon  ==
'======================================================================================
'Application.ActiveWorkbook.Save
'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
Rot Excel Range als .CSV speichern und schließen
18.11.2022 19:28:35 ulsis
NotSolved
18.11.2022 20:58:38 xlKing
NotSolved
18.11.2022 22:22:50 Gast20876
NotSolved
18.11.2022 23:16:42 ulsis
NotSolved