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
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TXT Datei mit beliebigem Trennzeichen speichern

TXT Datei mit beliebigem Trennzeichen speichern
Folker
Hallo,
ich möcht mein Excel Sheet als Txt Datei mit einem beliebigen Trennzeichen speichern, da die gängigen wie Tab oder ; mir beim Aufsplitten zu gefährlich sind. Eine eingebaute Funktionalität habe ich nicht gefunden und bei der Recherche bin ich nur auf diesen https://www.herber.de/forum/archiv/44to48/t44804.htm#44824
Code gestoßen, der für 50000 Zellen bei mir 3:30 min benötigt. Da ich aber Sheets mit erheblich mehr Zellen zu speichern habe, ist das keine brauchbare Lösung.
Kenn jemand einen schnelleren Weg?
Bin für jeden Tipp dankbar
Folker

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: TXT Datei mit beliebigem Trennzeichen speichern
Josef
Hallo Foker!
Versuch mal diesen Code.
Auf meiner lahmen Ente ging's recht flott!
Option Explicit

Sub ascii_datei_exportieren()
Dim lngZeile As Long
Dim lngZcnt As Long
Dim intSpalte As Integer
Dim intScnt As Integer
Dim strText As String
Dim strSep As String
Dim sFile As String
lngZcnt = 50000 'Zeilenanzahl
intScnt = 4 'Spaltenanzahl
strSep = "|" 'Trennzeichen = |
Close #1
'Name und Speicherort festlegen
sFile = Application.GetSaveAsFilename(initialfilename:="NewstrTextFile.txt", _
fileFilter:="strText Files (*.txt), *.txt")
If sFile = "" Then Exit Sub
'Öffnen der strTextdatei
Open sFile For Output As 1
'Schleife fürlngZeilen
For lngZeile = 1 To lngZcnt
strText = ""
'Schleife für intSpalten
For intSpalte = 1 To intScnt
strText = strText & CVar(Cells(lngZeile, intSpalte))
If intSpalte < 4 Then strText = strText & strSep
Next
If lngZeile = lngZcnt Then Print #1, strText; Else Print #1, strText
Next
'Schließen der Textdatei
Close #1
End Sub

Gruß Sepp
Anzeige
AW: TXT Datei mit beliebigem Trennzeichen speichern
Folker
Da ist tatsächlich wesentlich mehr Dampf dahinter. Der Export hat bir mir jetzt nur noch 3:30 sec gebraucht.
Danke
Danke für die Rückmeldung! o.T.
18.04.2004 14:32:36
Josef
Gruß Sepp

301 Forumthreads zu ähnlichen Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Anzeige
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
Dateiname bei : Speichern unter
Marco

Hi
ich möchte eine XLS datei per makro abspeichern
Dateiname = "Test_" & VBA.Date
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Dateiname, fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveW...
05.12.2008 11:45:58
Thread-ID: 1030407
6 Beiträge
Anzeige
Mit Makro Excel-Datei unter anderem User speichern
Med

Hallo,
suche eine Lösung für folgendes Szenario:
1)Nutzer mit Leseberechtigung öffnet ExcelTabelle.
2)Makro speichert aktuellen Benutzernamen in eine externe Datei.
3)Benutzer macht Änderungen an der Datei.
4)Durch klick auf einen Button in der Excel-Tabelle wird diese mit...
16.02.2009 17:10:00
Thread-ID: 1051227
7 Beiträge
Datei-Kopie mit Datum und Zeit speichern
Lenni

Moin Excellianer!
Mit folgender Anweisung speicher ich eine Excel-Datei an einem "2.Ort"

Me.SaveCopyAs "F:\Buero\Excel\MeinProjekt\" & Me.Name
Nun möchte ich aber meine Datei immer aktuell mit Datum und Zeit abspeichern. Bei meiner Recherche im Archiv habe ich dann folge...
20.02.2009 20:26:00
Thread-ID: 1052545
3 Beiträge
Datei speichern unter mit Zellverknüpfung
herbi

Hallo,
habe schon viel im Forum gesucht, komme aber mit meinem Problem nicht weiter.
habe eine Datei mit Namen z.b. test.xls
in Zelle b8 steht ein Datum, im Format TT.MM.YYYY zum Beispiel 01.03.2009
ich möchte per Makro die "Datei speichern unter" den alten Namen um das Datum de...
04.03.2009 14:12:05
Thread-ID: 1056392
5 Beiträge
Datei mit akt. Tagesdatum speichern. Wie?
stefan

hallo,
ich ändere fast jeden tag etwas an einer datei. wie kann ich beim speichern automatisch eine version mit dateiname_aktuelles_datum.xls anlegen?
danke für eure hinweise.
05.03.2009 14:54:05
Thread-ID: 1056872
2 Beiträge
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
Anzeige

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
1
4
2
5
9
6
2
4
1
3
4
3
4
1
1
3
13
4
2
4
7
3
13
3
6