| |
参考になるか分かりませんが・・・
私も2000→2003で障害が発生して解決したので報告しておきますね！
処理内容はAAAシートにあるデータをフィルターを行い、
BBBシートに貼り付けるという単純な処理でした。
2003で実行すると「Pasteメソッドが失敗しました」というエラーで
原因はコピー元の選択方法(Select)がまずい様で・・・
カラム選択の部分をレンジで選択するように変更した結果OKとなりました。
※他のマクロでも同じような事をやっているが問題ないのに、
このマクロではかならずエラーになる
※何か前後の処理が影響しているかも・・・
解決すると良いですね。がんばって下さいね！
以下ソースとなります
'AAAシートをフィルターし、BBBシートに貼り付け
Sheets("AAA").Select
Range("A2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1"
↓問題部分
'Columns("A:H").Select
↑問題部分
↓変更部分
Range("A2:H2").Select
Range(Selection, Selection.End(xlDown)).Select
↑変更部分
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("BBB").Select
ActiveWindow.SmallScroll Down:=-3
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
|
|
tora
- 07/5/26(土) 15:04 -
