access vba からrubyのスクリプトを実行して標準出力を受け取りたい

Question

access vbaでボタンを押したら、rubyスクリプトを実行して、標準出力の結果を受け取りたいです。
accessでは、Shell関数を使うとコマンドラインでの実行が出来るらしいとのことでやってみたのですが、黒い画面が一瞬立ち上がってすぐ消えるだけでなにも実行されません。何か良い方法はないでしょうか?

wshオブジェクトでも

Private Sub cmd_sample_Click()
    '' Shellを使ったパターン
    Call Shell("ruby " + "\c\rubytest\puts_args.rb", vbNormalFocus)
    '' wshを使ったパターン
    Dim wsh As Object
    Dim ret As Long
    Dim str As String
    str = "ruby \c\rubytest\puts_args.rb"
    Set wsh = CreateObject("Wscript.Shell")
    ret = wsh.Run(str, 1, True)
End Sub

# puts_args.rb
f = File.open("test_.txt", "w")
f.puts "test"
f.close

Answer 1

サンプルコード丸々ぱくりました。
変更したのは、sCmd = "cd C:\rubytest & ruby puts_args.rb"この部分のみです。
カレントディレクトリに移動するコマンドに続けて、rubyを実行するコマンドを記述することで実行できました。

    Dim WSH, wExec, sCmd As String, Result As String
    Set WSH = CreateObject("WScript.Shell")         ''(1)
    sCmd = "cd C:\rubytest & ruby puts_args.rb"                                ''(2)
    Set wExec = WSH.Exec("%ComSpec% /c " & sCmd)    ''(3)
    Do While wExec.Status = 0                       ''(4)
        DoEvents
    Loop
    Result = wExec.StdOut.ReadAll                   ''(5)
    MsgBox Result
    Set wExec = Nothing
    Set WSH = Nothing

Answer 2

\c\rubytest\puts_args.rbが間違っていて、エラーになっているのでは？
C:\rubytest\puts_args.rbの間違いでは？

Comments

[kuri_dev]

回答ありがとうございます。
パスを変更して実行してもファイルの中身は実行されていないようでした。

[otn]

そもそもRubyは実行可能ですか？
shell("ruby")で黒い画面が閉じるまで表示されたままにならないのなら、Rubyが実行可能ではないです。

・Rubyをインストールしましたか？
・PATHにRubyのインストール先の設定をしていますか？（RubyInstallerでインストールするとインストールの途中でPATHを設定するかと聞いてきたはずだが）

インストールはしたが、PATHに設定をしてしなかった場合は、ruby.exeのフルパス名を指定してください。
shell("C:\ruby～～～\bin\ruby.exe C:\～～～")

[kuri_dev]

ruby -v でインストールされたことを確認はしています。
shell("ruby")を実行すると、ruby.exeがちゃんと実行されます。
このように実行してもエラーなのか落ちます
Shell ("C:\Ruby25-x64\bin\ruby.exe C:\rubytest\puts_args.rb")
自己解決の方にも上げましたが、cdコマンドで実行ディレクトリに移動するコマンドに続けてrubyを実行するコマンドを記述してあげると動きました。
こんな感じです。
Shell("cd C:\rubytest & ruby puts_args.rb")

[otn]

> File.open("test_.txt", "w")
の書き込むファイル名もフルパスで書いておくべきでしたね。

[kuri_dev]

確かにそうでした...。アドバイスありがとうございます！

Answer 3

rubyに関しては分からないですが、コマンドラインの標準出力を取得する方法は下記が参考になるかと。

Office TANAKA - Excel VBA Tips[MS-DOSコマンドの標準出力を取得する]

Comments

[kuri_dev]

ありがとうございます！参考になりました！