Доброго времени суток.
По этой ошибке нашел только один запрос, да и то не совсем то(извиняюсь за каламбур).
Проблемка следующая - файлик написан в 2018 на ёксель 2010 - все работало. В прошлом годе фирма переехала на Office 365 и началось...
К сообщению: "неизвесная ошибка, файл будет закрыт?" я уже привык как к "сохранить данные перед закрытием? да/нет". Но после очередного обновления ребята, которые юзали файл, начали жаловаться, что не могут сохранить данные - при нажатии кнопки вылетает Run-time error '1004': Method 'Open' оf object 'Workbooks' failed. и строку Set WSh = Workbooks.Open("\\путь к файлу в общих папках.xlsx") светит...
Сам файл прикладывать не вижу смысла(да и не маленький). Выложу проблемную часть
Самое странное то, что у меня на машине все работает без сбоев. У ребят к папке на серваке полный доступ...
Гуру, на Вас все надежды!
По этой ошибке нашел только один запрос, да и то не совсем то(извиняюсь за каламбур).
Проблемка следующая - файлик написан в 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 |
Гуру, на Вас все надежды!