Ik zit nog met die UTF-8 bij het inlezen.
Daarom voegde ik 'Origin:=65001' toe aan de 'Open-file' lijn.
Dan wordt de TXT file goed ingelezen maar na invoegen in de TBL wordt de '€' terug een 'â'.
( Ik heb de code hier in txt laten staan om rood te kunnen kleuren)
Sub Inlezen_PayConiq_TXT()
filetoopen = Application.GetOpenFilename("Text Files (*.txt), *.txt") 'welke tekstfile wil je lezen
If filetoopen <> False Then 'geldige filenaam ?
Workbooks.OpenText filetoopen, _
Origin:=65001, StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 5), Array(3, 1), Array(4, 1), Array(5, 2), Array(6, 2), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1))
arr = ActiveSheet.UsedRange 'gegevens inlezen in array
ActiveWorkbook.Close False 'tekstfile sluiten
'' TOT HIER GOED
With Sheets("Gegevens").ListObjects("TBL_Payconiq") 'je payconiq-tabel
.ListRows.Add.Range.Range("A1").Resize(UBound(arr), UBound(arr, 2)).Value = arr 'nieuwe gegevens toevoegen
'' HIER IS HET €-TEKEN VERVANGEN DOOR â
With .DataBodyRange
.Sort .Range("B1"), xlAscending, , .Range("C1"), xlAscending, Header:=False 'sorteren op datum en tijd
.RemoveDuplicates Columns:=Array(1), Header:=xlNo 'dubbele boekingen er uit gooien
End With
End With
End If
End Sub