質問

お世話になっております。
下記のマクロについて、ご指導願います。
試作研究費マクロ.xlsというファイルのマクロについてです。
試作研究費明細作成マクロ1()を実行すると、試試作研究費マクロ.xlsというファイルに貼りつける
ファイルを選択できるようになっており、それを選択すると、試作研究費マクロ.xlsに貼りつけられる
仕組みになっているのですが、エラーになります。
、「コピー領域と貼り付け領域 の違いでデータを貼り付けることが出来ません。 」というメッセージが出てきて処理できません。


デバックによると、下から二行目のActiveSheet.Pasteの部分が黄色く塗りつぶされています。
最近エクセル2007にしたのですが、エクセル2000で作成したマクロは使えないのでしょうか?
エクセル2000の時は問題なくできていたのですが。
何が原因なのかわかりかねますので、ご指導の程、よろしくお願いいたします。




Sub 試作研究費明細作成マクロ1()
'
' 試作研究費明細作成マクロ1 Macro
' マクロ記録日 : 2011/11/11 ユーザー名 :
'

'
Dim myFile
myFile = Application.GetOpenFilename()
If myFile = False Then Exit Sub
Workbooks.Open Filename:=myFile
Cells.Select
Selection.Copy
Windows("試作研究費マクロ.xls").Activate
Cells.Select
ActiveSheet.Paste
Range("F11").Select
End Sub

通報する

回答 (1件)

Windows("試作研究費マクロ.xls").Activate
Cells.Selectを
Windows("試作研究費マクロ.xls").Activate
Range("A1").Selectにしてみては

この回答への補足

こちらもご回答ありがとうごいます。

ただ、同様のエラーメッセージが出て、できないですね。

マクロ難しいです↓

このQ&Aは役に立ちましたか?0 件

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

新しく質問する

注目の記事

おしトピアプリ登場記念!コメントで最大1万円分のギフト券があたる!

話題のトピックにさくっとコメントできる「おしトピ」にAndroid版アプリに続きiPhoneアプリも登場! どちらかのアプリをダウンロードして指定のオーダーにコメントした方に抽選で最大1万分のアマゾンギフト券をプレゼント! フジテレビ出身のフリーアナウンサー長谷川豊氏の質問にも回答受付中!


新しく質問する

このカテゴリの人気Q&Aランキング

毎日見よう!教えて!gooトゥディ