将CSV导入到另一个工作表

我需要导入我的数据到另一个Excel工作表而不是活动工作表。

我有2张UI和DATA_List。 我的button在用户界面中。 我想将csv文件导入到data_list表单中。

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

将第一行更改为

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

您还需要更改该行

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

至

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