Перенос текста из ячейки excel в текстовое окно

@alex3964 · Регистрация: 28.07.2016

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

Может кто поможет. Нужен простой пример их ячейки excel в текстовое окно.
помудрил выходит ошибка "AktivX не может создать объект"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim p1 As String
 
Private Sub Комманда1_Click()
nex:
   Set oExcel1 = CreateObject("Excel.Application")
p1 = "F:\VB_Exel\Data.xls"
 
Set oBook1 = oExcel1.Workbooks.Open(FileName:=p1)
 
Текст1.Text = oBook1.Worksheets(1).Range("B2").Value
Exit Sub
 
 
 End Sub

@UBUNTU · 19.08.2016, 11:54

alex3964, А вы ссылку на Excel добавили в проекте?

@alex3964 · 19.08.2016, 12:34 **[ТС]**

нет не добавлял не знаю где?
я сейчас попробовал на другом чужом компьютере - работает.
На моем не хочет ругается на АктивХ

@paau · 19.08.2016, 13:17

На какой строчке выдает ошибку?

@UBUNTU · 19.08.2016, 13:25

alex3964, на вашем Excel установлен?

@alex3964 · 19.08.2016, 15:56 **[ТС]**

Ексель установлен, не знаю только какая версия.
Я думаю что с элементами AktivX у меня беда.
Я попробую систему переустановлю.
Комп используется для видеонаблюдения периодически - облако Новикам.
А там все элементы AktivX должны быть включены.
У меня есть просьба, может кто то из вас добрые люди оставит свою почту.
Просто пустое письмо мне кинь те на [email]
мне уже почти полтиник, когда то давно чего то на басике ваял лет 25 назад.
Вспоминать тяжело. Голова уже не та. Бывают мелкие вопросы, а спросить неукого.
Здесь конечно я так понимаю помогут, но мне как то неудобно.
Там и принт скрин можно кинуть...
А сейчас есть надобность.
Я так понимаю если моя прога на другом компе идет, значит в моем компе и беда.
Сегодня покопаюсь вечером.

Dragokas · 19.08.2016, 18:02

Сообщение от alex3964

У меня есть просьба, может кто то из вас добрые люди оставит свою почту.
Просто пустое письмо мне кинь те ...
мне уже почти полтиник, когда то давно чего то на басике ваял лет 25 назад.
Вспоминать тяжело. Голова уже не та. Бывают мелкие вопросы, а спросить неукого.
Здесь конечно я так понимаю помогут, но мне как то неудобно.

Если не изменяли стандартных настроек форума, то Вам на email должны приходить уведомления каждый раз, как только кто-нибудь отвечает в Вашей теме и / или темах, у которых вы в "Опции темы" справа над 1-м постом нажали кнопку "Добавить подписку".

Повторю вопрос:

Сообщение от paau

На какой строчке выдает ошибку?

@alex3964 · 19.08.2016, 20:13 **[ТС]**

Я уже снес систему и переустанавливаю. Попробую где то через час полтора.
Сразу напишу результат. Спасибо.

Добавлено через 19 минут
Выдавало ошибку на 5 строчке

Добавлено через 1 час 26 минут
Все заработало. Есть еще вопросик, не мог в примерах найти какой командой закрыть xlsx файл?
Да, прежде чем снести систему я сделал образ.
Если есть желание найти проблему, могу с образа систему старую вернуть.
Ошибка думаю возвратится. Только, что потом делать, как причину искать??? А главное нужно ли?
И еще может кините примерчик поиска в xlsx файле, только не замудреный, чтоб я сам разобрался.
В файле 80 строк, читать нужно построчно.

@UBUNTU · 20.08.2016, 10:20

oExcel1.Workbooks.Close

@alex3964 · 22.08.2016, 20:21 **[ТС]**

Спасибо за ответ. Дальше пока буду сам разбираться, если чего не смогу спрошу.

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	19.08.2016, 11:54
	alex3964, А вы ссылку на Excel добавили в проекте? 0

@alex3964 0 / 0 / 0 Регистрация: 28.07.2016 Сообщений: 5
	19.08.2016, 12:34 [ТС]
	нет не добавлял не знаю где? я сейчас попробовал на другом чужом компьютере - работает. На моем не хочет ругается на АктивХ 0

@paau 42 / 20 / 9 Регистрация: 15.01.2015 Сообщений: 95
	19.08.2016, 13:17
	На какой строчке выдает ошибку? 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	19.08.2016, 13:25
	alex3964, на вашем Excel установлен? 0

@alex3964 0 / 0 / 0 Регистрация: 28.07.2016 Сообщений: 5
	19.08.2016, 15:56 [ТС]
	Ексель установлен, не знаю только какая версия. Я думаю что с элементами AktivX у меня беда. Я попробую систему переустановлю. Комп используется для видеонаблюдения периодически - облако Новикам. А там все элементы AktivX должны быть включены. У меня есть просьба, может кто то из вас добрые люди оставит свою почту. Просто пустое письмо мне кинь те на [email] мне уже почти полтиник, когда то давно чего то на басике ваял лет 25 назад. Вспоминать тяжело. Голова уже не та. Бывают мелкие вопросы, а спросить неукого. Здесь конечно я так понимаю помогут, но мне как то неудобно. Там и принт скрин можно кинуть... А сейчас есть надобность. Я так понимаю если моя прога на другом компе идет, значит в моем компе и беда. Сегодня покопаюсь вечером. 0

@alex3964 0 / 0 / 0 Регистрация: 28.07.2016 Сообщений: 5
	19.08.2016, 20:13 [ТС]
	Я уже снес систему и переустанавливаю. Попробую где то через час полтора. Сразу напишу результат. Спасибо. Добавлено через 19 минут Выдавало ошибку на 5 строчке Добавлено через 1 час 26 минут Все заработало. Есть еще вопросик, не мог в примерах найти какой командой закрыть xlsx файл? Да, прежде чем снести систему я сделал образ. Если есть желание найти проблему, могу с образа систему старую вернуть. Ошибка думаю возвратится. Только, что потом делать, как причину искать??? А главное нужно ли? И еще может кините примерчик поиска в xlsx файле, только не замудреный, чтоб я сам разобрался. В файле 80 строк, читать нужно построчно. 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	20.08.2016, 10:20
	oExcel1.Workbooks.Close 0

@alex3964 0 / 0 / 0 Регистрация: 28.07.2016 Сообщений: 5
	22.08.2016, 20:21 [ТС]
	Спасибо за ответ. Дальше пока буду сам разбираться, если чего не смогу спрошу. 0