Как получить значение формулы в Excel - VB
Формулировка задачи:
Есть файл Excel. Тяну нужную мне инфу через COM. Методы объекта COM подобны функциям VB.
Вопрос. Как получить результаты выполнения формулы, а не саму формулу, а так же как получить значение по ссылке на другую ячейку?
----------------------------------------
,
Вопрос. Как получить результаты выполнения формулы, а не саму формулу, а так же как получить значение по ссылке на другую ячейку?
----------------------------------------
,
Решение задачи: «Как получить значение формулы в Excel»
textual
Листинг программы
<font color="blue">Dim</font> xlApp <font color="blue">As</font> Excel.Application <font color="blue">Dim</font> xlBook <font color="blue">As</font> Excel.Workbook <font color="blue">Dim</font> strFileName <font color="blue">As</font> <font color="blue">String</font> strFileName = <font color="teal">"D:\1\Book1.xls"</font> <font color="blue">Set</font> xlApp = CreateObject(<font color="teal">"Excel.Application"</font>) <font color="blue">Set</font> xlBook = xlApp.Workbooks.<font color="blue">Open</font>( _ Filename:=strFileName) <font color="00AA00">' C1 равно, например, A1+B1.</font> MsgBox xlBook.Worksheets(<font color="darkblue"><b>1</b></font>).Range(<font color="teal">"C1"</font>).Value xlBook.<font color="blue">Close</font> <font color="blue">Set</font> xlBook = <font color="blue">Nothing</font> xlApp.Quit <font color="blue">Set</font> xlApp = <font color="blue">Nothing</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д