將數據追加到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 

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