значение из экселя в переменную ворд - Microsoft Office Excel - Страница 2

SirSAS · 13.02.2015, 07:57

Ругается ссылка. Страница с вирусом.

maksim_serg · 13.02.2015, 07:59

у меня не ругается)

maksim_serg · 13.02.2015, 08:04

стало жутко интересно

SirSAS · 13.02.2015, 09:03

Спасибо, Максим, не буду рисковать )
Если можно, код приведите, пожалуйста.

В принципе у меня что-то получилось через CreateObject. Как ни странно, пока все работает в таком виде:

Код:

Dim objExcel As Object
Template$ = "F:\16_Work\Динамическое отображение.xlsx"
    Set objExcel = CreateObject("Excel.Application")
    Set wb = objExcel.Workbooks.Open(Template)
    If objExcel.Range("H1").Text = 1 Then NDSvalue = True Else: NDSvalue = False
    MsgBox objExcel.Range("H1").Text
    objExcel.Quit
    FormNDS.Show

Hugo121 · 13.02.2015, 11:50

Не боитесь что кто-то сохранит файл с активным листом например номер 2?

IgorGO · 13.02.2015, 13:05

Hugo121,
откуда столько пессимизма?
нужно верить в удачу, а вдруг файл откроется с "правильным" активным листом

у меня половина программ работает на принципах:
1. что всегда открыт нужный программе лист
2. пользователь никогда не делает ошибок при вводе данных!

SirSAS · 14.02.2015, 09:01

Ваш сарказм не уместен, товарищи )) Я только учусь!
Согласен, надо как-то лист принудительно указать. Есть варианты?
Заранее спасибо!

IgorGO · 14.02.2015, 20:01

в связи с тем, что книга уже открыта, обращаться можно к ней а не к Екселю
замените
objExcel.Range("H1")
на
wb.worksheets(1).Range("H1")

13.02.2015, 09:03	#14
SirSAS Регистрация: 30.12.2010 Сообщений: 8	Спасибо, Максим, не буду рисковать ) Если можно, код приведите, пожалуйста. В принципе у меня что-то получилось через CreateObject. Как ни странно, пока все работает в таком виде: Код: `Dim objExcel As Object Template$ = "F:\16_Work\Динамическое отображение.xlsx" Set objExcel = CreateObject("Excel.Application") Set wb = objExcel.Workbooks.Open(Template) If objExcel.Range("H1").Text = 1 Then NDSvalue = True Else: NDSvalue = False MsgBox objExcel.Range("H1").Text objExcel.Quit FormNDS.Show` Последний раз редактировалось SirSAS; 13.02.2015 в 09:27.

13.02.2015, 11:50	#15
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Не боитесь что кто-то сохранит файл с активным листом например номер 2? webmoney: E265281470651 Z422237915069 R418926282008

13.02.2015, 13:05	#16
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Hugo121, откуда столько пессимизма? нужно верить в удачу, а вдруг файл откроется с "правильным" активным листом у меня половина программ работает на принципах: 1. что всегда открыт нужный программе лист 2. пользователь никогда не делает ошибок при вводе данных! Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

14.02.2015, 20:01	#18
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	в связи с тем, что книга уже открыта, обращаться можно к ней а не к Екселю замените objExcel.Range("H1") на wb.worksheets(1).Range("H1") Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Нумерация листов ворд-документа, запущенного из экселя??	wolf05632	Microsoft Office Excel	3	23.04.2011 13:27
Из Экселя ячейку в ворд и сохранить файл с именем ячейки	Zhenya2030	Microsoft Office Word	1	19.07.2010 15:36
Перенос форм из Экселя в Ворд	Nash1	Microsoft Office Word	5	07.07.2009 06:32
Перенести таблицы Экселя в Ворд	Nash1	Фриланс	5	02.07.2009 09:46
Копирование участка текста из Экселя в Ворд	Devourer12345	Microsoft Office Excel	3	30.07.2008 08:13

13.02.2015, 07:57	#11
SirSAS Регистрация: 30.12.2010 Сообщений: 8	Ругается ссылка. Страница с вирусом.

13.02.2015, 07:59	#12
maksim_serg Форумчанин Регистрация: 25.03.2010 Сообщений: 417	у меня не ругается)

13.02.2015, 08:04	#13
maksim_serg Форумчанин Регистрация: 25.03.2010 Сообщений: 417	стало жутко интересно

14.02.2015, 09:01	#17
SirSAS Регистрация: 30.12.2010 Сообщений: 8	Ваш сарказм не уместен, товарищи )) Я только учусь! Согласен, надо как-то лист принудительно указать. Есть варианты? Заранее спасибо!