excel分析ツ-ル（フ-リエ変換）を含むマクロ記録でエラ－

質問

似たような質問ばかりですみません。自分でマクロが組めないので、excelの分析ツ-ル（フ-リエ変換）の処理を含めたマクロ記録を行った後、実行したところ、「実行時エラ－1004　ATPVBAENXLA(フ-リエ変換の分析ツ-ル)が見つかりません。ファイル名及びファイルの保存場所が・・・」というメッセ-ジが出ました。
質問1.分析ツ－ル処理を含む操作をマクロ記録すること自体に問題があるのでしょうか？
質問2.このエラ-の考えられる原因は何でしょうか？
よろしくお願いいたします。

回答No.1

Wendy02 · ベストアンサー

こんばんは。Wendy02です。

前回の回答のお礼を読んで、思うことがあったのですが、締められてしまったので、何も言えなかったのですが、前回と同様に、記録マクロで行っているなら、解決できるかと思いました。もともと、２次元のFFTの知識も、単にFFTの認識もまったくないので、私などは、そこから入っていかなくてはなりません。この回答者は分らないからと、早めに見限らないでくださいね。（^^;　amineさんが、見限らない限りは、私は、ここでも解決するものと思います。

さすがにFFTは、使用することがないので、明確な回答にはなっていないのです。

それで、今回の件ですが、

(1),(2)のご質問自体は、例えば、ちゃんとアドインが入っていれば、こんな状態ではよいのですが、

Application.Run "ATPVBAEN.XLA!Fourier", ActiveSheet.Range("$A$1:$A$8"), _
ActiveSheet.Range("$E$1"), False, False

そうでないなら、アドインを入れてしまえばよいのですね。
一応、エラーチェックを入れておきますので、エラーが出たら、エラーを返すようになります。なお、位置は、適当に変更してください。

Sub AddinFunctionalTest()
With AddIns("分析ツール - VBA")
If .Installed = False Then
　 .Installed = True
End If
'アドインファイル自体は入れてあること。
On Error Resume Next
Application.Run "'" & .FullName & "'!" & "Fourier", _
　　 ActiveSheet.Range("$A$1:$A$8"), _
　　 ActiveSheet.Range("$E$1"), _
　　 False, False
End With
If Err.Number > 0 Then MsgBox Err.Number & " : " & Err.Description
End Sub

ただ、これで、エラーが出る場合は、正しくアドインが入っていないことが予想されます。今度こそ、解決すると良いですね。

お礼

Wendy02様、早々かつご丁寧なご回答をありがとうございます。決して、見限ったわけではありません。ここのカテゴリ-は質問が多く、あっという間に目に付かなくなってしまうので、早くお礼をしなければと思っただけです。教示いただいたうち、後者でperfectです！２次元のフ-リエ変換作業がものすごく楽になりました（喜）。大変お世話になりました。