Сохранение книги с определенным именем 
				   
 
 
 rtv206  
 Дата: Воскресенье, 27.10.2019, 23:06 | 
 Сообщение № 1     
   
 
   
 
 
 Группа: Проверенные  
 
 
 Ранг: Форумчанин  
 
 Сообщений:  131 
 
 
 
 
  Репутация:    
 0    
 ±  
 
  
 Замечаний:
 0%   ±  
   Excel 2013          
  
 
 
 Доброго времени суток! Уважаемые форумчане!  Прошу помощи в написании макроса Необходимо что бы при нажатии кнопки на Листе Производилось сохранение Книги, название книги ,,Книга1-гггг-мм-дд-чч-мм-сс,, В заданное место: диск Д, папка Share! Благодарю за помощь!) 
 
 
Доброго времени суток! Уважаемые форумчане!  Прошу помощи в написании макроса Необходимо что бы при нажатии кнопки на Листе Производилось сохранение Книги, название книги ,,Книга1-гггг-мм-дд-чч-мм-сс,, В заданное место: диск Д, папка Share! Благодарю за помощь!) rtv206  
 
  
  
  
 Ответить 
Сообщение Доброго времени суток! Уважаемые форумчане!  Прошу помощи в написании макроса Необходимо что бы при нажатии кнопки на Листе Производилось сохранение Книги, название книги ,,Книга1-гггг-мм-дд-чч-мм-сс,, В заданное место: диск Д, папка Share! Благодарю за помощь!) Автор - rtv206  Дата добавления - 27.10.2019  в 23:06   
 
 
 krosav4ig  
 Дата: Воскресенье, 27.10.2019, 23:41 | 
 Сообщение № 2     
   
 
  
   
 
 
 Группа: Друзья  
 
 
 Ранг: Старожил  
 
 Сообщений:  2348 
 
 
 
 
  Репутация:    
 997    
 ±  
 
  
 Замечаний:
 0%   ±  
   Excel 2007,2010,2013          
  
 
 
 
 
 
 
email:krosav4ig26@gmail.com  WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460 
  
  
  
 Ответить 
 
 
 
 rtv206  
 Дата: Вторник, 29.10.2019, 00:01 | 
 Сообщение № 3     
   
 
   
 
 
 Группа: Проверенные  
 
 
 Ранг: Форумчанин  
 
 Сообщений:  131 
 
 
 
 
  Репутация:    
 0    
 ±  
 
  
 Замечаний:
 0%   ±  
   Excel 2013          
  
 
 
 krosav4ig , я в макросах не силен( По этому и прошу помощи)
 
 
krosav4ig , я в макросах не силен( По этому и прошу помощи)rtv206  
 
  
  
  
 Ответить 
Сообщение krosav4ig , я в макросах не силен( По этому и прошу помощи)Автор - rtv206  Дата добавления - 29.10.2019  в 00:01   
 
 
 mgt  
 Дата: Понедельник, 04.11.2019, 09:55 | 
 Сообщение № 4     
   
 
   
 
 
 Группа: Проверенные  
 
 
 Ранг: Форумчанин  
 
 Сообщений:  104 
 
 
 
 
  Репутация:    
 26    
 ±  
 
  
 Замечаний:
 0%   ±  
   Excel 2010          
  
 
 
 [vba]Код
ActiveWorkbook.SaveAs Filename:="D:\Share\" & Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm"
 [/vba]  
 
 
[vba]Код
ActiveWorkbook.SaveAs Filename:="D:\Share\" & Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm"
 [/vba] mgt  
 
Сообщение отредактировал mgt  - Понедельник, 04.11.2019, 10:05 
  
  
  
 Ответить 
Сообщение [vba]Код
ActiveWorkbook.SaveAs Filename:="D:\Share\" & Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm"
 [/vba] Автор - mgt  Дата добавления - 04.11.2019  в 09:55   
 
 
 InExSu  
 Дата: Понедельник, 04.11.2019, 15:12 | 
 Сообщение № 5     
   
 
  
   
 
 
 Группа: Друзья  
 
 
 Ранг: Ветеран  
 
 Сообщений:  650 
 
 
 
 
  Репутация:    
 96    
 ±  
 
  
 Замечаний:
 0%   ±  
   Excel 2010, 365          
  
 
 
 Привет!
[vba]
Код
Option Explicit Sub REName_()   ActiveWorkbook.SaveCopyAs Filename:="D:\Share!\" & _     Имя_без_Расширения(ActiveWorkbook.Name) & _     "-" & _     Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm"      End Sub Function Имя_без_Расширения(str As String) _   As String   Имя_без_Расширения = CreateObject("Scripting.FileSystemObject"). _     GetBaseName(str) End Function
[/vba]
  
 
 
Привет!
[vba]
Код
Option Explicit Sub REName_()   ActiveWorkbook.SaveCopyAs Filename:="D:\Share!\" & _     Имя_без_Расширения(ActiveWorkbook.Name) & _     "-" & _     Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm"      End Sub Function Имя_без_Расширения(str As String) _   As String   Имя_без_Расширения = CreateObject("Scripting.FileSystemObject"). _     GetBaseName(str) End Function
[/vba]
 InExSu  
 
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac 
  
  
  
 Ответить 
Сообщение Привет!
[vba]
Код
Option Explicit Sub REName_()   ActiveWorkbook.SaveCopyAs Filename:="D:\Share!\" & _     Имя_без_Расширения(ActiveWorkbook.Name) & _     "-" & _     Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm"      End Sub Function Имя_без_Расширения(str As String) _   As String   Имя_без_Расширения = CreateObject("Scripting.FileSystemObject"). _     GetBaseName(str) End Function
[/vba]
 Автор - InExSu  Дата добавления - 04.11.2019  в 15:12