Vb.net Excel формулу в значение

Формулировка задачи:

Привет
Ребят подскажите как через VB.net в excel диапозон формул превратить в значение
1 способ

Excel = CreateObject("excel.Application")
  Excel.Workbooks.Open("какой то путь")
  Excel.Visible = True
  Excel.ActiveSheet.Range(Excel.ActiveSheet.cells(1, 1), Excel.ActiveSheet.cells(45, 45)).select()
  Excel.Selection.copy()
  Excel.ActiveSheet.Selection.PasteSpecial(.....)

2 способ

Excel = CreateObject("excel.Application")
  Excel.Workbooks.Open("какой то путь")
  Excel.Visible = True
  i=1
  Do while cstr(Excel.ActiveSheet.Range("A"&cstr(i)))<>""
     for c=1 to 45
          Excel.ActiveSheet.cells(i,c)=cstr(Excel.ActiveSheet.cells(i,c).value)
     next
  loop
 

1 способ не знаю как прописать параметры

PasteSpecial(.....)

2 способ долгий очень
есть идеи как можно еще?

Решение задачи: «Vb.net Excel формулу в значение»

textual
                            Листинг программы 
                        

                            With CreateObject("excel.Application")
    .Visible = True
    With .Workbooks.Open("какой то путь").ActiveSheet
        With .Range(.Cells(1, 1), .Cells(45, 45))
            .Value = .Value
        End With
        .Parent.Close True 'закрыть с сохранением
    End With
    .Quit 'закрыть приложение
End With

                        