Excel VBA質問箱 IV

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

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


2271 / 13645 ツリー ←次へ | 前へ→

【69037】\と\の間 ヨッシー 11/5/11(水) 21:58 質問[未読]
【69039】Re:\と\の間 UO3 11/5/11(水) 22:19 回答[未読]
【69040】Re:\と\の間 UO3 11/5/11(水) 22:46 回答[未読]

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

引用なし
パスワード
   A1にパスが書かれています。

(例)C:\Documents and Settings\Kaoru\デスクトップ\宿題\201105


2番目の\と3番目の\の間のフォルダ名前をとりだすにはどうしたらいいのでしょうか?
こういうことはできますか?

【69039】Re:\と\の間
回答  UO3  - 11/5/11(水) 22:19 -

引用なし
パスワード
   ▼ヨッシー
こんなことですか?

Sub Sample()
  MsgBox Split([A1].Value, "\")(2)
End Sub

【69040】Re:\と\の間
回答  UO3  - 11/5/11(水) 22:46 -

引用なし
パスワード
   ▼ヨッシー さん:

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

もしそうなら以下。

この機能を実行する場合、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

2271 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free