Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Access Datei in csv Datei speichern
Fred

Hallo zusammen
Ich habe ein Problem und hoffe mir kann jemand helfen. Ich importiere in meine Tabelle csv.Dateien.
Vorher muss ich aber immer Access Tabellen in das csv.Format exportieren. Ich suche ein Makro was dieses für mich automatisch auf Button klick machen würde.
Also Datei...
25.08.2008 20:27:50
Thread-ID: 1004581
5 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
Anzeige
Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
10
6
1
3
4
2
14
1
3
15
4
3
1
6
1
9
3
17
9
6
2
2
2
1