シート 列挙したシート名を返す
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
| Function ファイル列挙シート名(tgtPath As String) As String '*********************************************** '指定フォルダ内のファイルの一覧を取得列挙する。 '返値：列挙したシート名を返す '拡張子指定可能 '*********************************************** '引数：tgtPath には取得列挙するフォルダフルパスを指定 Dim buf As String, i As Long, sht As Worksheet Dim 拡張子指定 As String, X As String 拡張子指定 = "jpg" '指定してください '指定しない場合は------------------- '拡張子指定 = "*" '----------------------------------- Set sht = ThisWorkbook.Worksheets.Add buf = Dir(tgtPath & "\*." & 拡張子指定) Do While buf <> "" i = i + 1 sht.Cells(i, 1) = buf buf = Dir() Loop X = sht.Name Set sht = Nothing ファイル列挙シート名 = X End Function |