用新数据replace现有的数据

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

我无法删除旧logging。 目前我手动删除工作表，并创build一个新的工作表“结果”，然后运行macros。 我正在寻找一个自动化的过程，每次调用macros时结果都会更新。 它应该replace旧的数据，并只显示当前filter的结果。

'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 

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