|
▼ちゃっぴ さんへ
回答有難うございます。
>クリップボードを経由してコピーしているのが問題では?
>
>ついでにSelect,Activateするのやめましょう!
>
>Sub FileCopy()
> Dim wbkData1 As Workbook
>
> Set wbkData1 = Workbooks.Open Filename:="D:\DATA111.xls"
コピペするとこの部分が赤字になってしまいコンパイルエラーになってしまいます。
どの様になっているのですか?
> wbkData1.Columns("A:G").Copy _
> Destination:=WorkBooks("DATA222.xls").Range("A1")
> wbkData1.close
>End Sub
>
>このソースで同じことが出来ると思います。
>
>ちなみにクリップボードの内容消去はこれで出来ます。
>
>Application.CommandBars(93). _
> Controls(4).Execute
>
>クリップボードツールバーが出ていない場合はエラーになります。
なにぶん初心者なので、わからないことが多くてすみません。
よろしくお願いします。
動作環境:WIN98、EXCEL2000
|
|