Доброго времени суток.
По этой ошибке нашел только один запрос, да и то не совсем то(извиняюсь за каламбур).
Проблемка следующая - файлик написан в 2018 на ёксель 2010 - все работало. В прошлом годе фирма переехала на Office 365 и началось...
К сообщению: "неизвесная ошибка, файл будет закрыт?" я уже привык как к "сохранить данные перед закрытием? да/нет". Но после очередного обновления ребята, которые юзали файл, начали жаловаться, что не могут сохранить данные - при нажатии кнопки вылетает Run-time error '1004': Method 'Open' оf object 'Workbooks' failed. и строку Set WSh = Workbooks.Open("\\путь к файлу в общих папках.xlsx") светит...
Сам файл прикладывать не вижу смысла(да и не маленький). Выложу проблемную часть
| Код |
|---|
Option Explicit
Dim WSh As Workbook 'книга базы
Dim WShOpen As String 'доступ к базе
Dim WOB As Worksheet 'лист базы
Dim Fill As Worksheet 'лист списка
Dim WO As ListObject 'таблица базы
Dim FillTab As ListObject 'таблица списка
Dim WOr As ListRow 'строка базы
Dim FTR As ListRow 'строка списка
Sub сохранить()
'формировка таблиц
....
' копия таблицы
Range("Table11[[#Headers],[Дата]]").Select
ActiveSheet.ListObjects("Table11").Range.AutoFilter Field:=6, Criteria1:= _
"<>"
If ThisWorkbook.Worksheets("data").Range("U35") = 0 Then
ThisWorkbook.Worksheets("data").Visible = False
MsgBox "Нет записей"
Exit Sub
Else
Range("Table11").Select
Selection.Copy
'открыть базу
Set WSh = Workbooks.Open("\\путь к файлу в общих папках.xlsx")
Set WOB = WSh.Worksheets("WorkShift")
WOB.Select
' поиск конца таблицы и вставка
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(iLastRow + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
WSh.Save
WSh.Close
Set WSh = Nothing
ThisWorkbook.Worksheets("data").Visible = False
End If
End Sub
|
Самое странное то, что у меня на машине все работает без сбоев. У ребят к папке на серваке полный доступ...
Гуру, на Вас все надежды!
