|
>一番目の質問に書き忘れたのですが、
>★の部分が2文字と、3文字のファイル名があるのですが、
>その場合はどのように処理をしたらいいのでしょうか?
それはどのように判別すればよいのでしょうか?
実際のファイル名をいくつか挙げていただけませんか?
何らかの法則がないことには、処理できませんので。
>上だと、一つのファイルに対して、上のコードを書かないといけないのですよね?
>でも、各々30個以上のファイル数があり、30個以上
ひとまずフォルダ内のファイル名をセルに抽出するマクロを載せておきます。
Sub ファイル名抽出マクロ()
Dim myFileName As String
Dim myDir As String
myDir = "C:\Data\" 'フォルダの指定
myFileName = Dir(myDir & "*", vbHidden + vbSystem)
Do
Range("A65536").End(xlUp).Offset(1).Value = myDir
Range("B65536").End(xlUp).Offset(1).Value = myFileName
myFileName = Dir()
Loop Until myFileName = vbNullString
Range("A1").Value = "フォルダ名"
Range("B1").Value = "ファイル名"
Columns("A:B").AutoFit
End Sub
|
|