Перенос данных из Power Point в Excel с VBA

@Crematorium · Регистрация: 20.05.2017

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

В Power Point есть слайд, на слайде размещён TextBox и в нём нужные мне данные.
Нужно чтоб при нажатии на кнопку(на этом же слайде), переносились данные из этого TextBox в Excel в нужную мне ячейку(к примеру в A1).
---------
P.s Как открыть ексель по кнопке я знаю, а как перенести данные я не знаю, гуглил ничего толкового не нашёл.
-

Dim objPPT As Object
Set objPPT = CreateObject("Excel.Application")
objPPT.Visible = True
objPPT.WorkBooks.Open "E:\Linkoln\123.xlsm"
Application.Quit

-
P.P.s Если нужны будут сами файлы, могу отправить.

@hamin · 22.05.2017, 16:18

Не по теме:

Crematorium,

установи себе паверпоинт 2003.. там можно макросы записывать.

Добавлено через 25 минут
а вообще не вижу проблемы, обращайся по имени. в клике кнопки:

Visual Basic
1
2
3
Private Sub btn_Click()
    MsgBox tbTest.Text
End Sub

Новые блоги и статьи Все статьи Все блоги /
Снова не мой путь. Циклическое среднее, я обеими руками за проверку условия, в ракурсе данной задачи - циклическое среднее в топку. Hrethgir 24.06.2025 Привет. Такой вопрос - нужно выводить среднее математическое между двумя направлениями, интервал значений которых может лежать в диапазоне одного оборота по кругу. Проблема заключается в том, что. . .	Деплой Flask приложения py-thonny 23.06.2025 За годы работы с Flask я натыкался на одни и те же грабли достаточно часто, чтобы наконец научится их обходить. И сегодня хочу поделится опытом, который сбережет вам немало нервных клеток. Начнем с. . .	WebAssembly и контейнеры в .NET Aspire для оркестрации распределенных архитектур ArchitectMsa 23.06.2025 Я наблюдаю, как WebAssembly (или просто WASM) постепенно выходит за рамки своего первоначального предназначения — исполнения кода на стороне браузера. Теперь эта технология проникает в серверную. . .	Непрерывная интеграция для пакета Python Mr. Docker 22.06.2025 Было 4 часа утра пятницы, когда я выпустил новую версию нашей внутренней библиотеки для обработки данных. Релиз 0. 5. 2 содержал небольшой фикс для обработки дат в ISO формате, что может пойти не так?. . .	Продвинутый ETL на C# из OLTP БД в хранилище stackOverflow 22.06.2025 Работая в сфере корпоративной аналитики, я постоянно сталкиваюсь с одним и тем же - нужны чистые, структурированные и, главное, свежие данные. Без них современные аналитические системы, машинное. . .
Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .	Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .	Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .

@Crematorium 0 / 0 / 0 Регистрация: 20.05.2017 Сообщений: 3

	Перенос данных из Power Point в Excel с VBA 20.05.2017, 22:52. Показов 3772. Ответов 1 Метки нет (Все метки) В Power Point есть слайд, на слайде размещён TextBox и в нём нужные мне данные. Нужно чтоб при нажатии на кнопку(на этом же слайде), переносились данные из этого TextBox в Excel в нужную мне ячейку(к примеру в A1). --------- P.s Как открыть ексель по кнопке я знаю, а как перенести данные я не знаю, гуглил ничего толкового не нашёл. - Dim objPPT As Object Set objPPT = CreateObject("Excel.Application") objPPT.Visible = True objPPT.WorkBooks.Open "E:\Linkoln\123.xlsm" Application.Quit - P.P.s Если нужны будут сами файлы, могу отправить. 0