Код |
---|
Sub t4() Windows("VBA Task (1).xlsm").Activate Range("L2").Select Selection.Copy Workbooks.Add ActiveWorkbook.SaveAs Filename:="C:\Users\АналитическаяСлужба\Desktop\" & ThisWorkbook.Sheets("Info").Range("L2") & ".xlsx" End Sub |
Завтра к 9 утра нужно сдать работу( Не получается никак.