マクロの自動記録について

質問

Sub Macro1()
'Macro1 Macro
'Keyboard Shortcut:Ctrl+a
Application.Run"ATPVBAEN.XLA!Sample",Worksheets("sheet1").Range("$A$2:$AD$31"),ActiveCell,"R",10,False
ActiveCell.Offset(0,1).Select
End Sub

　これは、マクロの自動記録を用いて、『ツール＞分析ツール＞サンプリング』の動作を自動的に生成されたマクロ（プログラム）を書き直したものです。
　このマクロを実行しようとすると、『実行時エラー'1004':'ATPVBAEN.XLA'が見つかりません。ファイル名およびファイルの保存場所が正しいか確認してください。』と出て、マクロが実行できません。どうすればよいでしょうか？

回答No.2

KenKen_SP · ベストアンサー

「分析ツール」アドインが開かれていないためです。

事前に[ツール]-[アドイン]で有効にしておくか、マクロなら、Workbooks.Open で ATPVBAEN.XLA を開いてから、ご提示のマクロを実行すれば良いと思います。

回答No.1

noname#29107

記録したPCと実行しようとしているPCが違うのではないですか？
エラーの発生するPCは、ツール・アドインで分析ツールのチェックがされていない状態になっていることはないでしょうか？