Textdatei einlesen - Umlaute -
18.04.2006 06:25:51
Michael
ich lese mit folgendem code eine textdatei via makro ein. dabei habe ich das problem das mir die umlaute nicht richtig angezeigt werden.
bsp.
verstõrkung
Pr³fbericht
Flõchen
wo liegt da der fehler?
hier der code:
Application.DisplayAlerts = False
Sheets("diff").Select
ChDir "C:\Import\"
Workbooks.OpenText Filename:="C:\Import\diff.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, semicolon:=False, _
comma:=False, Space:=False, other:=False, OtherChar:="|", FieldInfo:= _
Array(1, 1), TrailingMinusNumbers:=True
Windows("diff.txt").Activate
Cells.Select
Selection.Copy
Windows("Import.xls").Activate
Cells.Select
Range("B1").Activate
ActiveSheet.Paste
Range("B1").Select
Range("A1").Select
Windows("diff.txt").Activate
ActiveWindow.Close
Range("A1").Select
Application.DisplayAlerts = True
bye an alle
Michael