PCを変えたところVBAでOpenClipboardエラー

Question

###前提・実現したいこと

エクセルで、入力内容からSQLを出力するマクロをつくって使っていたのですが、
PCを変えたらマクロのエラーが出るようになりました。
現在エクセル2016で、以前は2007だったような気がします。

###発生している問題・エラーメッセージ

DataObject:PutInClipboard OpenClipboard に失敗しました

###該当のソースコード

エラーソース箇所は以下です。

obj.PutInClipboard

###試したこと
課題に対してアプローチしたことを記載してください

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報

Comments

[seastar3]

SQLコードを自動作成するマクロということでしょうか。フィルタ条件をセルに入れるとデータベースからテーブルを抽出するようなマクロでしょうか。SQLはACCESS形式かMySQL形式かOracle形式か。またODBC接続は使用しているか、ご提示下さい。

[hoyama]

ご回答いただきありがとうございます。返信遅くなりまして申し訳ありません。「SQLコードを自動作成するマクロ」の方になります。

Answer 1

MSFormsライブラリの参照設定は正しくされているでしょうか？

32bit環境と64bit環境で格納場所が異なるようですので、環境が変わったことで正しく参照できなくなっている可能性が考えられます。

⇒参考

現象確認できる環境がなく、あてずっぽうでのアドバイスなのでハズしていたらごめんなさい。
参考になれば幸いです。

Comments

[hoyama]

何という事でしょう！
ご教授頂いた方法にて解決いたしました。ありがとうございます！
確かに古いPCは32bitで、新しいPCは64bitに変わっていました。

[解決方法]
表示＞マクロ＞編集＞ツール＞参照設定
・「Microsoft Forms 2.0 Object Library」にカーソルを合わせる（チェックは入った状態）。
・「参照」クリック
以下のパスを入力
C:\Windows\SysWOW64\FM20.DL

[seastar3]

なるほど、考慮すべきポイントの一つとして記憶しておきます。

[hoyama]

訂正します。
「C:\Windows\SysWOW64\FM20.DL」⇒「C:\Windows\SysWOW64\FM20.DLL」
また、これだけでは同じエラーがでてしまっており、解消されておりませんでした。

挿入＞ユーザーフォーム
をクリックした後に、
ツール＞マクロ＞(対象マクロを選択)＞実行
とすると成功します。

参考URLの『ユーザーフォームを挿入すると自動的にこのライブラリが参照設定されるので』部分が必用となる様です。