Как получить значение формулы в 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>