| 
    
     |  | ▼ちゃっぴ さん: 
 回答有難うございます。
 しかし、私のところでエラーになるのは、下記の部位です。
 書き方が悪くてすみませんです。
 
 >  Set wbkData1 = Workbooks.Open Filename:="D:\DATA111.xls"
 コピペするとこの部分が赤字になってしまいコンパイルエラーになってしまいます。
 どの様になっているのですか?
 
 よろしくお願いします。
 
 >>  コピペするとこの部分が赤字になってしまいコンパイルエラーになってしまいます。
 >>  どの様になっているのですか?
 >>>  wbkData1.Columns("A:G").Copy _
 >>>    Destination:=WorkBooks("DATA222.xls").Range("A1")
 >
 >WorkSheetが抜けてました(;^_^A アセアセ・・・
 >
 >wbkData1.WorkSheets(1).Columns("A:G").Copy 〜
 >
 >マクロ記録するとSelectとかActivateが付いてくると思いますが、
 >片っ端から削除する方法を覚えましょう。
 >
 >ほとんどの場合、SelectとかActivateは不要です。
 >
 >Select,Activateすることによって、画面がちらつくし、
 >速度は低下するし、「百害あって一理なし」です。
 
 |  |