Thats our macro code. Maybe you have to adjust it (depending on your selection in filter wizard)
Sub ConvertThroughFilterWizard(inputFilepath As String, targetFilepath As String)
’ Simulate the import wizard
Workbooks.OpenText Filename:= _
inputFilepath, Origin:=437, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, 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), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10 _
, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1)), _
DecimalSeparator:=“,”, TrailingMinusNumbers:=True
’ Save as Excel Workbook
Application.DisplayAlerts = False ’ do not mind overwriting a file
ActiveWorkbook.SaveAs Filename:= _
targetFilepath, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True ’ but do mind afterwards
ActiveWorkbook.Close
End Sub