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

xlsm als txt speichern

Forumthread: xlsm als txt speichern

xlsm als txt speichern
19.06.2013 13:48:29
Maris
Hallo Leute,
ich habe mich durch das Forum gearbeitet und nichts passendes gefunden was wirklich weiterhilft.
Ich möchte einfach nur das aktive Tabellenblatt als txt.Datei (Tabstopp-getrennt) speichern. Pfad: xyz
Die Ursprungsdatei soll weiter geöffenet beleiben. Also nur eine Txt.Datei gespeichert und abgelegt werden.
Kann mir jemand kurz mit einem Code aushelfen?
Gruß,
Christian

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: xlsm als txt speichern
19.06.2013 13:50:50
Klaus
Hi Christian,
Makrorekorder an, Speichern als TXT, Makrorekorder aus.
Grüße,
Klaus M.vdT.

AW: xlsm als txt speichern
19.06.2013 13:55:07
Dirk
Das sollte dir weiterhelfen .... einfach F1 drücken im Editor solltest du nicht weiter kommen ;)
ActiveWorkbook.SaveAs

AW: xlsm als txt speichern
19.06.2013 14:02:30
Maris
Hab ich schon gemacht.
  • 
Sub alsTxTspeichern()
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\cma\Documents\VBA\Datei_1txt", FileFormat:=xlText, _
CreateBackup:=False
End Sub

    • Hier wird aber das ursprungsfile als txt überschrieben und ich will ja nur ein file speichern. Am besten mit fortlaufender Nummer.

    Anzeige
    AW: xlsm als txt speichern
    19.06.2013 14:11:51
    Klaus
    Hi Christian-Maris,
    langsam wird ein Schuh draus. Aber warum schreibst du nicht gleich im ersten Post was du möchtest?
    Fortlaufende Nummern sind möglich, aber aufwendig. Einfacher ist ein Datum/Zeit Index. Probier mal:
    Sub alsTxTspeichern()
Dim SaveName As String
SaveName = "Datei_" & Format(Now, "YYYYMMDD_HHMMSS")
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\cma\Documents\VBA\" & SaveName & ".txt", FileFormat:=xlText, _
CreateBackup:=False
End Sub
    Grüße,
    Klaus M.vdT.

    Anzeige
    AW: xlsm als txt speichern
    19.06.2013 14:12:09
    Maris
    Hab ich schon gemacht.
  • 
Sub alsTxTspeichern()
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\cma\Documents\VBA\Datei_1txt", FileFormat:=xlText, _
CreateBackup:=False
End Sub

    • Hier wird aber das ursprungsfile als txt überschrieben und ich will ja nur ein file speichern. Am besten mit fortlaufender Nummer.

    Anzeige
    AW: xlsm als txt speichern
    19.06.2013 14:10:36
    Rudi
    Hallo, 
    Public Sub prcCreateTXT()
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim strText As String
Dim i As Integer
Dim sFile
Const strPre As String = vbTab
Reset
sFile = Application.GetSaveAsFilename(Range("a1"), "Textdateien (*.txt), *.txt")
If sFile  CStr(False) Then
intFileNumber = FreeFile
Open sFile For Output As #intFileNumber
With ActiveSheet.UsedRange
For lngRow = 1 To .Row + .Rows.Count - 1
vntArray = Range(Cells(lngRow, 1), _
Cells(lngRow, .Column + .Columns.Count - 1))
vntArray = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntArray))
strText = Join(vntArray, strPre)
Print #intFileNumber, strText
Next
End With
Close #intFileNumber
End If
End Sub
    Gruß
    Rudi

    Anzeige
    AW: xlsm als txt speichern
    19.06.2013 14:22:06
    Maris
    Hallo Rudi deine Lösung ist fast perfekt. Es sollte nach Möglich das noch rein von Klaus...!
    "Datei_" & Format(Now, "YYYYMMDD_HHMMSS")
    ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\cma\Documents\VBA\" & SaveName & ".txt", FileFormat:=xlText, _

    AW: xlsm als txt speichern
    19.06.2013 14:27:04
    Rudi 
    Public Sub prcCreateTXT()
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim strText As String
Dim i As Integer
Dim sFile
Const strPre As String = vbTab
Reset
sFile = "C:\Users\cma\Documents\VBA\Datei_" & Format(Now, "YYYYMMDD_HHMMSS") &".txt"
intFileNumber = FreeFile
Open sFile For Output As #intFileNumber
With ActiveSheet.UsedRange
For lngRow = 1 To .Row + .Rows.Count - 1
vntArray = Range(Cells(lngRow, 1), _
Cells(lngRow, .Column + .Columns.Count - 1))
vntArray = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntArray))
strText = Join(vntArray, strPre)
Print #intFileNumber, strText
Next
End With
Close #intFileNumber
End Sub
    Gruß
    Rudi

    Anzeige
    AW: xlsm als txt speichern
    19.06.2013 14:33:09
    Maris
    vielen DANK!
    ;

    Forumthreads zu verwandten Themen

    Durchrechnung nur für ein Blatt ausschalten
    KlausF

    Hallo Excelperten!
    In einer Datei schalte ich beim Öffnen mittels AutoOpen-Makro die automatische Durchrechnung bisher ganz aus.
    Wie kann ich aber die automatische Durchrechnung nur für ein bestimmtes Blatt (z.B. Tabelle1) abschalten?
    Geht das überhaupt so eingeschränkt?
    Besten...
    13.09.2008 15:37:53
    Thread-ID: 1009517
    3 Beiträge
    Anzeige
    Einzelnes Tabellnblatt in PDF Datei speichern
    Jens

    Ich habe folgendes Problem, ich möchte ein einzelnes Tabellenblatt aus Excel heraus in eine Pdf Datei mittels command Buttom und Makro/ VBA speichern. Als PDF Prog nutze ich Adobe Acrobat Prof 8.0(bringt nen Converter mit).
    THX im Voraus
    27.02.2009 15:30:50
    Thread-ID: 1054824
    14 Beiträge
    nur eine Tabelle anwählen, falls ...
    Peter

    Guten Tag
    Gelegentlich wähle ich in einer Arbeitsmappe gleichzeitig mehrere Tabellen an, wenn ich beispielsweise bei allen die gleichen Änderungen durchführen will.
    Nun habe ich mir eine Routine geschrieben, die auf allen Tabellen ein Passwort setzt oder entfernt.
    Diese Routine läuf...
    02.06.2009 09:34:43
    Thread-ID: 1078545
    8 Beiträge
    Range(C12:E30) als .txt speichern / exportieren ?
    udo-d

    Hallo Profis,
    hat evt. Jemand von Euch einen Code, mit dem ich nur einen best. Zellenbereich
    eines best. Tabellenblattes ( Name zB: "Auswertung" )
    Bereich C12:E30 als Textdatei exportieren / speichern kann ?
    im ges. Workbook sind mehrere Tab.Blätter - weis nicht ob das wichtig...
    12.10.2009 17:56:56
    Thread-ID: 1109157
    12 Beiträge
    VBA:einzelnes Blatt in neuer Datei speichern +mehr
    habneFrage

    Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
    Ic...
    30.10.2009 08:03:49
    Thread-ID: 1113145
    14 Beiträge
    Name nur einmal im Tabellenblatt
    Heidi

    Hallo zusammen,
    gibt es die Möglichkeit einem Tabellenblatt zu sagen, dass z. B. der Name "Martin" nur 1 x vorkommen darf? Natürlich sind die Namen variabel.
    Vielen Dank und Gruß
    01.12.2009 11:37:55
    Thread-ID: 1121180
    5 Beiträge
    xls als txt abspeichern | Herbers Excel-Forum
    Michael
    Guten Morgen,
    ich habe folgendes Problem: Ich muss eine xls-Datei im txt-Format abspeichern, dabei ist folgendes zu beachten: Es muss der Bereich von A4 bis G220 ausgegeben werden (es soll in der txt. datei genau so angeordnet sein wie in der xls-datei), dabei muss beim abspeichern gleich ein N...
    26.01.2010 07:17:01
    Thread-ID: 1132885
    18 Beiträge
    Alle Reiter als .txt-Datei abspeichern
    F.

    Hallo zusammen
    Ganz offensichtlich habe ich Wünsche, die nicht meinen Kenntnissen entsprechen. ;) Deshalb meine nächste Frage an Euch.
    Ich habe eine stattliche Anzahl von Reitern, welche ich einzeln als txt-Datei abspeichern möchte. Da Anzahl der Reiter variert jedes Mal. Wie kann dies...
    27.01.2010 15:19:35
    Thread-ID: 1133441
    22 Beiträge
    Tabelle als TXT speichern mit richtiger Zeilenanz.
    Joni

    Hallo,
    ich habe das Problem, dass beim Speichern eines Tabellenblattes als TXT am Schluss noch eine Leerzeile mitgespeichert wird. Da ich die Zeilenanzahl der Textdatei auslese und auswerte habe ich somit immer eine Zeile zu viel. Gibt es eine Möglichkeit, dass wirklich nur befüllte Zeilen...
    29.01.2010 18:38:40
    Thread-ID: 1134231
    4 Beiträge
    Anzeige
    Workbooknamen als txt abspeichern
    Burghard

    Hallo,
    ich bräuchte mal Hilfe. Ich benötige ein Makro, dass nicht den Blattnamen abspeichert (siehe unten), sondern den Namen des Workbooks und zwar nicht im xls-Format, sondern im txt-Format (mit Tabs).
    Hilfe wäre nett.
    Schönen Gruß (und frohe Ostern!)
    Burghard
    Public Sub...
    03.04.2010 16:25:08
    Thread-ID: 1150097
    2 Beiträge
    Spalteninhalt als TXT speichern
    Jockel

    Hallo,
    ich habe eine Tabelle mit vielen Spalten. Dabei möchte ich die Spalte H mit einem Makro als TXT abspeichern.
    Wenn möglich, nicht dass ich erst die anderen Spalten alle löschen muss und dann das Dokument als txt abspeichern muss. Wenn möglich, will ich nur die Spalte H abspeichern...
    16.08.2010 13:10:13
    Thread-ID: 1172421
    5 Beiträge
    Aufgez. Macro funktioniert nur auf einem Blatt
    Mathias

    Liebes Forum,
    ich habe ein Macro aufgezeichnet, das nicht mit anderen Diagrammblättern in derselben Exceldatei funktioniert. Was muss ich tun, damit ich das Macro auf jedem Tabellenblatt oder sogar in anderen Exceldateien ausführen kann, ohne dass ich den Laufzeitfehler "Das Element mit dem...
    03.12.2010 11:15:32
    Thread-ID: 1189846
    11 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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