Excel VBA質問箱 IV

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

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


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

13200 / 76734

←次へ　｜　前へ→


	【69040】Re:\と\の間

UO3 - 11/5/11(水) 22:46 -


	引用なし

	パスワード

▼ヨッシーさん：

↑で、「一般論」としての文字列分解というコードをアップしましたが
もしかしたら、やりたかったことは、ＰＣにログインしているユーザーＩＤを
知りたいということだったのかな？

もしそうなら以下。

この機能を実行する場合、VBE画面のツールー参照設定にて
WindowsScriptHostObjectModel にティックをつけ参照可能にしておいてください。

Sub Sample2()
'WindowsScriptHostObjectModel に参照設定。

　　Dim myNetObject As IWshRuntimeLibrary.WshNetwork
　　Dim WinUser
　　Dim ExcelUserList　 '1から始まる2次元の配列
　　Dim ExcelUser
　　
　　Set myNetObject = New IWshRuntimeLibrary.WshNetwork
　　WinUser = myNetObject.UserName
　　MsgBox WinUser
　　'以下はおまけ　オフィスをインストールしたときに設定したユーザー名
　　ExcelUserList = ThisWorkbook.UserStatus
　　ExcelUser = ExcelUserList(1, 1)
　　MsgBox ExcelUser
End Sub

2 hits

▼

【69037】\と\の間 ヨッシー 11/5/11(水) 21:58