Sub ブック作成() Dim 元ブック As Workbook Dim 元シート As Worksheet Dim 対象シート As Worksheet Dim 新ブック As Workbook Dim ファイルパス As String ' 元のブックを設定 Set 元ブック = ThisWorkbook ' シート6のA1セルの値を取得 Dim 新ブック名 A…

Sub CreateFoldersBasedOnCellValue() Dim ParentFolderPath As String ParentFolderPath = ThisWorkbook.Path ' ファイルと同じディレクトリのパスを取得 Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet6") ' シート名を適切に変更してくだ…

Sub Sample3() Dim f As Object, cnt As Long cnt = 1 'A列に作成日時 Cells(1, 1) = "作成日時" 'B列にファイル名称 Cells(1, 2) = "ファイル名" 'C列にファイルサイズ Cells(1, 3) = "ファイルサイズ" With CreateObject("Scripting.FileSystemObject") Fo…