Excel VBA質問箱 IV

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

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


17852 / 76732 ←次へ | 前へ→

【64326】Re:フォルダ名の集計
質問  初心者  - 10/1/30(土) 18:14 -

引用なし
パスワード
   ▼かみちゃん さん:
名前間違い、すいませんでした。


>Sub Test1()
> Dim ss As String
> Dim v As Variant
> 
> ss = "Singer1 Music_aaa AAA"
> v = Split(StrConv(ss, vbNarrow), " ")
> Cells(1, 1).Resize(, UBound(v) + 1).Value = v
>End Sub

↑これを参考に、今までの分を全て載せると

Option Explicit
Public cnt, Pop As Integer

Sub test3()

  Dim FolderSpec As String
 
  FolderSpec = FolderPath
 
  cnt = 1
  Pop = 1
 
  If FolderSpec <> "" Then
    ListUp FolderSpec
  End If

End Sub
Sub ListUp(FolderSpec)
  Dim Folder_Collection As Object
  Dim Folder_List As Variant
  Dim ss As String
  Dim v As Variant
  
  Set Folder_Collection = CreateObject("Scripting.FileSystemObject").GetFolder(FolderSpec).SubFolders

  For Each Folder_List In Folder_Collection
  
    Cells(cnt, 1) = Folder_List.Name
    ss = Folder_List.Name
    Cells(cnt, 2).Value = Split(StrConv(ss, vbNarrow), " ")
    v = Split(StrConv(ss, vbNarrow), " ")
    Cells(cnt, 3).Value = v
 
   cnt = cnt + 1
  Next
End Sub


Function FolderPath() As String
 
  Dim Shell As Object
 
  Set Shell = CreateObject("Shell.Application").BrowseForFolder(0, "フォルダを選択してください", 0, "")
 
 
  If Shell Is Nothing Then
    FolderPath = ""
  Else
    FolderPath = Shell.Items.Item.Path
  End If

End Function

こうしたのですが、C列もB列と同じ「スペースより前半の名前」になってしまい、
>Sub Test1()
> Dim ss As String
> Dim v As Variant
> 
> ss = "Singer1 Music_aaa AAA"
> v = Split(StrConv(ss, vbNarrow), " ")
> Cells(1, 1).Resize(, UBound(v) + 1).Value = v
>End Sub
のように、うまくわかれてくれません。

どこがおかしい部分なのでしょうか。
    Cells(cnt, 1) = Folder_List.Name
    ss = Folder_List.Name
    Cells(cnt, 2).Value = Split(StrConv(ss, vbNarrow), " ")
    v = Split(StrConv(ss, vbNarrow), " ")
    Cells(cnt, 3).Value = v

だとおもうのですが。変え方がわからず・・・

やりたいこと
A列:フォルダ名全て
B列:スペースより前半の名前
C列:スペースより後半の名前

としたいです。
1 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 発言

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