Question

我将数据从SQL表中提取到名为“Results”的工作表。根据用户在主工作表中给出的特定日期范围，从SQL表中提取输出。

我无法删除旧记录。目前我手动删除工作表并创建一个新表“结果”，然后运行宏。我正在寻找一个自动化过程，每次调用宏时结果都会更新。它应该替换旧数据，并仅根据当前过滤器显示结果。

   'Open Recordset'
        Set objMyRecordset.Source = objMyCmd
        objMyRecordset.Open
        For iCols = 0 To objMyRecordset.Fields.Count - 1
        Worksheets("Results").Cells(1, iCols + 1).Value = objMyRecordset.Fields(iCols).Name
        Next

        'Copy Data to Excel'
        Worksheets("Results").Range("A2").CopyFromRecordset objMyRecordset

Answer 1

像

这样的东西

 Worksheets("Results").Range("A1").CurrentRegion.Clearcontents

在添加新数据之前应该这样做

使用新数据替换现有数据

1 个答案: