|
▼ぴょんきち さん:
まずは、アップしたコードをそのまま貼付け、Sample1あるいはSample2を実行して
感覚を把握してください。
で、以下は、Sample1をベースに、ファイル名を一覧にしています。
実際には、表示したい項目も様々あるんだろうと思いますが、まずはツカミとして。
Sub Sample1()
Dim myPath As String
Dim myFile As String
Dim c As Range
myPath = Get_Folder
If myPath = "" Then Exit Sub
Application.ScreenUpdating = False
With Sheets("Sheet1") '<== 編集シート 実際のシート名に
.Cells.ClearContents
.Range("A1").Value = "ファイル名"
Set c = .Range("A2") '編集開始位置
myFile = Dir(myPath & "\")
Do While myFile <> ""
c.Value = myFile
Set c = c.Offset(1)
myFile = Dir()
Loop
.Columns("A").AutoFit
End With
Set c = Nothing
Application.ScreenUpdating = True
End Sub
|
|