既存のデータを新しいデータに置き換えます。

Question

SQLテーブルから「結果」というワークシートにデータを引き出します。出力は、メイン・ワークシートのユーザーが指定した特定の日付範囲に基づいて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 

などのやるべき新しいデータを追加する前にそれが