| |
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 05/12/26(月) 15:26 -
