Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
740to744
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige