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

Export txt - Bearbeitung per VBA

Forumthread: Export txt - Bearbeitung per VBA

Export txt - Bearbeitung per VBA
28.09.2006 11:55:48
ticonhh
Hallo liebes Forum,
exportiere eine xls nach txt. Leider wird bei den Beträgen, das Komma durch
ein Punkt ersetzt.
Frage: Kann man in VBA das bereits gespeicherte txt-file öffnen, bearbeiten wie
etwa "suchen und ersetzen". Wenn ja, wie ist der Ansatz ?
Dank und Gruss
ticonhh
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Export txt - Bearbeitung per VBA
28.09.2006 12:38:01
Heiko
Hallo
z.B. so:

Sub TextDatAendern()
Dim strPfad As String, strhelp As String
' Pfad anpassen
strPfad = "H:\EXCEL\EXCEL Privat\Beispiele\Dat_Test_Dateien\Test.txt"
Open strPfad For Binary As #1
strhelp = Space(LOF(1))
Get #1, , strhelp
Close #1
strhelp = Replace(strhelp, ".", ",")
Open strPfad For Binary As #1
Put #1, , strhelp
Close #1
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: Export txt - Bearbeitung per VBA
28.09.2006 15:46:32
ticonhh
Hallo,
erstmal vielen Dank für Deine Hilfe.
Nur leider tut sich nichts, dh er durchsucht glaube ich
nur die erste Zeile. Kannst mir auf die Sprünge helfen,
wie das ganze Blatt bzw eine bestimmte Spalte mit "find und replace"
bearbeiten kann ?
Dank und Gruss
ticonhh
Public 

Sub export()
Dim fileDatum As String
Dim fileBuchungsnummer As String
Dim fileName As String
Dim heute As Date
Dim strPfad As String, strhelp As String
heute = Date
fileBuchungsnummer = ThisWorkbook.Worksheets(2).Cells(2, 6).Value
fileDatum = Format(Date, "mmm") & Right(Year(Date), 2)
fileName = fileDatum & "_PIE_Salaries_" & fileBuchungsnummer & ".txt"
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets("xxx_Journal_Upload").Copy
Workbooks(Workbooks.Count).SaveAs fileName:="O:\xx\x\x\w\c\export_txt\" & fileName, FileFormat:=xlText
ActiveWorkbook.Close False
Application.DisplayAlerts = True
strPfad = "O:\xx\x\x\w\c\export_txt\" & fileName
Open strPfad For Binary As #1
strhelp = Space(LOF(1))
Get #1, , strhelp
Close #1
strhelp = Replace(strhelp, ".", ",")
Open strPfad For Binary As #1
Put #1, , strhelp
Close #1
End Sub

Anzeige
AW: Export txt - Bearbeitung per VBA
28.09.2006 17:31:37
Heiko
Hallo,
kannst du mal ein kleines von dir exportiertes txt-File (also noch mit Punkten drin) hochladen, damit ich schauen kann woran es liegt. Denn bei mir läuft mein Code ohne Probleme für die ganze Datei.
Gruß Heiko
;

Beliebteste Forumthreads (12 Monate)

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