Страницы: 1
RSS
После обновления Excel 2016 макрос не сохраняет данные в сети
 
Всем привет!
Офис 2016 стандарт, после обновлений: excel2016-kb4484507-fullfile-x64-glb, excel2016-kb4462115-fullfile-x64-glb, перестал сохранять файлы в сети, если изменить путь на компьютер, то все работает:
Код
Private Sub CommandButton1_Click()

    Application.ScreenUpdating = False    
    ActiveSheet.Select
    ActiveSheet.Copy
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    ActiveSheet.Shapes.Range(Array("CommandButton1")).Delete
    With Range("R2").Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
     
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs [R1] & [P1] & ".xlsx" 'при сохранении в сеть, файл закрывается самостоятельно!!!
    ActiveSheet.Range("$A$9:$K$30").AutoFilter Field:=2, Criteria1:="<>-"
    Worksheets(1).Columns("P:R").Delete
    ActiveWindow.View = xlPageBreakPreview
End Sub
В настройках, разрешил сетевым документам быть надёжными
Если сохранять через сохранить как, все работает
 
SaveAs никогда нормально не работал без указания типа файла. Посмотрите внимательно - там ведь есть и еще параметры, помимо filepath.
Попробуйте так:
Код
ActiveWorkbook.SaveAs [R1] & [P1] & ".xlsx", 51
P.S. Не мешало бы так же прослеживать что именно здесь получается: [R1] & [P1]
Изменено: Дмитрий(The_Prist) Щербаков - 18.09.2020 17:22:37
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Дмитрий(The_Prist) Щербаков, попробовал не получается, но выявил закономерность, если в пути присутствуют русские буквы выдаёт ошибку, если нет все ок, поставил в настройках языка анг по умолчанию, не помогло
Изменено: adamm - 18.09.2020 17:50:49
 
Если сохраняете на сервер - то проблема где-то там. Или где-то внутри Excel. В любом случае, вряд ли получится искоренить ошибку правкой кода.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Дмитрий(The_Prist) Щербаков,ок спасибо буду копать дальше
 
Теоретически, можете сохранять на локальный диск, а потом переносить этот файл средствами того же FSO(есть подозрение, что встроенный FileCopy и Name ... As схватят ту же ошибку)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
Теоретически, можете сохранять на локальный диск,
пока сохраняем ручками без макроса, но хочу решить проблему, а не обойти её)
нефига не сохраняет, то есть точно макрос не причеи как вы и говорили, при сохранении в ручном режиме так же слетает эксель
Изменено: adamm - 18.09.2020 18:31:04
 
Цитата
adamm написал:
если в пути присутствуют русские буквы выдаёт ошибку, если нет все ок,
я всегда говорил,  что локализация зло. Не даром медики на латыни должны писать рецепты.

Тем не менее, приведите пример реального пути.
По вопросам из тем форума, личку не читаю.
 
БМВ,\\ вот путь: 0.0.0.0\MontazhVeles\СМУ-ТТ\
Если сохранить по пути :0.0.0.0\MontazhVeles\ все ок, как только добавляю папку СМУ-ТТ все летит...
До обновления все работало, как только поставили обновления (excel2016-kb4484507-fullfile-x64-glb) перестало сохранять. При этом если "сохранить как", то же самое, файл вылетает, на остальных компах, а их 20 штук, все работает отлично
Если пустой файл сохранить по этому пути все работает
Изменено: adamm - 19.09.2020 08:30:45
 
В файле формируется такой путь для сохранения:
\\0.0.0.0\MontazhVeles\СМУ-ТТЗаявка 144 P-18107_1-063A5A-H-WT.xlsx
Вряд ли это правильно.
Владимир
 
Цитата
sokol92 написал:
Вряд ли это правильно.
однозначно нет. При этом дважды. Разделителя между именем и путем нет.  0.0.0.0 - оригинальный хост.

Excel 2016, КБшечка стоит, проблема не воспроизводится, естественно если использовать корректный сетевой путь.
По вопросам из тем форума, личку не читаю.
 
Цитата
БМВ написал:
Разделителя между именем и путем нет.
В примере случайно стёр, в оригинале он есть.

Цитата
БМВ написал:
КБшечка стоит
можете пояснить?
 
я о том что и версия и обновления теже у меня. А IP тоже случайно на нули заменен?
По вопросам из тем форума, личку не читаю.
 
Цитата
БМВ написал:
А IP тоже случайно на нули заменен
нет, это я в целях безопасности) хотя, что там ip как ip.
А может быть дело в кривом офисе? Стоит пытаться переустановить офис?
Изменено: adamm - 21.09.2020 13:33:03
 
сначала ищем проблему в кривых руках пользователя, программиста
и  только потом в кривом офисе, Windows, в глючном железе
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Если даже руками не сохраняет по указанному пути, то проблема может быть и в excel, и в ОС и в работе SMB на хосте с IP 0.0.0.0
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх