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

请告诉我这是否适合您。

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

1 个答案: