InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comSat, 10 Jan 2009 07:15:06 GMT20http://www.relib.com/forums/Topic912895-11-1.aspxМожет так<P>[code]Sub Макрос1()<BR>Dim iFileName$, iPath$<BR> 'имя записано в на Лист1 в ячейке А1<BR> iFileName = Sheets("Лист1").Cells(1, 1) 'берём имя из ячейки A1<BR> 'или iFileName = Sheets("Лист1").Range("A1")<BR> iPath = "C:\" 'указываем путь<BR> ActiveWorkbook.SaveAs Filename:=iPath &amp; iFileName &amp; ".xls" 'сохраняем его<BR> MsgBox "Книга сохранена!"<BR>End Sub[/code]Mon, 30 Apr 2007 12:27:39 GMTPavel55http://www.relib.com/forums/Topic912895-11-1.aspxКак программно сохранить файл в Excel, чтобы имя сохраняемого файла бралось из определенной ячейки?Mon, 30 Apr 2007 12:08:38 GMTJohn JC