リモートからexe,excel起動
ローカルで下記のプログラムがあってこれを同じワークグループ違う端末から起動させたい。
ｅｘｐｌｏｒｅでリモートからこのｅｘｅを実行するとシートの変更は行っているようだが自動的にｅｘｃｅｌが開かない。
初心者でわからないのですが、リモート操作場合、全く考え方を変えないといけないのでしょうか？
ちなみにｘｌａｐｐをｑｕｉｔしていないのは、EXCEL開いた後でまだ手動で変更したいのでEXEだけ先に終了させています。
Public Sub Main()
Dim xlApp As Excel.Application
Dim bookOrg As Excel.Workbook
Dim sheetOrg As Excel.Worksheet
Dim Status As Boolean
Dim Ret As Boolean
If App.PrevInstance Then End
MsgBox App.Path
MsgBox CopyFile("c:\test.xls", App.Path & "\test.xls", False)
Set xlApp = New Excel.Application
Set bookOrg = xlApp.Workbooks.Open(App.Path, "\test.xls")
bookOrg.Worksheets("testFormat").Copy before:=bookOrg.Worksheets("testFormat")
Set sheetOrg = bookOrg.Worksheets("testFormat (2)")
'シートの内容変更
bookOrg.Application.Visible = True
Set sheetOrg = Nothing
Set bookOrg = Nothing
Set xlApp = Nothing
End Sub
リモートツールは何を使ってます？TerminalServiceか何か？
それとも、もしかして、
たとえばネットワークフォルダを開いて別マシン上にある
exeファイルをダブルクリックしただけとか？
(この場合は、リモート実行などではなく、
別マシン上のExeを自マシン上で実行しているだけですが)
sayさん 早々のご返答ありがとうございます。
リモート側ツールは何を使用していません。（上のもしかしての方法でしか行っていません。）
リモート側に何かいるのでしょうか？
いるのでしたら、リモート側は勝手に使用できないので断念しようと思っています。
ポイントになるのは、どこで実行させたいかです。
●相手マシン上のExeを自OS上で実行させたいのなら、アクセス権限さえあれば、
「エクスプローラで相手マシンのフォルダを開いてダブルクリック」で実行可能です。
●相手マシン上のExeを相手OS上で実行させたいのなら、
なんらかのリモート実行の仕組み(WMI,CGI,TerminalService,pcAnyWareなど)が必要です。
>リモート側に何かいるのでしょうか？
>いるのでしたら、リモート側は勝手に使用できないので断念しようと思っています。
場合によってはTerminalServiceあたりが使えるようになっているかもしれませんので、
リモート側の管理者に問い合わせてみては？
say返答ありがとうございます。
運用は、相手マシンOS上で自EXEを起動させて自マシンでシートデータを変更して相手マシンにそのシートを開いて表示させたい。
ちなみに相手マシンにはoffice excelがインストールされています。
自マシンで保存、相手マシンはフォルダ、ファイルを常時監視して
ファイルが作成されれば開くってのは？
とりあえず、掲示板内検索で、「リモート」で調べてみては？
| ツイート |  |