Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon AnR vom 28.02.2020, 16:43 Options

Export Exceldatei in "Textdatei" über VBA

Folgendes Ich hab das Problem das ich aus einem Worksheet einer Exceldatei eine "Textdatei" (Extension ändert sich fortlaufend) generieren muss.
Klappt auch alles ganz wunderbar, ich habe aber nun 2 Probleme:
1. Ich hab strikte File-konventionen und bei dem Export werden die Daten einer Zeile mit Tab getrennt und ich brauch aber ein Space.

Code zum Speichern sieht ungefähr so aus:
------------------------------------------------------------------------

ActiveWorkbook.SaveAs Filename:="C:\533_000\" & Dateiname, FileFormat:=xlText, CreateBackup:=False

-------------------------------------------------------------------------
Gibt es hier eine Möglichkeit über nen Parameter wie das Fileformat z.B. am Ende gleich das Tab durch Space zu ersetzen?

2. Desweiteren hab ich eine wissenschaftliche Zellformatierung mit 6 Dezimalstellen die wie folgt aussieht:
3.273547E+00 <---- momentanes Format
+3.273547E+00 <------ gebrauchtes Format

komischer Weise schreibt er bei negativen Werten das Vorzeichen wunderbar vor die Mantisse nicht aber bei positiven Zahlen.

Antwort schreiben

Antwort 1 von Beverly vom 28.02.2020, 17:41 Options

Hi,

zu deiner 1. Frage: vielleicht hilft dieser Code als Anregung

Sub textdateien_erstellen2()
    Dim Fso
    Dim fsoDatei
    Dim raBereich
    Dim loZeile As Long
    raBereich = Range("A1:C50")
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set fsoDatei = Fso.OpenTextFile("C:\Test\Text.txt", 8, True)
    For loZeile = 1 To UBound(raBereich)
       fsoDatei.Write raBereich(loZeile, 1) & ";" & raBereich(loZeile, 2) & ";" & raBereich(loZeile, 3) & " "
    Next
    fsoDatei.Close
End Sub

zu deiner 2. Frage: ungetestet - evtl. das Zellformat vor dem Export ins benutzerfdefinierte Format "+"0,00E+00 umwandeln.

Bis später,
Karin

Antwort 2 von DeadS vom 29.02.2020, 11:55 Options

Hm also das mit dem benutzerdefinierten format geht schonmal nicht hab ich auch schon versucht, da gibts dann mit den Minuswerten probleme weil er da dann jeweils nen + davor setzt

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken