В свое время для получения данных из закрытого файла мне рекомендовали использовать функцию Get_Value_From_Close_Book. У меня сложности по этой функции т.к. она возвращает О\ошибку типа "Значение". Я предположил что функция неверно находит путь к файлу и немного ее переделал:
Теперь название файла задается одним параметром а путь к файлу другим. При ввде данных в функцию она верно определяет искомое значение. Но при этом возвращает в ячейку ошибку с типом "Значение". не подскажете как поправить функцию для получения искомого результата. Заранее спасибо.
Код |
---|
Function Get_Value_From_Close_Book(sPach As String, sWb As String, sShName As String, sAddress As String) Dim vData, objCloseBook As Object SW = sPach + "\" + sWb Set objCloseBook = GetObject(SW) vData = objCloseBook.Sheets(sShName).Range(sAddress).Value objCloseBook.Close False Get_Value_From_Close_Book = vData End Function |
Теперь название файла задается одним параметром а путь к файлу другим. При ввде данных в функцию она верно определяет искомое значение. Но при этом возвращает в ячейку ошибку с типом "Значение". не подскажете как поправить функцию для получения искомого результата. Заранее спасибо.