|
色々やり方があると思うけど..。
あるフォルダのブック名取得なら
[#843] ← 谷さんに消されてました。一応下に載せておきます。
とか
ブックを開かないんだったら
[#7197]
ついでにここも参考になるかと思います。
[#7962]
Sub 昇順()
Dim i As Long
With Application.FileSearch
.LookIn = "C:\Windows\デスクトップ"
.FileName = "*.xls"
If .Execute(SortBy:=msoSortByFileName, _
sortorder:=msoSortOrderAscending) > 0 Then
Range("A1").Value = "ファイル名"
Range("B1").Value = "フルパス"
For i = 1 To .FoundFiles.Count
Range("A" & i + 1).Value = Dir(.FoundFiles(i))
Range("B" & i + 1).Value = .FoundFiles(i)
Next
Else
MsgBox "エクセルファイルはありません。"
End If
End With
End Sub
Sub 降順()
Dim i As Long
With Application.FileSearch
.LookIn = "C:\Windows\デスクトップ"
.FileName = "*.xls"
If .Execute(SortBy:=msoSortByFileName, _
sortorder:=msoSortOrderDescending) > 0 Then
Range("A1").Value = "ファイル名"
Range("B1").Value = "フルパス"
For i = 1 To .FoundFiles.Count
Range("A" & i + 1).Value = Dir(.FoundFiles(i))
Range("B" & i + 1).Value = .FoundFiles(i)
Next
Else
MsgBox "エクセルファイルはありません。"
End If
End With
End Sub
|
|