удаление книги

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » удаление книги

удаление книги

Наталья

Дата: Четверг, 30.08.2012, 12:31 | Сообщение № 1

Группа: Гости

всем добрый день!
не могу справиться с одной задачкой...
суть: есть книга excel. после открытия при изменении определенных ячеек книга сохраняется с названием этих ячеек.
например, когда зашли было А5 = Коля, С7=Саша, изменили Колю на Аню - документ сохранился с именем Аня.Саша.xls.
проблема в том что в папке появляется невидимое количество таких пересохраненных документов.
возможно ли удалять предыдущую сохраненную книгу? например workbook(1).kill???
как то так...помогите, не могу реализовать...не знаю что чему присваивать

Ответить

Hugo

Дата: Четверг, 30.08.2012, 13:55 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

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

Code

Kill FullOldName

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Наталья

Дата: Четверг, 30.08.2012, 14:16 | Сообщение № 3

Группа: Гости

Hugo, можно ли немного поподробнее? я здесь как раз-таки и теряюсь...

Ответить

Hugo

Дата: Четверг, 30.08.2012, 14:17 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

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

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Наталья

Дата: Четверг, 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

Дата: Четверг, 30.08.2012, 14:39 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

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

[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]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Наталья

Дата: Четверг, 30.08.2012, 19:34 | Сообщение № 7

Группа: Гости

Hugo, урра! спасибо! работает!!!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » удаление книги

Страница 1 из 1
1