|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Copy Worksheet Range in neues Workbook als csv |
21.11.2022 22:38:11 |
Ulli |
|
|
|
21.11.2022 23:09:07 |
xlKing |
|
|
|
22.11.2022 10:05:03 |
ulli |
|
|
|
22.11.2022 12:08:59 |
ulli |
|
|
|
22.11.2022 14:19:09 |
ulli |
|
|
|
23.11.2022 15:01:28 |
ulli |
|
|
|
23.11.2022 16:57:24 |
ulli |
|
|
Von:
Ulli |
Datum:
21.11.2022 22:38:11 |
Views:
312 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Copy Worksheet Range in neues Workbook als csv |
21.11.2022 22:38:11 |
Ulli |
|
|
|
21.11.2022 23:09:07 |
xlKing |
|
|
|
22.11.2022 10:05:03 |
ulli |
|
|
|
22.11.2022 12:08:59 |
ulli |
|
|
|
22.11.2022 14:19:09 |
ulli |
|
|
|
23.11.2022 15:01:28 |
ulli |
|
|
|
23.11.2022 16:57:24 |
ulli |
|
|