Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72229 / 76807

←次へ　｜　前へ→


	【9063】Re:エクセル起動時に、他のＰＣに知らせるには？

kein - 03/11/17(月) 1:31 -


	引用なし

	パスワード

もしOSがWin2000かXPで、Messengerサービスが動作していれば

Private Sub Workbook_Open()
　 Dim FSO As object
　 Const Opc As String = "\\ネットワークPC名\C\"
　 Const UN As String = "ユーザー名"
　 Const Msg As String = " ○×のエクセルが起動しました♪"
　
　 Set FSO = CreateObject("Scripting.FileSystemObject")
　 If FSO.GetDrive(Opc).IsReady Then
　　　Shell "CMD.EXE /C NET SEND " & UN & Msg, 6
　 End If
　 Set FSO = Nothing
End Sub

というようなイベントを、Personal.xls に入れておけば、相手に通知できるかと
思います。当方には環境がないので、テストは出来ませんがあしからず。

1 hits

▼

【9060】エクセル起動時に、他のＰＣに知らせるには？ row 03/11/16(日) 22:18