Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

csv-Datei mit Zahlen, Semikolon als Tr.

Forumthread: csv-Datei mit Zahlen, Semikolon als Tr.

csv-Datei mit Zahlen, Semikolon als Tr.
06.08.2020 15:15:42
Christian
Hallo noch einmal,
bezogen auf die Antwort von Franz im Thread
https://www.herber.de/forum/cgi-bin/callthread.pl?index=1774416#1774437
müsste ich den CSV-Bereich (A5:AB25) der ausgewählten Datei - eingegrenzt - einlesen und auch wieder in einen bestimmten Bereich des Tabellenblattes "Blatt 2" (ab A11) wieder einfügen.
Kann mir das bitte noch jemand in den 1. Code ergänzen?
Viele Grüße und Danke für Eure Unterstützung
Christian
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: csv-Datei mit Zahlen, Semikolon als Tr.
06.08.2020 21:11:44
fcs
Hallo Christian,
versuche dein Glück mal mit dieser Variante - achte auf die Schreibweise der Blattnamen!!!
LG
Franz 
Private Sub CommandButton2_Click()
Dim strFileName As String, lngLast As Long
Dim wkbCSV As Workbook
FilePath = "C:\Ablage\"  ' anpassen
Filename = "*" & ThisWorkbook.Worksheets("Blatt1").Range("A1") & "*"  'anpassen
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Datei wählen"
.InitialFileName = FilePath & Filename
.Filters.Add "CSV-Dateien", "*.csv", 1
.Filters.Add "Alle-Dateien", "*.*", 2
If .Show = -1 Then
strFileName = .SelectedItems(1)
End If
End With
If strFileName  "" Then
Application.ScreenUpdating = False
'CSV-Datei schreibgeschützt öffnen, mit Parameter Local:=True werden lokales _
Trennzeichen(;) und Dezimalzeichen (,) verwendet.
Set wkbCSV = Application.Workbooks.Open(strFileName, ReadOnly:=True, Local:=True)
With ThisWorkbook.Worksheets("Blatt 2")
wkbCSV.Worksheets(1).Range("A5:AB25").Copy
.Range("A11").PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
wkbCSV.Close savechanges:=False
End If
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

CSV Trennzeichen Semikolon
Ralf

Hallo liebes Excelforum,
ich bin schier am verzweifeln mit meinem CSV Semikolon Problem. eigentlich alt bekannt, ich kriegs aber nicht hin. Hab auch schon in der Registriy wie beschrieben den Eintrag wegen dem US-Standard ergänzt... Der scheint aber nur für Excel2000 gültig zu sein.
Ich...
30.08.2008 16:09:22
Thread-ID: 1006065
16 Beiträge
*. csv mit excel dateinamen speichern
eric1

Hallo,
komm hier nicht weiter, die *.xls oder *.xlsx werden geöffnet, dann werden sie in verschieden Formaten und Verzeichnissen gespeichert, die CSV soll Dateiname und Datum/Uhrzeit als Dateiname bekommen, Code wie folgt :
Public Sub exceldateioeffnen() Const LW = "F:\" Const Pfad =...
03.03.2009 22:52:42
Thread-ID: 1056138
2 Beiträge
CSV File mit 2 Semikolons am Schluss
Flo

Hallo, ich habe folgendes Problem:
Ich muss eine normale Tabelle als CSV-File Exportieren. Dass sollte denk ich mit SaveAs ja kein Problem sein, nur müssen am Ende jeder Zeile zum Abschluss 2 Semikolons stehen, da das ganze dann in eine externe DB geladen wird und das dort Bedingung ist. Le...
29.04.2009 10:49:13
Thread-ID: 1071820
3 Beiträge
CSV selbst erstellt - Komma statt Punkt
Philipp

Hallo an alle!
Ich erzeuge über ein - im Archiv gefundenes - Makro aus den Daten eine CSV-Datei.
Für die verschiedenen Spalten brauch ich eigene Formatierungen (zB Spalte 2: Datumsformat mit ".", klappt).
Wie bekommen ich es hin, dass er bei den Werten (Spalten 4, 5 und 6) ein Komm...
29.07.2009 11:08:31
Thread-ID: 1092173
7 Beiträge
Anzeige
csv-Datei erstellen mit Semikolon als Trennzeichen
Marika

Hallo zusammen,
ich muss aus Messwerten eine csv Datei erstellen, wo ein Semikolon das Spaltentrennzeichen und ein Komma als Dezimaltrennzeichen hinterlegt ist.
Das bekomme ich von Hand auch hin, indem ich Speichern Unter - Dateityp csv (MSDOS) verwende.
Ich möchte das ganze aber au...
18.08.2009 11:10:12
Thread-ID: 1096657
3 Beiträge
CSV Format, Delimiter ; (Semikolon), n. Komma
Peter

Guten Tag
Ich möchte eine Datei im CSV Format speichern.
Das klappt mit folgender Codezeile:
.SaveAs SavePath & "\" & File, FileFormat:=xlCSV
allerdings ist der Delimiter ein Komma und nicht wie gewünscht ein Semikolon.
Wie kann das geändert werden?
Danke für jed...
28.12.2009 09:23:04
Thread-ID: 1126047
3 Beiträge
csv mit semikolon temporär erstellen + verschicken
Peter

Hallo,
ich möchte eine csv-Datei temporär erstellen und per outlook verschicken, Trennzeichen muss ein Semikolon sein. Habe folgenden Code (Auszug), aber leider bekomme ich immer ein Komma als Trenner:
'CSV-Datei versenden
Dim strMailEmpfaenger As String
i = Application.ActiveWo...
29.09.2010 11:52:37
Thread-ID: 1179878
4 Beiträge
Anzeige
csv mit Semikolon erzeugen
sabrina

Wie kann ich aus einem Tabellenblatt eine csv-Tabelle mit Semikolons erzeugen?
29.05.2002 10:48:38
Thread-ID: 124498
6 Beiträge
CSV Datei , mit Semikolon speichern
rene

Hallo zusammen
ich versuche eine CSV datei aus Excel heraus mit lotus notes zu versenden , funktioniert soweit auch , Probleme habe ich damit das csv file als semikolon getrennt zu speichern. Hat jemand eien Idee wie der Code geändert werden sollte?
Sub send() Dim stFileName As String...
23.10.2012 12:33:09
Thread-ID: 1283435
5 Beiträge
Datei als csv mit Semikolon als Trenner ausgeben
John

Hallo alle,
wieder trifft mich das Problem des Umstiegs von Office 2003 auf Office 2007.
Das bis Office 2003 funktionierende Makro gibt neuerdings kein Semikolon als Trennzeichen aus.
Lässt sich das irgendwie beheben?
Ich danke für eure Unterstützung.
John
Das bis Excel...
23.10.2012 12:35:39
Thread-ID: 1283436
5 Beiträge
Anzeige
CSV mit Komma
Vilim

Ich benutze folgendes Makro um eine Excel-Tabelle als CSV mit Komma als Delimiter und " als Texterkennung (habe nur Alpha-Felder) zu speichern. Sub CSV_mit_Komma()
'
Dim TB As Worksheet
Dim TMP$, ExePath
Dim Hex1 As String
Dim z%, s%
ExePath = Application.GetSaveAsFil...
25.06.2002 16:30:32
Thread-ID: 131284
3 Beiträge
csv files mit Komma trennen
Kneubühler Thomas

Ich möchte meine .csv files defaultmässig mit Komma getrennt haben. Bei meiner Privaten WS kann ich in den Ländereinstellungen den Separator auf Komma setzen und es funktioniert. In der Firma ist es nach jedem Reboot weg. Kann da eine Policy schuld sein? Oder wie kann ich das einstellen?
Bet...
23.07.2002 10:54:58
Thread-ID: 139327
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige