|
▼ちゃっぴ さん:
回答有難うございます。
しかし、私のところでエラーになるのは、下記の部位です。
書き方が悪くてすみませんです。
> 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することによって、画面がちらつくし、
>速度は低下するし、「百害あって一理なし」です。
|
|