将数据追加到excel中外部csv的表格

Question

如果我有一个excel文件中有数据的表格，如何使用“获取外部数据 - 来自csv”将数据追加到该表格中。我的表最后一个单元格是在A3016，然后我突出显示了A3017单元格，并从该单元格中选择“获取外部数据”，数据被导入，但它不属于表格，就像我手动将数据添加到下一个空闲单元格一样。

Answer 1

你可以尝试添加该VBA代码，以达到预期的效果：

Sub Append_CSV_File() 

    Dim csvFileName As Variant 
    Dim destCell As Range 

    Set destCell = Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1)  'CHANGE SHEET NAME 

    csvFileName = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv),*.csv", Title:="Select a CSV File", MultiSelect:=False) 
    If csvFileName = False Then Exit Sub 

    With destCell.Parent.QueryTables.Add(Connection:="TEXT;" & csvFileName, Destination:=destCell) 
     .TextFileStartRow = 2 
     .TextFileParseType = xlDelimited 
     .TextFileCommaDelimiter = True 
     .Refresh BackgroundQuery:=False 
    End With 

    destCell.Parent.QueryTables(1).Delete 
    End Sub 

让我知道，如果你的作品。