Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1316to1320
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
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.

    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!

    288 Forumthreads zu ähnlichen 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 Tabellenblatt speichern nicht ganze Arbeitsm
    Horst

    Hey !
    Da eine meiner Arbeitsmappe immer mehr Arbeitsblätter (Tabellen) bekommt. Möchte ich diese irgendwie ausgliedern und nur bei bedarf wieder reinladen.
    Kann ich das irgend wie per Marko oder zu Fuß erledigen?
    Das heißt unter ihrem Namen ablegen. Und irgendwie (per extra Menüpunk...
    19.03.2009 09:54:34
    Thread-ID: 1061709
    3 Beiträge
    Anzeige
    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
    Automatisch berechnen nur in einem Tabellenblatt
    Gerrit

    Moin,
    habe das automatische berechnen gernerell ausgeschaltet, jedoch bei einem Tabellenblatt brauche ist es.
    Gibt's hier ne Möglichkeit?
    Vielen Dank!
    Gerrit
    20.06.2009 23:56:05
    Thread-ID: 1083169
    22 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
    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
    2
    33
    13
    2
    9
    7
    21
    11
    13
    4
    17
    21
    3
    1
    4
    10
    3
    2
    8
    1
    2
    1
    4
    3
    2