2023-10-01から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(…