{quote}{login=slav}{date=28.04.2011 06:41}{thema=}{post}1. процедурка для создания резервной копии с пометкой _reserve.xls в том же каталоге, что и основной файл. Можно запускать при старте основной программы
Sub MakeReserveTest()
Dim CurrDir As String, CurrName As String, ReserveFileName As String
CurrDir = ActiveWorkbook.Path: CurrName = Replace(ActiveWorkbook.Name, ".xls", "")
ReserveFileName = CurrDir + "\" + CurrName & "_reserve.xls"
ActiveWorkbook.SaveCopyAs Filename:=ReserveFileName
End Sub
2. проверка наличия файла в каталоге выглядит как-то так
iFileName = Dir(CurrDir & ReserveFileName)
Do While iFileName <> ""
iCount = iCount + 1
MsgBox CurrDir & iFileName, , ""
iFileName = Dir 'берём следующий файл в папке
Loop
If iCount = 0 Then
MsgBox "В текущем каталоге не найден контрольный файл!", 64, "Внимание!"
остальное, думаю, сами доточите напильником{/post}{/quote}
Спасибо большое!!! Смотрите чего получилось. Файл я создаю програмным кодом:
Private Sub Workbook_Open()
Dim CurrDir As String, CurrName As String, ReserveFileName As String
CurrDir = ActiveWorkbook.Path: CurrName = Replace(ActiveWorkbook.Name, ".xls", "")
ReserveFileName = CurrDir + "\" + CurrName & "_reserve.xls"
ActiveWorkbook.SaveCopyAs Filename:=ReserveFileName
End Sub
И програмным кодом могу его удалить!
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Kill "Y:\1_reserve.xls"
End Sub
Но вот как сделать поиск этого файла 1_reserve.xls перед открытием книги и выдать сообщение о невозможности ее открытия. Что-то не получается
Sub MakeReserveTest()
Dim CurrDir As String, CurrName As String, ReserveFileName As String
CurrDir = ActiveWorkbook.Path: CurrName = Replace(ActiveWorkbook.Name, ".xls", "")
ReserveFileName = CurrDir + "\" + CurrName & "_reserve.xls"
ActiveWorkbook.SaveCopyAs Filename:=ReserveFileName
End Sub
2. проверка наличия файла в каталоге выглядит как-то так
iFileName = Dir(CurrDir & ReserveFileName)
Do While iFileName <> ""
iCount = iCount + 1
MsgBox CurrDir & iFileName, , ""
iFileName = Dir 'берём следующий файл в папке
Loop
If iCount = 0 Then
MsgBox "В текущем каталоге не найден контрольный файл!", 64, "Внимание!"
остальное, думаю, сами доточите напильником{/post}{/quote}
Спасибо большое!!! Смотрите чего получилось. Файл я создаю програмным кодом:
Private Sub Workbook_Open()
Dim CurrDir As String, CurrName As String, ReserveFileName As String
CurrDir = ActiveWorkbook.Path: CurrName = Replace(ActiveWorkbook.Name, ".xls", "")
ReserveFileName = CurrDir + "\" + CurrName & "_reserve.xls"
ActiveWorkbook.SaveCopyAs Filename:=ReserveFileName
End Sub
И програмным кодом могу его удалить!
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Kill "Y:\1_reserve.xls"
End Sub
Но вот как сделать поиск этого файла 1_reserve.xls перед открытием книги и выдать сообщение о невозможности ее открытия. Что-то не получается