Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.04.2025 21:45:53
ComboBox - Vorschlagsliste mit "enthält"
22.04.2025 17:45:22
anwendungs oder Objektorientierter Fehler
22.04.2025 16:13:02
Formel Rückgabe eines Wertes aus Matrix der < Kriterium
22.04.2025 09:11:17
VBA Code - Rechteck wird nicht gelöscht
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
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

xls in Format .txt per VBA konvertieren

Forumthread: xls in Format .txt per VBA konvertieren

xls in Format .txt per VBA konvertieren
Bernd
Liebe Excel-Gemeinde,
ich bitte um Eure geschätzte Hilfe.
Problem:
ich extrahiere aus einer Forecast-Datei per Makro ein einzelnes Tabellenblatt, das die Kosten je Konto und Periode für einen Upload zu SAP bereitstellt. Das Format ist xls. Jetzt benötigt SAP aber das Format "Text (Tabstopp getrennt)(.txt)". Bis dato muss ich das als xls gespeicherte Blatt wieder aufrufen und dann als txt speichern. Und diese Arbeit würde ich gerne automatisieren.
Nachstehend der Code für das Erzeugen der xls.-Datei und auch die Datei mit dem relevanten Blatt und Makro.
https://www.herber.de/bbs/user/67057.xls
Dim strFile As String, wbQuelle As Workbook, wbZiel As Workbook
Dim wksQuelle As Worksheet, wksZiel As Worksheet, zelle As Range
Dim iClick As Integer
strFile = Sheets("Upload-File Monatswerte").Range("C3") & " FC Kosten Upload Monatswerte" 'Dateinamen vorgeben!
strFile = Application.GetSaveAsFilename(InitialFileName:=strFile, _
fileFilter:="Excel Files (*.xls; *.xla; *.xlt), *.xls; *.xla; *.xlt")
If strFile = "Falsch" Then Exit Sub
Set wbQuelle = ActiveWorkbook 'Workbooks("Master FC mit Upload-Exportfunktion.xls") '
Set wksQuelle = wbQuelle.Sheets("Upload-File Monatswerte")
wksQuelle.Copy
Set wbZiel = ActiveWorkbook
Set wksZiel = wbZiel.Worksheets(1)
With wksZiel
'Alles Inhalte durch Werte ersetzen
.UsedRange.Value = .UsedRange.Value
'Spalten ab Spalte Q (18) löschen
.Range(.Columns(17), .Columns(.Columns.Count)).Delete Shift:=xlShiftToLeft
'Zeile 1 (Überschriften Exportdatei (nicht Ursprungsdatei !!) ) löschen
Rows("1:2").Select
Selection.Delete Shift:=xlUp
'anschließend in der Upload-Tabelle alles ab Zeile 36 löschen
.Range(.Rows(36), .Rows(.Rows.Count)).Delete Shift:=xlShiftUp
'Makrobutton, Textbox und Summenwerte löschen
ActiveSheet.Shapes("Button 1").Select
Selection.Delete
Range("P37").Select
Selection.AutoFill Destination:=Range("P37:P40"), Type:=xlFillDefault
Range("A1").Select
'Name ändern
.Name = "Upload-Datei Kosten"
'Alle Zahlen im Upload-Bereich auf 2 Stellen runden
For Each zelle In .Range("A1:P35")
If IsNumeric(zelle) Then
zelle.Value = Application.WorksheetFunction.Round(zelle.Value, 2)
End If
Next
End With
'Konto mit der führenden Null versehen
Range("D35").Select
ActiveCell.FormulaR1C1 = "'08990000"
Range("E1").Select
With wbZiel
.SaveAs strFile
.Close 'wenn die neue Mappe geschlossen werden soll!
End With
Call Upload_File_Mitarbeiter
End Sub
Danke Euch im voraus
Grüße, Bernd
Anzeige
AW: xls in Format .txt per VBA konvertieren
07.01.2010 20:23:45
Daniel
Hi
du kannst auch per Makro eine Datei als Textfile speichern.
wenn du wissen willst, wie das geht, lass einfach mal den Makrorecorder beim Speichern mitlaufen.
mehr kann ich dazu jetzt nicht sagen, aber wenn du hier ne Datei hochläst, dann solltest du den Schutz vorher rausnehmen oder das Kennwort mitschicken.
Gruß, Daniel
Anzeige
@Daniel
07.01.2010 20:35:51
Bernd
Hallo Daniel,
ich hatte ein paar Minuten später die entsperrte Datei hochgeladen. https://www.herber.de/bbs/user/67058.xls
Wahrscheinlich hat sich das mit Deiner Antwort überschnitten.
Willst du mal reinschau'n?
Danke, Bernd
Anzeige
AW: @Daniel
07.01.2010 23:26:39
Daniel
Hi
jo, kann ich, ändert aber nichts an meiner Antwort.
Die Lösung kannst du leicht mit dem Makrorekorder oder der VBA-Hilfe rausfinden, dafür sind die da.
Gruß, Daniel
AW: @Daniel
08.01.2010 00:02:01
Bernd
ich habe es wirklich (!!!!) bis jetzt 24 h versucht, auch mit Marorecorder und vba-hilfe... Es klappt nicht.
Bitte helfe mir doch, Danel.
Danke, Bernd
Anzeige
AW: es klappt einfach ncht...
07.01.2010 23:59:28
Bernd
Ich habe den Tipp von Daniel mit dem Makrorekoreder versucht. Das bringt's auch nicht.
das wird aufgezeichnet:
' Sheets("Upload-File Monatswerte").Copy
' ActiveWorkbook.SaveAs Filename:= _
' "D:\Tabstopp-getrennt 22.35 h.txt" _
' , FileFormat:=xlText, CreateBackup:=False
'Codeversuch analog VBA-Hilfe (kommt Quatsch)
strFile = Application.GetSaveAsFilename(InitialFileName:=strFile, _
fileFilter:="Text Files (*.txt), *.txt")
'xls-Code, funktioniert
' strFile = Application.GetSaveAsFilename(InitialFileName:=strFile, _
' fileFilter:="Excel Files (*.xls; *.xla; *.xlt), *.xls; *.xla; *.xlt")
Will mir denn keiner den entscheidenden Tipp geben?
https://www.herber.de/bbs/user/67063.xls
Grüße
Bernd
Anzeige
AW: es klappt einfach ncht...
08.01.2010 00:08:23
Daniel
und was hat jetzt GetSaveAs-Filename mit SaveAs zu tun?
du musst, daß was du bei SaveAs aufgezeichnet hast, auch in dein Makro bei SaveAs einfügen (nämlich das mit dem FileFormat)
das GesSaveAs gibt dir ja nur einen String zurück (den soltest du dir vorher nochmal anschauen und ggf die Dateierweiterung entfernen, den die wird von Excel beim Speichern automatisch angehängt)
Gruß, Daniel
Anzeige
AW: es klappt einfach ncht...
08.01.2010 07:52:42
welga
Hallo Daniel,
mal so ins Blaue geschossen. Eventuell hilft es:
ActiveWorkbook.SaveAs Filename:= strFile_
, FileFormat:=xlText, CreateBackup:=False
strFile muss du natürlich vorher definieren.
Gruß
welga
AW: es klappt einfach ncht...
08.01.2010 08:24:53
welga
Hallo nochmals,
versuch es mal so:
Sub xlszutxt()
Dim lngCount As Integer                     ' Dateizähler
Dim varDateiname As Variant                 ' Dateiplatzhalter
Dim Suchpfad As String, Dateiform As String, Speicherpfad As String, Datname As String
Dim totFiles As Long
Suchpfad = InputBox("Geben Sie den Ordner an, der durchsucht werden soll.", "Suchpfad  _
definieren", "C:\Dokumente und Einstellungen\Administrator\Desktop\sap-xls") 'Hier anpassen
If Suchpfad = "" Then Exit Sub
Dateiform = InputBox("Bitte die Endung der Dateiform definieren", "Dateierweiterung", "xls") _
If Dateiform = "" Then Exit Sub
Speicherpfad = InputBox("Geben Sie den Ordner an, in welchem gespeichert werden soll.", " _
Speicherfad definieren", "C:\Dokumente und Einstellungen\Administrator\Desktop\sap-txt") 'Hier anpassen
If Speicherpfad = "" Then Exit Sub
With Application.FileSearch
.LookIn = Suchpfad
.SearchSubFolders = True
.Filename = Dateiform
If .Execute() > 0 Then
totFiles = .FoundFiles.Count
' Bildschirmaktualisierung und Alarm deaktivieren
Application.ScreenUpdating = False
Application.DisplayAlerts = False
' Ausgewählte Dateien öffnen
For lngCount = 1 To totFiles '          ' Anzahl der Dateien
varDateiname = .FoundFiles(lngCount)
If varDateiname  False Then                   ' Test auf gültigen Dateinamen
' xls-Dateien öffnen
Workbooks.OpenText Filename:=varDateiname, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True,  _
_
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1),  _
_
Array(2, 1)), local:=True
Datname = Dir(varDateiname)
Datname = Left(Datname, InStr(3, StrReverse(Datname), ".") - 3) 'Dateinamen  _
erkennen und speichern
ActiveWorkbook.SaveAs Speicherpfad & "\" & Datname, FileFormat:=xlText,  _
CreateBackup:=False
' Aktuell geöffnete xls-Datei schließen
ActiveWorkbook.Close
End If
Next lngCount
End If
End With
End Sub

Gruß
welga
Anzeige
AW: ich gebe es in diesem Beitrag auf...
08.01.2010 11:09:24
Bernd
HalloWelga, klappt auch nicht.
Ich werde einen neuen Beitrag aufmachen in der Hoffnung, doch noch die Lösung zu erhalten, auch wenn ich mir damit sicherlich Unmut einfange...
das ist nach wie vor das Problem:
'dieser Code erzeugt leider keine 'sauberen' Nullen in Exporttab. sondern Unsinn
strFile = Application.GetSaveAsFilename(InitialFileName:=strFile, _
fileFilter:="Text (Tabstopp-getrennt)Files (*.txt), *.txt")
Deinen Code habe ich in Modul 3 eingebaut: https://www.herber.de/bbs/user/67072.xls
Grüße, Bernd
Anzeige
Problem gelöst
08.01.2010 12:12:06
Bernd
Jetzt habe ich es doch noch hinbekommen. Die dritte Zeile unten musste am Ende des Codes eingefügt werden:
...
With wbZiel
.SaveAs strFile, _
FileFormat:=xlText, CreateBackup:=False 'Zeile neu aufgenommen f. tabstopp getrennt
.Close
End With
Grüße, Bernd
Anzeige

Forumthreads zu verwandten Themen

Gefilterte Dateien in txt exportieren
Gerhard

Namd zusammen
Gibt es eine Möglichkeit ausschliesslich gefilterte Dateien in eine txt Datei zu speichern?
Habe eine grosse Tabelle aus der ich nur einzelne Spalten (andere Spalten sind via VBA ausgeblendet) benötige und aus diesen noch sichtbaren Spalten via Autofilter nochmals eingren...
18.08.2008 21:35:19
Thread-ID: 1002746
4 Beiträge
xls in asccii-txt file wandeln ?
Thomas

Guten Tag,
wir haben hier eine Excel Datei mit 10 Spalten und 5 Zeilen.
Mit einem Klick soll aus diesen 10 Spalten und 5 Zeilen eine ASCCII Datei erstellt werden,
Wobei die einzelnen Spalteninhalte an einer bestimmten Stelle in der ASCCII Datei stehen müssen.
zB. Spalte 1-5 soll...
29.01.2009 17:56:00
Thread-ID: 1045112
4 Beiträge
Anzeige
Excel-Daten in TXT umwandeln
dani

Hallo zusammen
ich bins nochmal.
Ich muss aus einer Excel-Tabelle mit Daten in verschiedenen Spalten ein txt-file generieren können.
Das klappt auch bestens, aber die Daten in einer Zeile sollten ohne Abstände dargestellt werden.
Jetzt sieht das im txt-file so aus:
Satz_ID...
20.02.2009 13:29:00
Thread-ID: 1052429
7 Beiträge
Anzeige
zwei Textdateien in eine Excel-Datei importieren
erick

Moin,
ich importiere mit beigefügtem Makro eine Datei (C:\Drucke\SUB\bis2000.dfu)
Die Zeilenanzahl ist variabel.
Jetzt möchte/muss ich in die gleiche Datei Daten aus einer weiteren Datei ((C:\Drucke\SUB\ab2000.dfu) gleicher Aufbau) importieren.
Ich möchte die Daten der 2ten Da...
03.04.2009 09:18:19
Thread-ID: 1066570
2 Beiträge
in txt umwandeln
Susann

Hallo,
ich habe eine Excelliste mit Artikelnummern, diese sind allerdings nicht alle gleich lang, also z.B.
000000991235
0000156913
00000009009153
und jetzt möchte ich diese in ein txt Dokument umwandeln, sodass es im Editor wie folgt aussieht:
000000991235;1
0000156...
12.05.2009 13:55:03
Thread-ID: 1074592
3 Beiträge
TXT Datei in Excel & Sortieren
chris58

Hallo !
Ich wollte nachfragen, ob mir ein User helfen kann. Ich habe eine TXT Datei, die soll in eine Excel Datei umgewandelt werden. Das importieren geht ja, aber............ es soll dann so, wie in der beigefügten Datei oben, dargestellt werden. Ich habe bereits mit "in Spalten" probiert,...
16.05.2009 13:43:28
Thread-ID: 1075629
3 Beiträge
Umwandlung einer Excel-Datei in eine Textdatei.
Peter

Sehr geehrte Damen und Herren,
Sie haben mir bereits schon einmal mit der Umwandlung einer Excel- in eine Textdatei geholfen. Leider gibt es sehr "pingelige" Programme, die Textdateien mit einer sehr genauen Formatierung erfordern. Ich habe Ihnen eine Datei hochgeladen, in welcher die Anspr...
13.07.2009 21:08:12
Thread-ID: 1088323
4 Beiträge
Bei Export in .txt Datum umwandeln
Daniel

Hallo Zusammen,
ich habe in Spalte B ein Datum mit Uhrzeit in "deutschem Format" stehen.
Nun exportiere ich einen Bereich in eine Textdatei, dort brauche ich das Datum
aber als "TTMMJJJJ hh:mm". Was muss ich in meinem Makro ändern, damit ich
dieses Ergebnis bekomme?
Sub sav...
15.07.2009 11:07:46
Thread-ID: 1088769
8 Beiträge
Dateiname in Einzelbestandteile umwandeln
Axel

Hallo
ich habe folgendes Problem:
ich speichere eine Datei nach einer ganz bestimmten Syntax:
Projektnummer_Projektname_Dokument_1.xls
Wie kann ich aus dem abgespeicherten Namen (also aus activeworkbook.name) die einzelnen Bestandteile auslesen und als String wider ausgeben? (Sp...
24.08.2009 17:38:45
Thread-ID: 1098205
10 Beiträge
Textdatei einlesen und Dateinamen in Zellen
Pascal

Hallo zusammen,
ich hätte mal eine Frage an euch.
Ich bekomme monatlich ca 20 Textfiles zu einem Thema per Mail geschickt und möchte alle in einer Excel Datei zusammenfassen (DIe Inhalte der Textfiles in einem Excelsheet untereinander schreiben lassen)
Allerdings gibt es eine Besond...
08.10.2009 10:04:40
Thread-ID: 1108100
4 Beiträge
WORD-Datei in EXCEL-Datei umwandeln
Werner

Excel-Level: befriedigend
Hallo Freunde,
habe mal ein Frage, die sich auf Excel und Word zugleich bezieht: Was muss man tun, um ein mit WORD
erstelltes Manuskript, also eine Word-Datei, in eine Excel-Datei umzuwandeln. Die hier zur Debatte stehende WORD-Datei ist wie
folgt auf...
22.10.2009 14:24:46
Thread-ID: 1111301
7 Beiträge
Anzeige
bestimmte Zeilen aus TXT Datei einlesen
Andre´

Hallo alle zusammen,
Ich habe eine TXT Datei https://www.herber.de/bbs/user/65766.txt
wo folgendes ausgelesen werden soll.
Es sollen nur die Daten aus TXT Datei (Pfad: C:\Test.txt) in Array eingelesen werden, wenn folgende Bedingung erfüllt ist:
zwischen der 86 bis 94 Stelle mu...
11.11.2009 11:08:16
Thread-ID: 1116129
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

XLS in das .TXT Format per VBA konvertieren

Schritt-für-Schritt-Anleitung

  1. Vorbereitung des Excel-Dokuments: Stelle sicher, dass Du die Excel-Datei, die Du konvertieren möchtest, geöffnet hast. Es sollte sich um eine .xls-Datei handeln, die das benötigte Tabellenblatt enthält.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Neues Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xls)" und wähle Einfügen > Modul.

  4. VBA-Code einfügen: Füge den folgenden VBA-Code in das neue Modul ein:

    Sub ExcelInTxtUmwandeln()
   Dim strFile As String
   Dim wbZiel As Workbook
   Dim wksZiel As Worksheet

   ' Dateiname für das txt-Dateiformat festlegen
   strFile = Application.GetSaveAsFilename( _
       InitialFileName:="Export.txt", _
       FileFilter:="Text (Tabstopp-getrennt) (*.txt), *.txt")

   If strFile = "Falsch" Then Exit Sub

   ' Aktives Arbeitsblatt kopieren
   ActiveSheet.Copy
   Set wbZiel = ActiveWorkbook
   Set wksZiel = wbZiel.Worksheets(1)

   ' Datei im .txt Format speichern
   With wbZiel
       .SaveAs strFile, FileFormat:=xlText, CreateBackup:=False
       .Close
   End With
End Sub

  5. Makro ausführen: Schließe den VBA-Editor und kehre zu Excel zurück. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro ExcelInTxtUmwandeln auswählst und auf "Ausführen" klickst.

Häufige Fehler und Lösungen

  • Fehler beim Speichern: Wenn Du eine Fehlermeldung erhältst, dass das Dateiformat nicht unterstützt wird, stelle sicher, dass Du das richtige FileFormat im .SaveAs Befehl verwendest, in diesem Fall FileFormat:=xlText.

  • Excel gibt eine leere Datei aus: Überprüfe, ob das aktive Arbeitsblatt tatsächlich Daten enthält, die exportiert werden können.

  • Falsches Dateiformat: Wenn die exportierte Datei nicht im .txt Format vorliegt, überprüfe, ob die Dateiendung im strFile korrekt festgelegt ist.

Alternative Methoden

  • Makrorecorder nutzen: Du kannst den Makrorecorder aktivieren und die Schritte zum Speichern einer .xls-Datei als .txt aufzeichnen. Dies kann helfen, den richtigen VBA-Code zu ermitteln.

  • VBA-Hilfe: Suche in der VBA-Hilfe nach Beispielen für das Speichern von Dateien in verschiedenen Formaten. Dies kann dir zusätzliche Einblicke und Optionen bieten.

Praktische Beispiele

  1. Einfaches Beispiel: Verwende das obige Makro, um eine einfache Excel-Datei in eine .txt-Datei umzuwandeln, die Tabstopps als Trennzeichen verwendet.

  2. Batch-Konvertierung: Du kannst das Beispiel von welga nutzen, um mehrere .xls-Dateien in einem festgelegten Ordner in das .txt Format zu konvertieren.

    For lngCount = 1 To totFiles
   varDateiname = .FoundFiles(lngCount)
   Workbooks.Open varDateiname
   ActiveWorkbook.SaveAs Speicherpfad & "\" & Datname, FileFormat:=xlText
   ActiveWorkbook.Close
Next lngCount

Tipps für Profis

  • Fehlerbehandlung einbauen: Implementiere Fehlerbehandlungsroutinen in Deinen VBA-Code, um unerwartete Fehler abzufangen und zu protokollieren.

  • Automatisierung: Überlege, wie Du den gesamten Prozess in einen größeren Workflow integrieren kannst, um Daten regelmäßig zu exportieren.

  • Verwendung von vba cls: Stelle sicher, dass Du am Ende der Subroutine vba cls benutzt, um den Speicher zu bereinigen.

FAQ: Häufige Fragen

1. Was ist .xls?
.xls ist das Dateiformat für Excel-Arbeitsmappen, das in älteren Versionen von Excel verwendet wird. Ab Excel 2007 wurde das .xlsx Format eingeführt.

2. Wie kann ich eine .txt Datei in Excel umwandeln?
Du kannst eine .txt Datei öffnen, indem Du in Excel Daten > Aus Text/CSV auswählst und den Anweisungen folgst, um die Daten in ein Tabellenformat zu importieren.

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