シート 列挙したシート名を返す

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][シート 列挙したシート名を返す]
Function ファイル列挙シート名(tgtPath As StringAs 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





Production Japan Import Application. Since 1998