Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gegenteil von OpenText?

Gegenteil von OpenText?
18.01.2005 11:23:23
Markus
Gibt es eine Methode, welche genau das Gegenteil von OpenText macht?
Ich möchte dieselben Optionen für die Speicherung in eine .txt-Datei haben.
Gruss
Markus

Beispiel zur OpenText-Methode
In diesem Beispiel wird die Datei DATA.TXT geöffnet. Dabei wird beim Einlesen der Textdatei in ein Tabellenblatt das Tabulatorzeichen als Trennzeichen verwendet.
Workbooks.OpenText filename:="DATA.TXT", _
dataType:=xlDelimited, tab:=True

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gegenteil von OpenText?
18.01.2005 12:05:53
Gert Seler
Hallo Markus,
ich habe sehr wenig VBA-Kenntnisse.
Mit "Save" Datei, und "dataType:=xlDelimited,tab=false". Zum Abschluß
"Close" Datei, sollte das klappen.
Siehe hier : "Services" --->"Excel-Recherche" und "Datei sichern und schließen"
eingeben.
mfg
Gert

Es gibt nichts gutes, außer man tut es.
AW: Gegenteil von OpenText?
18.01.2005 12:22:57
Uduuh
Hallo,
kannst du mit Open#, Print# realisieren.
Option Explicit

Sub Export()
Dim strSep As String, strDat As String, _
iCol As Byte, iRow As Integer, _
iR As Integer, iC As Byte, strTxt As String, _
strMldg As String
iRow = ActiveSheet.UsedRange.Rows.Count
iCol = ActiveSheet.UsedRange.Columns.Count
strSep = InputBox("Trennzeichen?" & vbLf & "('Abbrechen' für TAB)")
If strSep = "" Then
strSep = Chr(9)
Else
strSep = Left(Trim(strSep), 1)
End If
DateiName:
strDat = InputBox("Dateiname?", "DateiName", ThisWorkbook.Path & "\")
If strDat = "" Then Exit Sub
If InStr(strDat, ":\") = 0 Then
strDat = ThisWorkbook.Path & "\" & strDat
End If
If Dir(strDat) <> "" Then
strMldg = MsgBox("Datei bereits vorhanden. Überschreiben?", vbYesNo)
If strMldg = vbNo Then GoTo DateiName
End If
On Error GoTo DateiFehler
Open strDat For Output As #1
For iR = 6 To iRow
strTxt = ""
For iC = 1 To iCol
strTxt = strTxt & Cells(iR, iC) & strSep
Next iC
strTxt = Left(strTxt, Len(strTxt) - 1)
Print #1, strTxt
Next iR
Close #1
MsgBox ("Die Datei " & strDat & " wurde angelegt.")
Exit Sub
DateiFehler:
MsgBox ("Fehler in Dateinamen!")
Resume DateiName
End Sub

Gruß aus'm Pott
Udo

Anzeige
AW: Danke Uduuh für Beispiel o.T.
18.01.2005 12:50:46
Gert Seler
Danke Uduuh für Beispiel
18.01.2005 12:59:26
Markus
Ist genau das, was ich gesucht habe!
Thanks
Markus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige