自動化・効率化ならKTパソコンスクール

'ExcelからUWSC本体を起動する

Sub test1()

    Dim path As String

    'UWSC.exeのパス

    path = "○○\UWSC.exe"   

    Dim ret As Variant

    'UWSCを起動する

    ret = Shell(path, vbNormalFocus)

End Sub

'ExcelからUWSCのファイルを起動する

Sub test2()

    Dim path As String    

    'UWSC.exeのパス

    path = "○○\UWSC.exe"    

    Dim file As String   

    '起動させたいUWSCのファイルのパス

    file = "○○\test1.uws"   

    Dim ret As Variant    

    'ファイル名を引数として渡してUWSCを起動する

    ret = Shell(path & " " & file, vbNormalFocus)

End Sub

//UWSCのファイル（test1.uws)のコード

print "こんにちは!"

sleep(3)

'ExcelからUWSCのファイルを引数を渡して起動する

Sub test3()

    Dim path As String  

    'UWSC.exeのパス

    path = "○○\UWSC.exe"   

    Dim file As String

    '起動させたいUWSCのファイルのパス

    file = "○○\test2.uws"  

    Dim ret As Variant

    'ファイル名と引数を渡してUWSCを起動する

    ret = Shell(path & " " & file & " " & "KTパソコンスクール" & " " & _

    "こんにちは!", vbNormalFocus)

End Sub

//UWSCのファイル（test2.uws)のコード

print PARAM_STR[0] + "さん、"

print PARAM_STR[1]

sleep(3)