スキルアップ・問題解決なら、モーグにおまかせ！

お疲れさまです。
 
色々と検索探してみたのですが、見つけることができなく、こちらへ投稿させていただきました。
 
実現したい内容でが、
ツールとして使っているExcel(toos-Form.xlsm)があります。そちらのdataシートに日々更新して
いるデータの内容(data_Table.xlsx)を上書きしたいのです。
 
毎日更新しているデータがあるファイルです。：
data_Table.xlsxのSheet1の内容をコピーしたい
 
ツールとして使っているファイルです。：
toos-Form.xlsm のdataシートに上書きしたい
 
下記のプログラムでは、ツールの方にdata2として追加されてしまいます。
 
Workbooks.Open "\\test\date\Database\data_Table.xlsx"
Worksheets(1).Select
 
ActiveSheet.Copy _
      Before:=Workbooks("toos-Form.xlsm").Sheets("data")
 
お忙しいとは思いますが宜しくお願い致します。

例えばですが、明示的にブックを指定してはいかがでしょうか。
’---------------------
    Dim ShtData As Workbook
    Workbooks.Open "\\test\date\Database\data_Table.xlsx"
     
    Set ShtData = ActiveWorkbook
     
    ShtData.Activate
     
    ActiveSheet.Copy _
          Before:=Workbooks("toos-Form.xlsm").Sheets("data")
’---------------------

あ、
ActiveSheet.Copy _
      Before:=Workbooks("toos-Form.xlsm").Sheets("data")
 
だと、
 
Workbooks("toos-Form.xlsm").Sheets("data")シートの後ろにコピーしてねって命令ですよ。
その辺を修正してはいかがでしょう。

お疲れさまです。
 
早速のご回答をありがとうございました。
こちらの部分が特に、わからない項目になります。
打開策を教えて頂けないでしょうか　BeforeとAfterしか見つかりません
でした。　プログラムに詳しくなくすみません。
 ActiveSheet.Copy _
          Before:=Workbooks("toos-Form.xlsm").Sheets("data")
 
お忙しいとは思いますが宜しくお願い致します。

シートをコピーするのではなく、データを data シートの範囲に値などで貼り付ける感じでしょうか。
一旦、マクロの記録でやってみましょう。

taitaniさん　
 
ありがとうございました。
マクロの記録というのを忘れかけておりました。
こちらでVBAを作っていけば、解決できるかもしれないですね
 
一旦、クローズさせていただきます。