Importieren von CSV in ein anderes Arbeitsblatt

Question

Ich muss meine Daten in ein anderes Excel-Arbeitsblatt anstelle des aktiven Arbeitsblattes importieren.

Ich habe 2 Blatt die Benutzeroberfläche und die DATA_LIST. Meine Schaltfläche befindet sich in der Benutzeroberfläche. Ich möchte die CSV-Datei in data_list Blatt importieren.

Sub btnImport_Click() 

Dim slect As String 
Set r = Range("A" & Cells(Rows.Count, "A").End(xlUp).Row + 1) 
With Application.FileDialog(msoFileDialogFilePicker) 
    .Show 
    If .SelectedItems.Count = 0 Then 
     MsgBox "Cancel Selected" 
     Exit Sub 
    End If 

    slect = .SelectedItems(1) 
End With 

With ThisWorkbook.Sheets("UI").QueryTables.Add(Connection:= _ 
"TEXT;" & slect, Destination:=r) 
    .Name = "Data" 
    .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 = True 
    .TextFileSpaceDelimiter = False 
    .TextFileColumnDataTypes = Array(1) 
    .TextFileTrailingMinusNumbers = True 
    .Refresh BackgroundQuery:=False 
End With 

Answer 1

Ändern Sie die erste Zeile zu

Set r = Worksheets("data_list").Range("A1") 

Sie auch die Linie

With ThisWorkbook.Sheets("UI").QueryTables.Add(Connection:= _ 
"TEXT;" & slect, Destination:=r) 

Um

With ThisWorkbook.Sheets("data_list").QueryTables.Add(Connection:= _ 
"TEXT;" & slect, Destination:=r)