Excel VBA質問箱 IV

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

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


13951 / 76734 ←次へ | 前へ→

【68283】ファイル名を取得するマクロの意味
質問  えっちゃん  - 11/2/20(日) 16:13 -

引用なし
パスワード
   手作業でフォルダの中のファイルの名前を1つずつExcelシートの
コピーペーストしていたところ、先輩からこのマクロボタンで一瞬でできるよ
と言われました。
おかげですぐに作業が終わったのですが、これを機にマクロを覚えようと勉強を始めました。
ただ、マクロが難解で私の持っている本ではおぼつかないのです。
先輩に聞きたいところですが、プロジェクトリーダーされていて多忙で、質問しにくいのです。
もしよろしければ1行ずつ何をしているのか解説いただいてもいいでしょうか。


Option Explicit
Public cnt, Pop As Integer
Sub macro1()

  Dim FolderSpec As String
  
  FolderSpec = FolderPath
  
  cnt = 1
  Pop = 1

  If FolderSpec <> "" Then
    Lists FolderSpec
  End If

End Sub


Sub Lists(FolderSpec)

  Dim File_Collection As Object
  Dim File_List As Variant
  Dim Folder_Collection As Object
  Dim Folder_List As Variant
  
  Set File_Collection = CreateObject("Scripting.FileSystemObject").GetFolder(FolderSpec).Files
  
  'Foldor の名前をセルに入力
  Cells(cnt, Pop) = FolderSpec
  cnt = cnt + 1

  For Each File_List In File_Collection

    Cells(cnt, Pop + 1) = File_List.Name
    cnt = cnt + 1
  Next
  
  Set Folder_Collection = CreateObject("Scripting.FileSystemObject").GetFolder(FolderSpec).SubFolders
  
  For Each Folder_List In Folder_Collection
    Pop = Pop + 1
    Lists FolderSpec & "\" & Folder_List.Name
  Next
  Pop = Pop - 1
End Sub


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

End Function
1 hits

【68283】ファイル名を取得するマクロの意味 えっちゃん 11/2/20(日) 16:13 質問
【68284】Re:ファイル名を取得するマクロの意味 かみちゃん 11/2/20(日) 16:48 発言
【68296】Re:ファイル名を取得するマクロの意味 kanabun 11/2/21(月) 12:21 発言
【68302】Re:ファイル名を取得するマクロの意味 kanabun 11/2/21(月) 21:05 発言
【68310】Re:ファイル名を取得するマクロの意味 neptune 11/2/22(火) 11:17 発言
【68319】Re:ファイル名を取得するマクロの意味 kanabun 11/2/23(水) 19:25 発言
【68320】Re:ファイル名を取得するマクロの意味 neptune 11/2/23(水) 21:54 発言
【68311】Re:ファイル名を取得するマクロの意味 neptune 11/2/22(火) 11:24 発言

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