Import af tekstfil med VBA i EXCEL ?
HejJeg har en tekstfil som indeholder semicolon-separerede værdier, der skal importeres i EXCEL. Denne import virker fint og er lavet i VBA med følgende kode:
Sub SupOpenTABFile()
Sheets("Rådata").Activate
Cells(1, 1).Select
Dim FN As String
FN = Application.GetOpenFilename("TEXT (*.txt),*.txt")
If FN = "False" Then Exit Sub ' user cancelled
Workbooks.OpenText Filename:=FN, Origin:=xlMSDOS, startRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
End Sub
Problemet er bare at æ, ø, og å som oprindeligt er anført i tekstfilen oversættes forkert under importen som:
├ª = æ
├© = ø
├Ñ = å
Hvordan undgåes denne fejloversættelse ?
VH
Ing
