Thema Datum  Von Nutzer Rating
Antwort
Rot Copy Worksheet Range in neues Workbook als csv
21.11.2022 22:38:11 Ulli
Solved
21.11.2022 23:09:07 xlKing
NotSolved
22.11.2022 10:05:03 ulli
NotSolved
22.11.2022 12:08:59 ulli
NotSolved
22.11.2022 14:19:09 ulli
NotSolved
23.11.2022 15:01:28 ulli
NotSolved
23.11.2022 16:57:24 ulli
NotSolved

Ansicht des Beitrags:
Von:
Ulli
Datum:
21.11.2022 22:38:11
Views:
108
Rating: Antwort:
 Nein
Thema:
Copy Worksheet Range in neues Workbook als csv

Hallo,

das Modul kopiert eine Range aus einer Worksheet in ein neues Workbook und speichert dieses als CSV-Transfer.CSV.

Das neue Workbook wird unter \Dokumente gespeichert. Wie speichere ich in das gleiche Verzeichnis wie das ursprüngliche Workbook.

Und noch eine Verständnisfrage: Was macht die Zeile Set xFile = CreateObject("Scripting.FileSystemObject")

Vielen Dank für Eure Hilfe
Ulli



Option Explicit
                                ' Projekt Buecherlisten per ISBN-Scan´s erstellen für BOOKcook- Import
Sub RangetoCSV_Export()         ' Speichert markierte Zellbereiche in eine Semikolongetrennte *.CSV-Datei
                                
Dim Rng As Range
Dim WorkRng As Range            'Markierter Zellbereich aus Kopfzeilen + Datenzellen
Dim xFile As Variant
Dim xFileString As String
xFileString = "CSV-Transfer"    'Dateiname der zu erstellenden CSV

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("CSV-Transfer", 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
Rot Copy Worksheet Range in neues Workbook als csv
21.11.2022 22:38:11 Ulli
Solved
21.11.2022 23:09:07 xlKing
NotSolved
22.11.2022 10:05:03 ulli
NotSolved
22.11.2022 12:08:59 ulli
NotSolved
22.11.2022 14:19:09 ulli
NotSolved
23.11.2022 15:01:28 ulli
NotSolved
23.11.2022 16:57:24 ulli
NotSolved