Вопрос № 164660: Уважаемые Эксперты! Изучаю язык самостоятельно. Никак не могу добиться, чтобы из ячейки «А1» книги «С: 1.xls» при загрузке формы в TextBox появлялось значение ячейки – помогите, месяц бьюсь. Из блокнота получается - из Excel ну никак. Хоть намёк...
Вопрос № 164.660
Уважаемые Эксперты! Изучаю язык самостоятельно. Никак не могу добиться, чтобы из ячейки «А1» книги «С: 1.xls» при загрузке формы в TextBox появлялось значение ячейки – помогите, месяц бьюсь. Из блокнота получается - из Excel ну никак. Хоть намёк бы.
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Emelyaleksej! в VB6 Вашу задачу может выполнить подобный код:
Код:
Private Sub Form_Load() TextBox.Text = fromXLS End Sub Function fromXLS() As String Dim XL As Object, XLS As Object Set XL = CreateObject("Excel.Application") 'Excel s = "c:1.xls"
'документ XL.Workbooks.Open (s) 'Открытие Set XLS = XL.Worksheets(1) 'индекс листа, может быть имя листа - ("Лист1") fromXLS = XLS.Cells(1, 1) Set XL = Nothing End Function
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.