Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 04.11.2014
Сообщений: 7

Можно ли брать значения из закрытой книги?

02.01.2011, 09:58. Показов 1935. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый день!
Ситуация следующая: есть 2 книги Exel: 'Шаблон' и 'База'. на листе 'Шаблона' находится combobox источником данных для которого является таблица на листе 1 'Базы'. Проблема: В combobox нет значений, пока не откроешь 'Базу'. Можно ли брать значения из закрытой книги?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
02.01.2011, 09:58
Ответы с готовыми решениями:

Копирование из закрытой книги по условию
доброго времени! Есть макрос для копирования строк из закрытых книг в сводный отчет: Sub CopyStr() Dim path As String, file As...

Запуск макроса из закрытой книги
Здравствуйте Гуру VBA! Может эта тема уже и поднималась. Я по крайней мере не нашел ответа. Проблема такая! На диске n: лежит файл...

Копирование данных из закрытой книги
Добрый день, уважаемые форумчане. Помогите советом. Мне нужно скопировать все данные из столбца закрытой книги Excel, которая лежит на...

4
14 / 14 / 2
Регистрация: 23.03.2010
Сообщений: 635
02.01.2011, 17:17
http://relib.com/forums/topic.asp?id=840102
и продолжение
http://relib.com/forums/topic.asp?id=840930
0
90 / 37 / 14
Регистрация: 03.11.2010
Сообщений: 429
02.01.2011, 20:39
Для получения данных из закрытой книги я обычно пользуюсь устаревшим языком XML, Excel его поддерживает.
Например:

Sub ComB()
Dim i As Long
Лист1.ComboBox1.Clear
Application.DisplayAlerts = False
For i = 1 To 10
Лист1.ComboBox1.AddItem ExecuteExcel4Macro _
(''' & ActiveWorkbook.Path & '[1.xls]Лист1'!R' & i & 'C2')
Next
Application.DisplayAlerts = True
End Sub

макрос заполнит ComboBox1 значениями из файла 1.xls, Лист1, колонка2, строки 1-10.
Файл находится в одной папке с рабочей книгой.
Измени параметры макроса на необходимые тебе.
Дмит
0
0 / 0 / 0
Регистрация: 04.11.2014
Сообщений: 7
03.01.2011, 02:58
To Dmit.
Не работает почему-то. Может не так что делаю. Специально создал 2 книги как в примере, чтобы ничего не менять. Создал макрос. При запуске макроса выдает сообщение - несовпадение типов и указывает строку
Code
1
2
Лист1.ComboBox1.AddItem ExecuteExcel4Macro _
(''' & ActiveWorkbook.Path & '[1.xls]Лист1'!R' & i & 'C2')
Что не так сделал?
0
90 / 37 / 14
Регистрация: 03.11.2010
Сообщений: 429
06.01.2011, 02:01
Наверно в 1.xls нет Лист1 - Это название листа на ярлычке.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.01.2011, 02:01
Помогаю со студенческими работами здесь

Список диаграмм закрытой книги
Список таблиц закрытой книги Excel нетрудно получить с помощью адо-рекордсета (OpenSchema(adSchemaTables)). Но как получить список диаграмм...

Скопировать лист с закрытой книги
Есть код, который копирует ячейки из указанной закрытой книги в текущую: Public Function GetValue(path, file, sheet, ref) Dim...

Копирование листа из закрытой книги в открытую
Добрые люди, пофиксите макрос, чтобы он запускался с панели инструментов для открытой книги... Sub nununu() Const fromFile =...

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

Выбрать данные из закрытой книги Excel
Есть два файла: файл, которому нужна инфа, и файл, который ее содержит. В файле с инфой содержится 800 тыс. строк. Открыть его - уже...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru