WshScriptのSendKeysメソッドを使う - 素人がExcelVBAによる「一人働き方改革」に挑むブログ

ち～んｗ珍現象は続く

WshScriptのSendKeysメソッド

前回の

akashi-keirin.hatenablog.com

コチラの記事にid:imihito さんからコメントをいただいた。

そこでご紹介いただいたのは、コチラの方法。このうち、「WshShellのSendKeysをラップする」というやつを使わせていただくことにした。

要するに、バグがあることが分かっている方法を使うのを避けて、同じような機能を持つバグのないメソッドを使おうということ。極めて健全な対処法だと思う。

面白いなと思ったのが、

毎回CreateObjectすると負荷が大きくなるので、Static宣言+存在判定をしています。

という考え方。なるほど。Static変数をそういうふうに使うのか！　VBAのStatic変数って、プロシージャ内でしか使えなくて、イマイチ使いどころが分からなかったんだよな。クラス変数みたいに使えたらいいのに。

ただ、ちょっと気になる記述が。

代わりにオブジェクトを破棄する方法が無くなるので、wshShellオブジェクトがメモリに残り続けます。

むむむ。イマイチVBAのガベージコレクションの動作がよく分からないし、素人の悲しさ、メモリ関係もよく分かっとらんので、あまり気にしたこともないのだが、こうはっきり書いてあると、「メモリに残り続けるってのもマズいのかなあ」とかビビってしまう。

まあ、オブジェクトの破棄については、素人の浅知恵を後ほど披露するとして、ちょっとやってみた。

WshScriptのSendKeysメソッド呼び出し用プロシージャ

コチラのコードをちょっとだけ改造する。

リスト１　標準モジュール

Public Sub callWshScriptSendKeys(ByVal wsKeys As String, _
                                 Optional ByVal wsWait As Boolean, _
                                 Optional ByVal isFinal As Boolean)    '……(1)'
  Static objWshShell As Object
  If isFinal Then Set objWshShell = Nothing: Exit Sub    '……(2)'
  If objWshShell Is Nothing Then Set objWshShell = CreateObject("Wscript.Shell")
  Call objWshShell.SendKeys(wsKeys, wsWait)
End Sub

元のコードに付け加えたのは(1)の引数リストと(2)のコードだけ。

(1)の

Public Sub callWshScriptSendKeys(ByVal wsKeys As String, _
                                 Optional ByVal wsWait As Boolean, _
                                 Optional ByVal isFinal As Boolean)

では、省略可能な第３引数isFinalを設定している。

(2)の

If isFinal Then Set objWshShell = Nothing: Exit Sub

では、第３引数のisFinalがTrueだったら、objWshShellをNothingにしてそのままプロシージャを抜けるようにした。

全体の処理の最後に、第３引数isFinalをTrueにしてこのプロシージャを呼び出すことで、オブジェクトを破棄できると考えた。これが、素人の浅知恵の部分ｗ

まあ、そのために第１引数wsKeysにアテ馬のように文字列を与えないと呼び出せない（もちろん、""でいいんだけれど）ので、ブサイクといえばブサイクですけどｗ

SendKeysメソッド呼び出し回りの改造

VBAのApplication.SendKeysメソッドの使用をやめ、全面的にWshScriptのSendKeysメソッドに置き換える。

具体的には、

akashi-keirin.hatenablog.com

このときのリスト１を、リスト１で作成したプロシージャを呼び出す形に書き換える。

リスト２　標準モジュール

Public Sub cutText()
  Call callWshScriptSendKeys("^X")
  DoEvents
End Sub
Public Sub copyText()
  Call callWshScriptSendKeys("^C")
  DoEvents
End Sub
Public Sub pasteText()
  Call callWshScriptSendKeys("^V")
  DoEvents
End Sub
Public Sub selectAll()
  Call callWshScriptSendKeys("^A")
  DoEvents
End Sub

これで準備万端のはず。