Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
17871 / 76738 ←次へ　｜　前へ→
【64313】Re:フォルダ名の集計
発言  Abyss  - 10/1/30(土) 16:58 -
引用なし
パスワード
   お邪魔します。

折角Shellオブジェクトを使っていますから
これ一つで解決なると思いますが。

Sub myTest()

　　Dim oShell As Object
　　Dim oFolder As Object
　　Dim i As Long, e
　　
　　Set oShell = CreateObject("Shell.Application")
　　Set oFolder = oShell.BrowseForFolder(0, "フォルダ選択", 0)
　　If oFolder Is Nothing Then Exit Sub
　　
　　For Each e In oFolder.Items
　　　　If e.IsFolder Then
　　　　　　i = i + 1
　　　　　　Cells(i, 1) = e.Name
　　　　End If
　　Next

End Sub
0 hits
▼ 【64288】フォルダ名の集計 初心者 10/1/30(土) 11:45 質問
【64289】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 11:55 質問
【64291】Re:フォルダ名の集計 初心者 10/1/30(土) 13:05 質問
【64292】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 13:27 発言
【64293】Re:フォルダ名の集計 初心者 10/1/30(土) 13:35 質問
【64295】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 14:00 発言
【64296】Re:フォルダ名の集計 初心者 10/1/30(土) 14:20 質問
【64298】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 14:27 発言
【64297】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 14:23 発言
【64299】Re:フォルダ名の集計 初心者 10/1/30(土) 14:40 質問
【64300】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 14:45 発言
【64301】Re:フォルダ名の集計 初心者 10/1/30(土) 15:24 質問
【64302】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 15:31 発言
【64303】Re:フォルダ名の集計 初心者 10/1/30(土) 15:38 質問
【64304】Re:フォルダ名の集計 初心者 10/1/30(土) 15:49 質問
【64305】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 16:03 発言
【64306】Re:フォルダ名の集計 初心者 10/1/30(土) 16:15 質問
【64307】Re:フォルダ名の集計 初心者 10/1/30(土) 16:21 質問
【64308】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 16:34 発言
【64310】Re:フォルダ名の集計 初心者 10/1/30(土) 16:56 質問
【64317】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 17:17 発言
【64323】Re:フォルダ名の集計 初心者 10/1/30(土) 17:42 質問
【64324】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 17:48 発言
【64326】Re:フォルダ名の集計 初心者 10/1/30(土) 18:14 質問
【64328】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 18:25 発言
【64332】Re:フォルダ名の集計 初心者 10/1/30(土) 20:27 質問
【64333】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 20:37 発言
【64334】Re:フォルダ名の集計 初心者 10/1/30(土) 20:46 お礼
【64313】Re:フォルダ名の集計 Abyss 10/1/30(土) 16:58 発言≪
【64315】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 17:06 発言
【64316】Re:フォルダ名の集計 Abyss 10/1/30(土) 17:11 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
17871 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free