Автокопирование на сетевой диск

[valerij]

Есть сетевой ИД диск с адресом \\192.168.2.50\public в нем папка "Ноябрь с файлом Ноябрь.xls" и есть такая же папка "Ноябрь с файлом Ноябрь.xls" на диске D, на ПК.
Как сделать, макрос, который при закрытии файла Ноябрь.xls на ПК, автоматом, сделает копию этого файла, Ноябрь.xls в сетевой диск, желательно без вопроса Файл с таким именем существует....
Пробовал, работать непосредственно в сетевом диске, но, связь с ним по Wi-Fi, очень долго сохраняет, любой сбой, что и произошло, и ошибка, невозможно открыть .xls.

[Teslenko_EA]

Здраствуйте valerij.
наверное не судьба, если человек написавший 1,021 сообщение на этом форуме, так и не научился ни обращаться к участникам форуиа, ни здороваться.
Евгений.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Const s = "\\192.168.2.50\public\Ноябрь'Ноябрь.xls"
On Error Resume Next
ThisWorkbook.Save
If Len(Dir(s)) > 0 Then Kill s
If Err.Number = 0 Then ThisWorkbook.SaveAs Filename:=s, FileFormat:=xlNormal
End Sub

[valerij]

Сообщение от Teslenko_EA

если человек написавший 1,021 сообщение

Найдите из этих сообщений, одно и все станет на место, а за макрос, спасибо, вечером, буду дома, проверюсь, отпишусь

[valerij]

Женя, макрос работает, но требуется коррективы, а если не будет сетевого диска, я об этом не подумал, извиняюсь!!!
Сделаю две папки, одна на сетевом HDD, назову ее "Дом\Ноябрь\Ноябрь.xls", другая папка на ПК на диске D, назову ее "Офис\Ноябрь\Ноябрь.xls"
При закрытии должен дать выбор для сохранения, типа: "Сохранить в папку Дом", если жму ДА, то на сетевой, Нет, то на ПК, а вот если ваще не надо сохранять(часто такое), даже не знаю что и придумать в такой ситуации, три кнопки(Дом, Офис, Нет), что ли??

Может так!!!
А если макрос будет учитывать имя пользователя, например, если находится файл на ПК с именем Бух или Асер, то на Сетевой или Нет, а если имя х200, то на ПК или Нет

[Teslenko_EA]

Здраствуйте valerij.
возможно такой вариант кода подойдет:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Const s0 = "\\192.168.2.50\public\", s1 = "\\Home\public\", s2 = "Ноябрь'Ноябрь.xls"
Const sM = "Сохранить резервную копию ?"
Dim s$
On Error Resume Next
ThisWorkbook.Save
ChDir s0
If Err.Number = 0 Then s = s0 + s
If Not Err.Number = 0 Then Err.Clear: ChDir s1
If Not Err.Number = 0 Then
    'выход без запроса
ElseIf MsgBox(sM, vbQuestion + vbYesNo, Empty) = vbYes Then
    If Len(s) = 0 Then s = s1 + s
    If Len(Dir(s)) > 0 Then Kill s
    If Err.Number = 0 Then ThisWorkbook.SaveAs s, xlNormal
End If
End Sub

Евгений.

[valerij]

Сообщение от Teslenko_EA

Const s0 = "\\192.168.2.50\public\", s1 = "\\Home\public\", s2 = "Ноябрь'Ноябрь.xls"

.

Женя, здравствуйте!!
1. объясните, почему s1 = "\\Home\public\", а не s1 = "\\public\Home\" ??
Что такое папка public, это не я ее создал, она, папка, создается программно в корне сетевого, если я просто наберу 192.168.2.50, то попаду в настройки сетевого диска, ну как в роутере.....
2. Я как раз, вставив Ваш код, нажал на закрытие книги, а сетевой, забыл включить, эксель завис и только когда я вкл. сетевой, тогда задал вопрос "Сохранить резервную копию"

Что бы Вы понимали, что мне надо, я объясню механизм "движения" файла Ноябрь.xls.
Есть у меня Дома, два ПК, за одним Бух, за другим Я, они, ПК, связаны с сетевым диском, Бух. сделав свою работу, должна сохранить файл на сетевом, Я, вечером открываю этот файл с сетевого, проверяю, делаю коррективы и опять сохраняю его на сетевой или если не требуется коррекции, просто закрыл, на вопрос Сохранить, жму, Нет.

Еще я этот файл Ноябрь.xls, копирую на флешку и везу его на работу, там просто ПК, сети ни какой нет, там мы его сообща анализируем и принимаем меры, возможны опять коррективы этого файла, опять его на флешку и дома на сетевой, ну тут просто, метод, копирования.
Может Вам будет проще ориентироваться, после моего монолога!!
""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""" """""""""""""""""""""""""""""""

3. Женя еще в первом макросе, строка:

"\\192.168.2.50\public\Ноябрь'Ноябрь.xls"

сохраняла файл с именем Ноябрь'Ноябрь.xls
я изменил ее так:

"\\192.168.2.50\public\Ноябрь\Ноябрь.xls"

и все стало ОК!!

[Teslenko_EA]

Логика конструкции построена с учетом того, что резервная копия располагается на сетевом ресурсе, и на рабочем - "\\192.168.2.50\public\", и на домашнем - "\\Home\public\"
Приотитет у адреса - "\\192.168.2.50\public\", сначала проверяется его доступность, затем если первая проверка неудачна проверяется доступность ресурса - "\\Home\public\"
При доступности одного из ресурсов будет выведено предложение "сохранить резервную копию...", иначе файл закроется сохранив изменения только локально.
Имена сетевых ресурсов замените на свои реальные адреса, возможно локальные папки, конструкция собрана "на коленке" и я её не тестировал, претензии принимаются к рассмотрению.
Евгений

[valerij]

Сообщение от Teslenko_EA

Логика конструкции построена с учетом того, что резервная копия располагается на сетевом ресурсе, и на рабочем - "\\192.168.2.50\public\", и на домашнем - "\\Home\public\"
Приотитет у адреса - "\\192.168.2.50\public\", сначала проверяется его доступность, затем если первая проверка неудачна проверяется доступность ресурса - "\\Home\public\"

Женя, понял, логику, но что то не так, не хочет на сетевой сохранять, он включен, открываю файл Ноябрь.xls с такого пути:
F:\Home\public\Ноябрь
вот макрос:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Const s0 = "\\192.168.2.50\public\Ноябрь\", s1 = "F:\Home\public\Ноябрь\", s2 = "Ноябрь'Ноябрь.xls"
Const sM = "Сохранить резервную копию ?"
Dim s$
On Error Resume Next
ThisWorkbook.Save
ChDir s0
If Err.Number = 0 Then s = s0 + s
If Not Err.Number = 0 Then Err.Clear: ChDir s1
If Not Err.Number = 0 Then
    'выход без запроса
ElseIf MsgBox(sM, vbQuestion + vbYesNo, Empty) = vbYes Then
    If Len(s) = 0 Then s = s1 + s
    If Len(Dir(s)) > 0 Then Kill s
    If Err.Number = 0 Then ThisWorkbook.SaveAs s, xlNormal
End If
End Sub

И сохраняет по тому же пути, что я делаю не так?
Женя, а как уменьшить время проверки сетевых ресурсов, я на своем 2-ядерном жду долго, а на старом, Бух ПК, там ваще пол дня будет сохранять!!!

[Teslenko_EA]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Const s0 = "\\192.168.2.50\public\Ноябрь\", s1 = "F:\Home\public\Ноябрь\", s2 = "Ноябрь.xls"
Const sM = "Сохранить резервную копию ?"
Dim s$
On Error Resume Next
ThisWorkbook.Save
s = (Dir(s0, vbDirectory))
If Not Len(s) = 0 Then
    s = s0 + s2:
Else
    s = (Dir(s1, vbDirectory))
    If Not Len(s) = 0 Then s = s1 + s2
    Err.Clear
End If
If Len(s) = 0 Then
    'выход без запроса
ElseIf MsgBox(sM, vbQuestion + vbYesNo, Empty) = vbYes Then
    If Len(Dir(s)) > 0 Then Kill s
    If Err.Number = 0 Then ThisWorkbook.SaveAs s, xlNormal
End If
End Sub

претензии не принимаются (сегодня)
Евгений.

[valerij]

Сообщение от Teslenko_EA

претензии не принимаются (сегодня).

Да, все работает, но думает долго, нельзя ли, как нибудь придумать проверку, типа: если сетевой ресурс активен х = 1, а не активен, х = 0, может с реестром связать??