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(…

チームにエクセルのデータを送信するやり方 参照したページメモ =VLOOKUP(MONTH(TODAY()), A2:B13, 2, FALSE) mocabrown.com https://powerusers.microsoft.com/t5/General-Power-Automate/Create-HMTL-Table-How-to-Remove-odata-eta-ItemInternalId-column…