|
▼gogo さん:
こんばんは。
>もしよろしければ、教えていただけたら幸いです。
>以下のようなプログラムにおいて、
>「RangeクラスのPastespesialメソッドが失敗しました」
>とエラーがでてとまってしまうのですが、
>何が原因なのでしょうか。
原因は、RangeオブジェクトのPasteSpecial メソッドで
貼り付け可能なデータがクリップボードに存在しないからです。
例えば、
>Sub Macro3()
>myWorkBook = ThisWorkbook.Name
>Workbooks.Add
>newWorkBook = ActiveWorkbook.Name
>
>Workbooks(newWorkBook).Activate
>Workbooks(myWorkBook).Sheets(1).Copy _
> Before:=Workbooks(newWorkBook).Sheets(1)
Workbooks(myWorkBook).Sheets(1).cells(1,1).Copy
'とすれば、エラーは出ません。
>Workbooks(newWorkBook).Worksheets(1).Activate
>Cells(1, 1).Select
>
>Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
> :=False, Transpose:=False
'もっともこのコードでどんなデータを貼り付けたいのかわかりませんが・・・。
このコードで何をさせたいのか(仕様)を記述してみてください。
そうすれば、本当はどんなコードを追加すればよいか見えてくると思いますよ!!
|
|