Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/удаление книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » удаление книги
удаление книги
Наталья Дата: Четверг, 30.08.2012, 12:31 | Сообщение № 1
Группа: Гости
всем добрый день!
не могу справиться с одной задачкой...
суть: есть книга excel. после открытия при изменении определенных ячеек книга сохраняется с названием этих ячеек.
например, когда зашли было А5 = Коля, С7=Саша, изменили Колю на Аню - документ сохранился с именем Аня.Саша.xls.
проблема в том что в папке появляется невидимое количество таких пересохраненных документов.
возможно ли удалять предыдущую сохраненную книгу? например workbook(1).kill???
как то так...помогите, не могу реализовать...не знаю что чему присваивать
 
Ответить
Сообщениевсем добрый день!
не могу справиться с одной задачкой...
суть: есть книга excel. после открытия при изменении определенных ячеек книга сохраняется с названием этих ячеек.
например, когда зашли было А5 = Коля, С7=Саша, изменили Колю на Аню - документ сохранился с именем Аня.Саша.xls.
проблема в том что в папке появляется невидимое количество таких пересохраненных документов.
возможно ли удалять предыдущую сохраненную книгу? например workbook(1).kill???
как то так...помогите, не могу реализовать...не знаю что чему присваивать
Автор - Наталья
Дата добавления - 30.08.2012 в 12:31
Hugo Дата: Четверг, 30.08.2012, 13:55 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Сперва запомнили в переменную FullOldName имя текущей книги, затем её пересохранили, затем
[vba]
Code
Kill FullOldName
[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеСперва запомнили в переменную FullOldName имя текущей книги, затем её пересохранили, затем
[vba]
Code
Kill FullOldName
[/vba]
Автор - Hugo
Дата добавления - 30.08.2012 в 13:55
Наталья Дата: Четверг, 30.08.2012, 14:16 | Сообщение № 3
Группа: Гости
Hugo, можно ли немного поподробнее? я здесь как раз-таки и теряюсь...
 
Ответить
СообщениеHugo, можно ли немного поподробнее? я здесь как раз-таки и теряюсь...
Автор - Наталья
Дата добавления - 30.08.2012 в 14:16
Hugo Дата: Четверг, 30.08.2012, 14:17 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Покажите существующий код.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеПокажите существующий код.
Автор - Hugo
Дата добавления - 30.08.2012 в 14:17
Наталья Дата: Четверг, 30.08.2012, 14:31 | Сообщение № 5
Группа: Гости
Hugo, вот отрывок кода где происходит сохранение документа: [vba]
Code

If (Target.Row = 5 And Target.Column = 10) Or (Target.Row = 7 And Target.Column = 3) Then
PathToSave = "C:\"
FolderName = "ФОТОДНЯ"
FellPathToSave = PathToSave & FolderName & "\"
Set phd = CreateObject("Scripting.FileSystemObject")
If Not phd.FolderExists(FellPathToSave) Then
phd.CreateFolder (FellPathToSave)
End If
If (ThisWorkbook.Name = Range("J5") & "." & Range("C7") & ".xls") And (ThisWorkbook.Path + "\" = FellPathToSave) Then
ThisWorkbook.Save
Else
ThisWorkbook.SaveAs FellPathToSave & Range("J5") & "." & Range("C7") & ".xls"
End If
'End If
End If
[/vba]
 
Ответить
СообщениеHugo, вот отрывок кода где происходит сохранение документа: [vba]
Code

If (Target.Row = 5 And Target.Column = 10) Or (Target.Row = 7 And Target.Column = 3) Then
PathToSave = "C:\"
FolderName = "ФОТОДНЯ"
FellPathToSave = PathToSave & FolderName & "\"
Set phd = CreateObject("Scripting.FileSystemObject")
If Not phd.FolderExists(FellPathToSave) Then
phd.CreateFolder (FellPathToSave)
End If
If (ThisWorkbook.Name = Range("J5") & "." & Range("C7") & ".xls") And (ThisWorkbook.Path + "\" = FellPathToSave) Then
ThisWorkbook.Save
Else
ThisWorkbook.SaveAs FellPathToSave & Range("J5") & "." & Range("C7") & ".xls"
End If
'End If
End If
[/vba]
Автор - Наталья
Дата добавления - 30.08.2012 в 14:31
Hugo Дата: Четверг, 30.08.2012, 14:39 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Попробуйте так:

[vba]
Code
        Dim FullOldName$
'тут начинается Ваш код
'
'

      If (Target.Row = 5 And Target.Column = 10) Or (Target.Row = 7 And Target.Column = 3) Then
          PathToSave = "C:\"
          FolderName = "ФОТОДНЯ"
          FellPathToSave = PathToSave & FolderName & "\"
          Set phd = CreateObject("Scripting.FileSystemObject")
          If Not phd.FolderExists(FellPathToSave) Then
              phd.CreateFolder (FellPathToSave)
          End If
          If (ThisWorkbook.Name = Range("J5") & "." & Range("C7") & ".xls") And (ThisWorkbook.Path + "\" = FellPathToSave) Then
              ThisWorkbook.Save
          Else
              FullOldName = ThisWorkbook.FullName
              ThisWorkbook.SaveAs FellPathToSave & Range("J5") & "." & Range("C7") & ".xls"
              Kill FullOldName
          End If
          'End If
      End If
[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеПопробуйте так:

[vba]
Code
        Dim FullOldName$
'тут начинается Ваш код
'
'

      If (Target.Row = 5 And Target.Column = 10) Or (Target.Row = 7 And Target.Column = 3) Then
          PathToSave = "C:\"
          FolderName = "ФОТОДНЯ"
          FellPathToSave = PathToSave & FolderName & "\"
          Set phd = CreateObject("Scripting.FileSystemObject")
          If Not phd.FolderExists(FellPathToSave) Then
              phd.CreateFolder (FellPathToSave)
          End If
          If (ThisWorkbook.Name = Range("J5") & "." & Range("C7") & ".xls") And (ThisWorkbook.Path + "\" = FellPathToSave) Then
              ThisWorkbook.Save
          Else
              FullOldName = ThisWorkbook.FullName
              ThisWorkbook.SaveAs FellPathToSave & Range("J5") & "." & Range("C7") & ".xls"
              Kill FullOldName
          End If
          'End If
      End If
[/vba]
Автор - Hugo
Дата добавления - 30.08.2012 в 14:39
Наталья Дата: Четверг, 30.08.2012, 19:34 | Сообщение № 7
Группа: Гости
Hugo, урра! спасибо! работает!!!
 
Ответить
СообщениеHugo, урра! спасибо! работает!!!
Автор - Наталья
Дата добавления - 30.08.2012 в 19:34
Мир MS Excel » Вопросы и решения » Вопросы по Excel » удаление книги
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!