VPF::Сохранить копию при сохранении файла *.xls

dizzy1984

Дата 5.9.2011, 20:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 675
Регистрация: 15.2.2007

Репутация: нет
Всего: 25

Есть excel файл, необходимо, чтобы после его сохранения создавалась его копия на местном сервере. Не могу это сделать...

dizzy1984

Дата 5.9.2011, 20:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 675
Регистрация: 15.2.2007

Репутация: нет
Всего: 25

Остановился на таком варианте

Код


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    On Error GoTo eh
    
    Application.EnableEvents = False
    Application.DisplayAlerts = False
        
    Dim fln As String
    fln = ActiveWorkbook.FullName
    
    If SaveAsUI Then
        Cancel = True
        Dim fn As String
        fn = Application.GetSaveAsFilename
        If fn <> "False" Then
            SaveAs ("c:\tmp\22\tmp1.xls")
            SaveAs (fn)
        End If
    Else
        SaveAs ("c:\tmp\22\tmp1.xls")
        SaveAs (fln)
    End If
eh:
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub

Минус - при сохранении через кнопку сохранить или диалоговое окно при закрытии измененного документа сохраняется дважды...

Staruha

Дата 6.9.2011, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Сохранить файл как шаблон.Всегда будет создаваться копия

--------------------

Возмездие настигнет

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »