Excel Textkonvertierungs-Assistent

Hallo zusammen,

verwendet wird Excel 365 Business in Version 1812 auf Windows 10.

Es gilt Werte aus einer txt-Datei in eine Excel-Tabelle zu importieren. Dabei ist zu beachten, dass die Werte mit Komma getrennt und Dezimaltrenner Punkt vorliegen. Das muss für die Verwendung in Excel konvertiert werden (Werte getrennt und Dezimaltrenner
mit Komma).

In vorherigen Excel-Versionen konnte ich Werte mit Hilfe des Textkonvertierungs-Assistent in eine beliebige Zelle importieren (siehe dazu Link).

In der eingangs genannten Excel-Version wird ein namenloses Dialog geöffnet, der mir kaum Möglichkeiten der Konvertierung bietet.

Beim direkten Öffnen einer txt-Datei mit Excel wird mir der Textkonvertierungs-Assistent wie gehabt angeboten. Das ist in Ordnung.

Wie bekomme ich den Textkonvertierungs-Assistent für einen Import in eine bestehende Excel-Tabelle zurück (analog zum oben genannten Link)?

Vielen Dank

Wie kann ich hinter her etwas löschen

Untereinander ist wohl besser falls das geht. Ich arbeite leider nicht so häufig mit Excel. Hauptsache ich spare mir den Aufwand immer alles einzeln beim Einlesen umstellen zu müssen.

Hallo Julian,

probiere es mal mit folgendem Makro.

Es liest dir alle Dateien aus deinem gewünschten Ordner ein und trennt dann die Spalte und ändert das Dezimaltrennzeichen.

Sub TextKonvertieren()

Dim FSO As Object, objFolder As Object, objFile As Object, objReadFile As Object

Dim varTmp As Variant, varOut As Variant

Dim dest As Range

Dim myString As String
'Hier den Pfad zu deinem Ordner anpassen

Const myPath = "C:\Users\claus\Desktop\myFolder\"
Set FSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = FSO.getfolder(myPath)
For Each objFile In objFolder.Files

    If Right(objFile.Name, 3) = "dat" Then

        Set dest = ActiveSheet.Cells(Rows.Count, "A").End(xlUp)(2)

        Set objReadFile = FSO.opentextfile(myPath & objFile.Name)

        myString = objReadFile.readall

        objReadFile.Close

        varTmp = Split(myString, Chr(10))

        dest.Resize(UBound(varTmp) + 1) = Application.Transpose(varTmp)

    End If

NextWith ActiveSheet.Columns("A:A")

     .TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _

        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _

        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), DecimalSeparator:=".", _

        ThousandsSeparator:=",", TrailingMinusNumbers:=False

End With

End Sub

Claus

Hallo

Ich will dir diese lästige Fleissarbeit ersparen und würde dir daher zu einen Drittanbieter Tool wie Diesem raten:

https://www.download-source.de/3800/ABC-Amber-C...

Ich habe den starken Verdacht, dass es dir helfen kann.

VG

Dimi

Hallo Julian,

soll jede .dat-Datei in eine eigene Excel-Mappe oder sollen die alle untereinander kopiert werden?

Claus