Festlegen des Dateiursprungs beim Importieren von Textdateien mit VBA

Question

Ich arbeite mit einem VBA-Code, um TEXT-Dateien aus einem Ordner in Excel-Arbeitsmappen zu importieren. Meine Textdatei enthält nicht-englische Codierung/Herkunft und ich mag die Datei mit 1.253 griechischen Windows-Kodierung importieren, kann aber nicht herausfinden, wie die origin:="1253" hinzuzufügen (wenn ich bin rechts) in diesem Code:

Sub LoadPipeDelimitedFiles() 
'UpdatebyKutoolsforExcel20151214 
    Dim xStrPath As String 
    Dim xFileDialog As FileDialog 
    Dim xFile As String 
    Dim xCount As Long 
    On Error GoTo ErrHandler 
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) 
    xFileDialog.AllowMultiSelect = False 
    xFileDialog.Title = "Select a folder [Kutools for Excel]" 
    If xFileDialog.Show = -1 Then 
     xStrPath = xFileDialog.SelectedItems(1) 
    End If 
    If xStrPath = "" Then Exit Sub 
    Application.ScreenUpdating = False 
    xFile = Dir(xStrPath & "\*.txt") 
    Do While xFile <> "" 
     xCount = xCount + 1 
     Sheets(xCount).Select 
     With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _ 
      & xStrPath & "\" & xFile, Destination:=Range("A1")) 
      .Name = "a" & xCount 
      .FieldNames = True 
      .RowNumbers = False 
      .FillAdjacentFormulas = False 
      .PreserveFormatting = True 
      .RefreshOnFileOpen = False 
      .RefreshStyle = xlInsertDeleteCells 
      .SavePassword = False 
      .SaveData = True 
      .AdjustColumnWidth = True 
      .RefreshPeriod = 0 
      .TextFilePromptOnRefresh = False 
      .TextFilePlatform = 437 
      .TextFileStartRow = 1 
      .TextFileParseType = xlDelimited 
      .TextFileTextQualifier = xlTextQualifierDoubleQuote 
      .TextFileConsecutiveDelimiter = False 
      .TextFileTabDelimiter = False 
      .TextFileSemicolonDelimiter = False 
      .TextFileCommaDelimiter = False 
      .TextFileSpaceDelimiter = False 
      .TextFileOtherDelimiter = "|" 
      .TextFileColumnDataTypes = Array(1, 1, 1) 
      .TextFileTrailingMinusNumbers = True 
      .Refresh BackgroundQuery:=False 
      xFile = Dir 
     End With 
    Loop 
    Application.ScreenUpdating = True 
    Exit Sub 
ErrHandler: 
    MsgBox "no files txt", , "Kutools for Excel" 
End Sub 

Answer 1

ich glaube, ich war in Eile ... Hier ist die Antwort:

.TextFilePlatform = 1253