Hallo an alle!
Ich habe ein Problem beim Importieren von Exceldateien. Mit dem nachfolgenden Makro importiere ich Textdateien.
Option Explicit
Sub Import_Textdatei()
Dim strExportfile As String
Dim strTMP As String
Dim strWert As String
Dim strZeile As String
Dim wksDatenblatt As Worksheet
Dim wkbAddIn As Workbook
Dim intDateinummer As Integer
Dim intColumn As Integer
Dim lngRow As Long
On Error GoTo ERRORHANDLER
strExportfile = Application.GetOpenFilename("Microsoft Excel-Dateien (*.txt), *.txt")
Set wkbAddIn = ThisWorkbook
Set wksDatenblatt = wkbAddIn.Sheets("Hilfstabelle Rechnungsdaten")
With wksDatenblatt
.Columns(1).ClearContents
intDateinummer = FreeFile
lngRow = 1
Open strExportfile For Input As #1
Do While Not EOF(1)
Line Input #intDateinummer, strZeile
intColumn = 1
strWert = strZeile
.Cells(lngRow, 1) = strWert
lngRow = lngRow + 1
Loop
Close #1
End With
Exit Sub
ERRORHANDLER:
Set wksDatenblatt = Nothing
MsgBox "Fehler"
End Sub
Das funktioniert auch soweit. Allerdings werden diverse Zeichen anders als in der Textdatei dargestellt, eingefügt. Anstelle von z.B. dem Eurozeichen () erhalte ich die Zeichen "â¬". Hat jemand eventuell eine Idee, wie ich die Textdatei einlesen kann, ohne dass an den Texten Änderungen vorgenommen werden? Wenn ich die Textdatei über die Excelfunktion "Daten -> Daten abrufen -> Aus Datei -> Aus Text/CSV" importiere, werden z.B. die Eurozeichen nicht verändert. Allerdings habe ich dafür kein Makro, was es erlaubt wechselnde Textdateien einzulesen.
Ich hoffe, das jemand von Euch einen Vorschlag für mich hat. Sollte meine Erklärung Fragen aufwerfen, weil ich etwas umständlich beschrieben habe, so gebt mir bescheid und ich werde versuchen das anders zu beschreiben.
Danke Euch schon mal,
Kasimir