Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kleines Makro für Tab.-blätter in csv-dateien spei

Forumthread: kleines Makro für Tab.-blätter in csv-dateien spei

kleines Makro für Tab.-blätter in csv-dateien spei
15.12.2003 14:42:40
Matthias
Hallo,

folgendes Problem:

wir haben in einem Ordner mehrere xls-Dateien stehen mit jeweils mehreren Tabellenblättern. Alle Tabellenblätter sollen nun alle in ein Verzeichnis als csv-dateien geschrieben werden. Als Name sollen sie die Excel-Tabelle und den Blattnamen tragen, beispielsweise "Excelname_Tabellenblattname.csv"

Kann mir jemand dafür ein kleines Makro schreiben!!

Vielen Dank im voraus.

Matthias
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kleines Makro für Tab.-blätter in csv-dateien spei
15.12.2003 17:39:14
Nayus
Hi,
folgendes Makro speichert alle Blätter von Arbeitsmappen in einem Verzeichnis einzeln als CSV-Datei.

Bedingung: Die Mappe mit dem Makro steht nicht im Verzeichnis der zu speichernen Mappen.
To Do: Anpassen des Dateipfades - hier "c:\temp\xls"

Viel Erfolg,
Nayus


Sub SaveDirFilesAsCsv()
Dim sPath As String, sSearchPath As String, sFileName As String
Dim sSheetname As String, sWbName As String
Dim s As Worksheet
'Suche nach allen Exceldateien im Verzeichnis c:\temp\xls
sSearchPath = "c:\temp\xls\*.xls"
sPath = "c:\temp\xls\"
sFileName = Dir(sSearchPath)
If sFileName <> "" Then
Do While sFileName <> ""
Workbooks.Open FileName:=sPath & sFileName
sWbName = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4)
For Each s In ActiveWorkbook.Sheets
s.Select
sSheetname = s.Name
ActiveWorkbook.SaveAs FileName:=sPath & sWbName & "_" & sSheetname & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
Next s
ActiveWorkbook.Close
'nächste Datei
sFileName = Dir
Loop
End If
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

CSV-Umwandlung in xls klappt nicht immer
Bernhard

Hallo Experten,
ich wende mich heute nochmals an Euch mit der Bitte um Hilfe. Ich habe gestern von Rudi Maintaire einen Code bekommen, der alle CSV aus einem Ordner in eine Excel-Mappe importiert und für jedes CSV-File ein extra Tabellenblatt anlegt. Der Code klappt und macht (fast) alles w...
30.10.2008 11:35:42
Thread-ID: 1020546
11 Beiträge
Anzeige
csv-Datei öffnen + Daten gleich in Spalten
Hermann

Hallo,
auf meinem alten PC konnte ich csv-Dateien öffnen, so dass die durch Kommata getrennte Texte gleich in Spalten einsortiert wurden. Dazu öffnete ich zuerst eine EXCEL-datei und klickte dann die csv-datei an.
Das geht jetzt bei meinem neuen PC nicht auf Anhieb. Warum?
Wie kann...
14.11.2008 14:42:00
Thread-ID: 1024599
7 Beiträge
Arbeitsblätter in eine .csv-Datei abspeichern
Dylan666

Hallo,
ich moechte mehrere Arbeitsblaetter einer Excel-Datei gleichzeitig abspeichern als tapstopp-getrenntes .txt, als kommasepariertes .csv-Format oder als neue .xls-Datei (mit nur einer Arbeitsmappe). Dabei sollen nur befuellte Zeilen gespeichert werden. Weiss jemand eine schnelle Method...
14.01.2009 10:18:37
Thread-ID: 1039496
2 Beiträge
TEXT in Tabelle umwandeln
Martin

Liebe Forumteilnehmer,
möchste aus einem TEXT in WORD der bestimmte wiederholte, standardisierte Abschnitte - in diesem fall Name, Vorname, Geb-Datum, eine Tabelle generieren. Geht das mit einem Makro aus Excel heraus?
Danke
Martin
02.02.2009 17:26:48
Thread-ID: 1046338
4 Beiträge
Text in Tabelle umwandeln
Martin

Hallo Formusteilnahmer,
hate vor eingen Tagen schon mal eine Anfrage diesbezüglich gestellt und versuche sie nun präziser zu formulieren.
Ich muss aus mehreren 10 Seiten Volltext Daten herausziehen und in eine Tabelle packen. Es geht dabei um Name, Vorname Geburtsdatum. Habe einen Beisp...
08.02.2009 16:55:14
Thread-ID: 1048374
3 Beiträge
Anzeige
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Makro: Datumsformat einer csv-Datei
Ralf

https://www.herber.de/bbs/user/59842.xls
Hallo,
die beigefügte Datei ist bei mir eine csv-Datei. Ich mußte sie als xls-Datei hochladen, da csv in diesem Forum nicht hochgeladen werden kann.
Unten aufgeführtes Makro macht bei dem Settlement date aus dem 4.3. den 3.4.
Sub FIDHa...
27.02.2009 11:43:56
Thread-ID: 1054679
2 Beiträge
Möchte .xls in .csv umwandeln
Leo

Moin Moin zusammen,
ich raff` es einfach nicht wie ich meine .xls-Daten in eine .csv-Datei umwandeln lassen kann !!!
Wahrscheinlich ist es einfach zu spät am Abend bzw. zu früh am morgen !? ?! !?
Eine kurze Erklräung ist in der Datei vorhanden : https://www.herber.de/bbs/user/60320....
15.03.2009 04:29:27
Thread-ID: 1060323
4 Beiträge
Anzeige
Zahlen in Text umwandeln
Thomas

Liebe Excelianer
Ich fülle per Excel ein Formular aus, welches ich anschliessend auf einen Check drucke. Darauf gibt es ein Feld mit einem Total, welches unten in Textform übertragen werden muss (Betrag in Worten).
Was kann ich tun, damit diese Zahl automatisch in Buchstaben umgewandelt...
01.04.2009 23:23:30
Thread-ID: 1066161
16 Beiträge
Umwandlung einer xls-Datei in csv
Beltschazar

Hallo an Alle
Monatlich muss ich eine Exceltabelle in eine csv-Datei umwandeln. Die ursprüngliche Datei muss geändert werden, indem Spalten gelöscht werden und neue Spalten eingefügt werden. Diesen Vorgang würde ich gerne automatisieren. Ist es möglich dafür ein Makro zu erstellen? Wenn ja,...
27.05.2009 13:54:13
Thread-ID: 1077697
4 Beiträge
Daten aus csv in Tabelle
Daniel

Hallo zusammen,
mein Problem besteht darin, ich möchte aus einem festen Speicherort (z.B. C:/) 9 csv Dateien (gleicher Aufbau und immer gleich benannt) in eine bestehende Excel Datei (Auswertung.xls), in ein bestehendes Tabellenblatt (Menge) in die Spalten B - Inhalt der csv Datei 1, in Spa...
26.06.2009 07:48:35
Thread-ID: 1084276
2 Beiträge
CSV-Datei gesplittet in Excel importieren
Lennart

Hallo zusammen,
ich bin auf ein (für mich ;-)) größeres Problem gestoßen und konnte dies auch nicht durch Googeln etc. lösen. Folgendes: Ich exportiere aus einem Programm eine Liste mit Namen als CSV-Datei. Diese Namen stehen komplett in einer Spalte. Wenn ich nun meine Excel-Datei mit dies...
06.07.2009 23:23:38
Thread-ID: 1086804
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige