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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.714 из 5
Похожие ответы