
ActiveWorkbook.SaveAs Filename:= _
"D:\doc\Doc-


Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
GSerg писал(а):"D:\doc\Doc" & cstr(d) & ".xls"
GSerg писал(а):"D:\doc\Doc" & worksheets(1).range("j5").value & ".xls"
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9