2023-10-16から1日間の記事一覧
Option ExplicitSub CopyDataAndSaveNewWorkbook() Dim SourceFolder As String Dim SourceFile As String Dim NewWorkbook As Workbook Dim Pathtest As Object Dim Filename As String Dim wb As Workbook Set Pathtest = ThisWorkbook.ActiveSheet.Cells(…