Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Автоматическое отображение имени файла при сохранении документа
 
#1
02.09.2011 10:08:02
Подскажите пожалуйста, как в EXCEL 2007 сделать так, чтобы номер, который присваивается новому документу в ячейке листа, автоматически бы отображался в строке «имя файла» при сохранении документа (сохранить как-книга excel-имя файла). Спасибо.
 
 
 
#2
02.09.2011 11:45:29
С макросами знакомы?
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#3
02.09.2011 12:08:02
{quote}{login=nerv}{date=02.09.2011 11:45}{thema=}{post}С макросами знакомы?{/post}{/quote}  
Нет.
 
 
 
#4
03.09.2011 12:25:57
{quote}{login=nerv}{date=02.09.2011 11:45}{thema=}{post}С макросами знакомы?{/post}{/quote}  
Макросы сама не писала, но размещать и запускать умею. Помогите, плиз.
 
 
 
#5
03.09.2011 12:50:02
Public Sub wwwSaveAs()  
   Dim fName, iniDir$  
   iniDir = "h:\TMP\"  
   fName = Application.GetSaveAsFilename(InitialFileName:=iniDir & [a1], _
                                      fileFilter:="xls Files (*.xls), *.xls")  
   If fName <> False Then  
       MsgBox "Save as " & fName  
   End If  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#6
03.09.2011 12:52:49
Прозевал, третью строчку так запишите:  
   iniDir = "h:\TMP\": ChDir iniDir
Я сам - дурнее всякого примера! ...
 
 
 
#7
03.09.2011 14:24:15
Серж, ремонтируй - не сохраняет :-)
 
 
 
#8
03.09.2011 14:48:33
А никто и не собирался сохранять:-) Я показал "как в EXCEL 2007 сделать так, чтобы номер, который присваивается новому документу в ячейке листа, автоматически бы отображался в строке «имя файла»". Если сохранять, то надо все заново переписывать:-)  
Public Sub wwwSaveAs()  
   Dim fName, iniDir$  
   iniDir = "h:\TMP\"  
   fName = Application.GetSaveAsFilename(InitialFileName:=iniDir & [a1], _
                                         fileFilter:="xls Files (*.xls), *.xls")  
   If fName <> False Then  
'        MsgBox "Save as " & fName  
       ActiveWorkbook.SaveAs fName  
   End If  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#9
03.09.2011 14:56:50
Хитрый: цитату обрезал :-)
 
 
 
Страницы: 1
Наверх