VBA実行中に他のexcelファイルを操作する

Question

###前提・実現したいこと
とある温度計測器のAPIとVBAを使い、Excelファイルに計測器から取得した温度をペーストしていくようにしています。
温度を1秒ごとに記録していきたいので、Do-whileループの中で、温度を取得しては1秒待機する、という処理をしています。

###発生している問題・エラーメッセージ
下記のVBAコードでは、1秒ごとにしかマウス入力を受け付けず、温度を記録中に他のexcelファイルを操作することもできません。また、excelのシークバーやexcelファイルのウインドウを動かしていると、その間は温度の貼り付けが中断されてしまいます。
なにかよい方法はないでしょうか？

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

Sub PasteTemp()
  stopFlag=False
  Do
      DoEvents
      <現在の温度を取得する処理>
      <取得した温度をシートに貼り付ける処理>
      Application.Wait [Now()+"00:00:01"] '現在時刻より1秒間待機
  Loop While stopFlag=False '下のプロシージャの中止ボタンが押されるまで温度を記録し続ける 
End Sub

Sub StopPasteButton() 'ボタンを押すと温度の記録を注視
  stopFlag=True
End Sub

###補足情報(言語/FW/ツール等のバージョンなど)
Windows7
Excel 2007

Answer 1

ループの待ち時間をもっと短くして DoEvents 間隔を少なくすればある程度は対応できますが、
VBAはマルチスレッドには対応していないので、
ユーザーが操作していたり、他の処理が走ったりすると止まりますね。
エクセルのVBAだけでユーザー操作を許しつつ、確実に１秒間隔にするのは難しいと思います。

専用のアプリでデータベースに書き込んで、それをエクセルのVBAから読み込むというようにするぐらいしかないと思います。

Comments

[minato_hy]

なるほど、VBA勉強し始めでまだ方法を知らないだけだと期待していたのですが、非マルチスレッドだったのですね……VBA単体での処理は諦めがつきそうです、ありがとうございます

Answer 2

サンプリングしてCSV形式などのファイルに落とすプログラムを、C++やC#またはJavaなどで作成して別アプリで動作させておき、EXCELでは、ファイルの更新を見てデータを読み出すように、処理を分けるかですね。
他の方も書いてますが、VBAでマルチスレッドを行うのはまず無理なので、サンプリング部分でスレッドを起こせるような言語で記述して処理を分けるのが一番いいかと思います。
ファイルに落とす場合は、ファイルのシェアや排他処理が必要になるかもしれません。

Answer 3

通常、１つのExcelブックを開いている状態で他のブックを開くと、同じエクセル上の２つ目のブックとして開くことになります。

ですが、マクロ処理を行うブックとは関係なく、裏作業で別のブックを操作したい、ということでよければ、
①１つ目のExcelブックを開く
②スタートメニューから新たにExcelを起動する
③②で起動したExcel上で他のブックを開く

上記のような方法で起動すると、②の時点で１つ目のExcelとは別の、２つ目のExcelとして起動します。
この２つ目のExcel上で別ブックを開くことで、１つ目のExcelのマクロ処理に影響せずに他のブックを操作することができると思います。
（Windows7/Excel2010にて動作確認）

別Excelで起動することにはメリットもありますが、Excel同士の連携という点ではデメリットあるため今回の目的に沿っているかはわかりません。
ひとつの方法として試す価値はあると思いますので、確認して使えるかどうか判断してみてください。