Excel VBA質問箱 IV

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

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


48768 / 76732 ←次へ | 前へ→

【32895】Re:フォルダ内のファイル名をセルに取りだす方法
回答  ちくたく WEB  - 05/12/26(月) 15:26 -

引用なし
パスワード
   tani さん。
こんにちは。

Sub フォルダの中のファイルの名前を取得()

Dim targetFolderName As String
Dim fileStr As String, allFiles As String
Dim cellNumber As Integer

  targetFolderName = folderBrowse()
  Range("C1").Value = targetFolderName
  '取りあえず、最初のファイルを設定しとく。
  '因みに、vbDirectory を vbNormalに書き換えると、ファイルだけが取得される。
  fileStr = Dir(targetFolderName & "\*", vbNormal)
  
  cellNumber = 1
  
  Do While fileStr <> ""
    Range("A" & cellNumber) = fileStr
    '選択したフォルダの中にある次のファイルの名前を取得。
    fileStr = Dir
    cellNumber = cellNumber + 1
  Loop
  
End Sub

Function folderBrowse()

Dim ShellApp As Object
Dim oFolder As Object
Dim targetFolderName As String
  
  Set ShellApp = CreateObject("Shell.Application")
  Set oFolder = ShellApp.BrowseForFolder(0, "フォルダ選択", 1)

  'まぁ、普通にExitFunction
  If oFolder Is Nothing Then
    Exit Function
  End If
  
  targetFolderName = oFolder.items.Item.Path

  folderBrowse = targetFolderName
  
End Function

3 hits

【32894】フォルダ内のファイル名をセルに取りだす方法 tani 05/12/26(月) 15:22 質問
【32895】Re:フォルダ内のファイル名をセルに取りだ... ちくたく 05/12/26(月) 15:26 回答
【32899】Re:フォルダ内のファイル名をセルに取りだ... tani 05/12/26(月) 15:55 お礼

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