2024-11

Sub InportCsv() Dim fso As Object Dim ts As Object Dim ws As Worksheet Dim tFilePath As String Dim dataArray As Variant ...

Option Explicit Option Base 1 Public Const WS_DATA As String = "データ" Public Const NEW_FOLDER As String = "新規" Sub Create...

指定されたフォルダ内のサブフォルダ名とその中のファイル名取得 Option Explicit Option Base 1 Sub GetFolderAndFilesNameList() Dim fso As Object Dim fileO...

指定したフォルダ内にあるサブフォルダ名を取得する Option Explicit Option Base 1 Sub GetFolderNameList() Dim fso As Object Dim pfl As Object Dim f...

指定したフォルダ内のファイルを取得する(セルに直接書き込み) Option Explicit Option Base 1 Sub GetFilesNameList2() Dim fso As Object Dim folderName As...

指定したフォルダ内のファイル名を取得 (配列) Option Explicit Option Base 1 Sub GetFilesNameList() Dim fso As Object Dim fileName As Object '取...