Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelle mit "" in txt Datei

Forumthread: Zelle mit "" in txt Datei

Zelle mit "" in txt Datei
07.03.2006 13:31:17
Kisselstein
Hallo Zusammen,
ich erzeuge mit diesem Code aus einem Excelblatt eine Txt Datei.
ActiveWorkbook.SaveAs Filename:="C:\Dokumente und Einstellungen\Eigene Dateien\Import_TXT\" & ziel2.Name & ".txt", FileFormat:=xlText, _
CreateBackup:=False
Das klappt auch ohne Fehler.
Allerdings habe ich in einigen Zellen folgendes Format stehen:
F1,-1 oder F1,1
in dem Textdokument setzt er das dann immer mit "" also
"F1,-1" und "F1,1"
ich brauch das aber ohne "" da ich diese Datei in ein weiteres Programm laden möchte und dieses benötigt genau diese Format ohne ""
Gruß und Danke
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle mit "" in txt Datei
07.03.2006 23:34:05
Sigi
Hi,
ab Excel 2002 gibt es den Paramenter local:=true. Das hilft dir in Excel 2000 leider nicht, da kannst du es etwa so lösen ...
Option Explicit
Dim Datei As Variant
Dim z As Long
Dim s As Long
Dim AnzZeilen As Long
Dim AnzSpalten As Long
Dim Zeile As String
Dim Nr As Long
'Const Trenner As String = ";"
Const Trenner As String = vbTab
Sub AlsTextdateiSpeichern()
Datei = ActiveWorkbook.Name
Datei = Left(Datei, Len(Datei) - 4)
Datei = Application.GetSaveAsFilename( _
Datei & ".txt", "txt-Dateien (*.txt), *.txt")
If Datei False Then
Call DateiSchreiben
End If
End Sub

Private Sub DateiSchreiben()
AnzZeilen = ActiveSheet.UsedRange.Rows.Count
AnzSpalten = ActiveSheet.UsedRange.Columns.Count
Nr = FreeFile()
Open Datei For Output As #Nr
For z = 1 To AnzZeilen
Zeile = ""
For s = 1 To AnzSpalten - 1
Zeile = Zeile & Cells(z, s).Text & Trenner
Next s
Zeile = Zeile & Cells(z, AnzSpalten).Text
Print #Nr, Zeile
Next z
Close #Nr
End Sub

Gruß
Sigi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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