| 
    
     |  | ▼ちゃっぴ さんへ 
 回答有難うございます。
 
 >クリップボードを経由してコピーしているのが問題では?
 >
 >ついでに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
 
 
 |  |