マクロのコピー
ワークシートのマクロをコピーするModule・ThisWorkbook・Classは作れたのですが、UserFormが分からない……Sub WBCopy() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim wb Set wb = ActiveWorkbook Dim wb2 Workbooks.Add Set wb2 = ActiveWorkbook Dim md For Each md In wb.VBProject.VBComponents If md.Type = 1 Then With md.CodeModule Code = .Lines(1, .CountOfLines) End With With wb2.VBProject.VBComponents.Add(1) .CodeModule.AddFromString Code .name = md.name End With End If If md.Type = 2 Then With md.CodeModule Code = .Lines(1, .CountOfLines) End With With wb2.VBProject.VBComponents.Add(2) .CodeModule.AddFromString Code .name = md.name End With End If If md.name = "ThisWorkbook" Then With md.CodeModule Code = .Lines(1, .CountOfLines) End With With wb2.VBProject.VBComponents("ThisWorkbook").CodeModule .AddFromString Code End With End If Next Const RefFile As String = "C:WindowsSysWOW64scrrun.dll" wb2.VBProject.References.AddFromFile RefFile hozon = wb.Path & "" & wb.name wb.Saved = True wb.Close wb2.SaveAs Filename:=hozon, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled wb2.Save wb2.Close Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomaticEnd Subできました(*^^*)意外と簡単
