Вызов функций Application из тела функции

@marqueemarmot · Регистрация: 08.05.2014

Студворк — интернет-сервис помощи студентам

Такая проблема. Работаю в эксель книге. Нужно открыть конкретную другую книгу, выполнить в ней поиск и взять нужные значения.

Visual Basic
1
2
3
4
5
6
Sub mopen()
Dim pfilename As String
pfilename = ThisWorkbook.Path & "\PVTprop.xlsx"
 
Workbooks.Open filename:=pfilename
End Sub

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

Visual Basic
1
2
3
4
5
6
7
Public Function popen() As Boolean
 
Dim pfilename As String
pfilename = ThisWorkbook.Path & "\PVTprop.xlsx"
Workbooks.Open filename:=pfilename
 
End Function

Результата нет. то есть функция ошибки не выдает, но открытия файла не происходит.
Работаю в экселе 2013, опыт показал, что в 2003 то же самое, попытка даже просто создать книгу, или закрыть эксель ни к чему не приводит. В Sub - все работает. Гуглила на тему функций и процедур - не нашла упоминаний, что нельзя так делать. Объясните в чем дело?
Для себя пока что написала макрос, что копирует справочник в текущую книгу, и брать значения буду из него, возможно, что так даже лучше, но вопрос остался открытым.

@marqueemarmot · 19.05.2014, 10:14 **[ТС]**

Интересно сделано

но я решила уйти от формулы на листе, поскольку данные на листе имеют обыкновение меняться. У меня раньше было сделано через .Formula, но без Debug.Print... Если честно, мне трудновато сочетать алгоритмику и расчеты на листе, плюс я не хотела лишних результатов на самом листе (у меня их over 300), потому загнала все расчеты именно в vba, на массивах и т.д.
Ты в своем примере грубо говоря расчет ведешь все равно на листе. Я же хотела чисто в памяти посчитать, вывести только результаты.

почему у кого то работает вызов Application.Linest, а у кого-то только через WorksheetFunction

Вот речь о том и шла, что в 2013 у меня так не вызывается, и твоя предыдущая версия файла не работала

В целом, ты очень помог мне перейти барьер между "записью макроса и правкой под себя" и нормальным написанием на vba исходного кода

Благодарю! Эта тема исчерпана, впереди еще формат данных и экспорт таблиц в ворд, и возможно рисование графиков

Новые блоги и статьи Все статьи Все блоги /
Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .