VBAのDIR関数でファイル名「0005」などが「5」だけにならない様にするには？

質問

あるフォルダ内に有るファイル郡の名称をDir関数で取得してExcelのシートのＡ列に並べるマクロなんですが、0で始まる数字のファイル名の場合、セルには0が省かれて入ってしまいます。
0011なら0011とそのままセルに入れるには（文字列として入れるには？）、マクロはどう書けばいいんでしょうか？

回答No.1

papayuka · ベストアンサー

単純にセルの書式設定をしてやれば良いと思います。

Sub aa()
Dim myName As String, i As Long
myName = Dir("c:\", vbNormal)
i = 1
Do While myName <> ""
　If myName <> "." And myName <> ".." Then
　　 Range("A" & i).NumberFormat = "@"
　　 Range("A" & i) = myName
　　 i = i + 1
　End If
　myName = Dir
Loop
End Sub

お礼

papayuka様へ

全体のプロシージャーまで書いて頂いて有難うございます。
簡単に出来ました。
有り難うございました。m(__)m