在excel中将数据从外部csv附加到表中

Posted 2023-03-16

【中文标题】在excel中将数据从外部csv附加到表中

【英文标题】：append data to table from external csv in excel

【发布时间】：2017-11-16 02:49:43

【问题描述】：

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

【参考方案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

让我知道这是否适合你。

【讨论】：

谢谢，不知道是否可以不使用 vba..？

如果您更喜欢非 VBA 方法，那么您已经手动将导入的数据转换为表格

是的，但我怎样才能附加到现有的坦克？

好的，您可以将 csv 数据加载到不同的工作表上，并在现有表格的最后一行使用 =Sheet2!A1 这是 csv 数据所在的工作表并向下拖动直到结束。