My.Cart.Shopping (Все сообщения пользователя)

Работа с сетевыми дисками при неизвестном заранее пути / изменяющемся пути, Необходимо получать данные из файла, расположенного на DFS пользователям, для которых пути разные

My.Cart.Shopping

Пользователь

Сообщений: 6 Регистрация: 01.02.2023

02.02.2023 15:56:09

Цитата

написал:

Цитата
My.Cart.Shopping написал: не просто передрана, а дана ссылка на нее

это и называется передрать - текст один в один, только оформление никудышное. Плюс я почему-то уверен, что автора статьи никто не спросил, прежде чем её публиковать на том сайте

Да, оригинальная статья тут

Перейти

My.Cart.Shopping

Пользователь

Сообщений: 6 Регистрация: 01.02.2023

01.02.2023 20:03:16

Цитата

написал:
[/CODE]Function Get_Value_From_Close_Book(sWb As String, sShName As String, sAddress As String) Dim vData, objCloseBook As Object Set objCloseBook = GetObject(sWb) 'ïîëó÷àåì çíà÷åíèå vData = objCloseBook.Sheets(sShName).Range(sAddress).Value objCloseBook.Close False Set objCloseBook = Nothing 'Âîçâðàùàåì äàííûå â ÿ÷åéêó ñ ôóíêöèåé Get_Value_From_Close_Book = vDataEnd Function[CODE]

Статья не просто передрана, а дана ссылка на нее.

Код

Function Get_Value_From_Close_Book(sWb As String, sShName As String, sAddress As String)
Dim vData, objCloseBook As Object
Set objCloseBook = GetObject(sWb)
'получаем значение
vData = objCloseBook.Sheets(sShName).Range(sAddress).Value
objCloseBook.Close False
Set objCloseBook = Nothing
'Возвращаем данные в ячейку с функцией
Get_Value_From_Close_Book = vData
End Function

Тут кодировка правильная.

Перейти

Кирилл Варламов

Пользователь

Сообщений: 6 Регистрация: 01.02.2023

01.02.2023 19:53:43

Цитата
написал: Кирилл Варламов, код следует оформлять соответствующим тегом. Для этого используйте кнопку <...>

Спасибо! Подскажите, пожалуйста, как картинку не из интернета вставить? Через кнопку изображение - не получилось (не загружается).

Перейти

Кирилл Варламов

Пользователь

Сообщений: 6 Регистрация: 01.02.2023

01.02.2023 19:45:22

Цитата
написал: .

Спасибо, но результат в Вашем файле получился "#ЗНАЧ!"

Если сетевой диск подключен (имеет букву), то работает этот макрос (см. ниже)
нашел тут, но с путями вида "\\Folder\Folder 2" - работает не всегда, причину пока не выяснил

Код

[/CODE]Function Get_Value_From_Close_Book(sWb As String, sShName As String, sAddress As String)
    Dim vData, objCloseBook As Object
    Set objCloseBook = GetObject(sWb)
    &#39;ïîëó÷àåì çíà÷åíèå
    vData = objCloseBook.Sheets(sShName).Range(sAddress).Value
    objCloseBook.Close False
    Set objCloseBook = Nothing
    &#39;Âîçâðàùàåì äàííûå â ÿ÷åéêó ñ ôóíêöèåé
    Get_Value_From_Close_Book = vData
End Function[CODE]

Изменено: Кирилл Варламов - 01.02.2023 19:51:01

Перейти

Кирилл Варламов

Пользователь

Сообщений: 6 Регистрация: 01.02.2023

01.02.2023 18:02:37

Цитата
написал: двссыл не будет работать с закрытой книгой - макрос использовать нужно excel - Ссылка на значение в закрытой книге Excel с использованием ДВССЫЛ? - Question-It.com

Попробовал создать функции EvalText, Eval - с их использованием и созданием имен - также не работает.
куда смотреть?

Function EvalText(s As String) As Double
EvalText = Evaluate(s)
End Function

Function Eval(Ref As String)
Application.Volatile
Eval = Evaluate(Ref)
End Function

Изменено: Кирилл Варламов - 01.02.2023 18:03:11

Перейти

Кирилл Варламов

Пользователь

Сообщений: 6 Регистрация: 01.02.2023

01.02.2023 16:18:16

Добрый день!

Есть сетевой ресурс, располагающийся на DFS, в разное время абсолютный путь может быть разным, т.к. активный сервак может измениться на другую ноду.

итого: у одного пользователя адрес к шаре с файлом (источником данных) может быть один, у другого - другой

Задача, чтобы при открытии файла на сетевом диске у пользователя
в формулы подставлялся корректный путь или автоматом или он мог выбрать корректный путь из заранее определенных из выпадающего списка,
по определенному пути необходимо получить значения ячеек из другого файла на этом-же сетевом ресурсе .

В примере - файл test.xlsx располагается на сетевом ресурсе \\VL3-8-7-42\Public\Каталог с пробелами

Проблема - использование функции ДВССЫЛ - не приводит к желаемому результату, возникает ошибка #ССЫЛКА!

Желательно решить вопрос без макросов.

Изменено: Кирилл Варламов - 01.02.2023 16:19:19

Перейти