VBA フォルダ内のテキストファイル名でワークシートを作成する方法

スポンサーリンク

VBAでフォルダ内のテキストファイル名でワークシートを作成する方法

「C:\tmp\」配下にある「*.txt」のファイルをファイル名でExcelのワークシートを作成します。

コード全体

Sub createWorkSheet()

    Dim targetPath As String
    Dim newSheet As Worksheet

    Dim dirPath As String
    dirPath = "C:\tmp\"
    
    Dim txtExtension As String
    txtExtension = "*.txt"
    
    targetPath = Dir(dirPath & txtExtension)
        
    Do While targetPath <> ""
        
        Worksheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = targetPath
        targetPath = Dir()
        
    Loop

End Sub

参考資料、サイト

Microsoft.docs

コメント

タイトルとURLをコピーしました