Ｅｘｃｅｌ２０１０、ＳｅｎｄＫｅｙｓの文字化け対策

Ｅｘｃｅｌ２０１０は、手頃な価格で高機能な表計算ソフトです。
マクロを使用すると、色々な作業を自動化する事ができて、大変便利です。

しかし、マクロでＳｅｎｄＫｅｙｓを使用すると、日本語が文字化けする場合が有ります。使用したパソコンは、
下記のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ１０（６４ｂｉｔ）ビルド 10586.164
表計算ソフト　　　：　Ｅｘｃｅｌ２０１０（３２ｂｉｔ）

以下、Ｅｘｃｅｌ２０１０、ＳｅｎｄＫｅｙｓの文字化け対策を記載して行きます。

（項目１）
　・マクロでＳｅｎｄＫｅｙｓを使用すると、日本語が文字化けする場合が有ります。
　・以下のマクロでは日本語で文字化けしませんが、余分な文字が送信される等で不安定です。
　　SendKeys "エクセル将棋館", True

　・一方、Wscript.Shellを使用したマクロは安定していますが、日本語で文字化けが発生します。
　　With CreateObject("Wscript.Shell")
　　　　.SendKeys "エクセル将棋館", True
　　End With

（項目２）
　・色々と考えた結果、クリップボードを利用する事を試して見ました。
　・手順は、以下の通りです。
　　�@セルに送信したい文字列を入力する。
　　�Aセルをコピーする。
　　�BWscript.Shellを使用したSendKeysで送信する。

　・コードを下記に示します。
　　Range("A1") = "エクセル将棋館"

　　Range("A1").Select
　　Selection.Copy

　　With CreateObject("Wscript.Shell")
　　　.SendKeys "^v", True
　　End With

（項目３）
　・上記の方法で、日本語が文字化けする事無く、安定して送信できました。
　・纏めると、以下の表となります。
　　

（項目４）
　・以上で、Ｅｘｃｅｌ２０１０、ＳｅｎｄＫｅｙｓの文字化け対策は終了です。