PM> Install-Package Spire.XLS

using Spire.Xls;
using System.IO;
using System.Text;

namespace ReadFormulas
{
    class Program
    {
        static void Main(string[] args)
        {
            //Workbook インスタンスを作成する
            Workbook workbook = new Workbook();
            //Excel ドキュメントをロード
            workbook.LoadFromFile("C:\\Users\\Administrator\\Desktop\\Formulas.xlsx");

            //最初のワークシートを取得する
            Worksheet sheet = workbook.Worksheets[0];

            //StringBuilderインスタンスを作成する
            StringBuilder sb = new StringBuilder();

            //ワークシートの使用範囲にアクセスする
            CellRange usedRange = sheet.AllocatedRange;
            //使用範囲内のセルをループする
            foreach (CellRange cell in usedRange)
            {
                //現在のセルに数式があるかどうかを検出する
                if (cell.HasFormula)
                {
                    //セル名を取得する
                    string cellName = cell.RangeAddressLocal;
                    //数式を取得する
                    string formula = cell.Formula;
                    //セル名と数式をStringBuilderに追加する
                    sb.AppendLine(cellName + " has a formula: " + formula);
                }
            }
            // StringBuilderのコンテンツを.txtファイルに書き込む
            File.WriteAllText("formulas.txt", sb.ToString());
        }
    }
}

Imports Spire.Xls
Imports System.IO
Imports System.Text
 
Namespace ReadFormulas
    Class Program
        static void Main(string() args)
        {
            'Workbook インスタンスを作成する
            Dim workbook As Workbook =  New Workbook() 
            'Excel ドキュメントをロード
            workbook.LoadFromFile("C:\\Users\\Administrator\\Desktop\\Formulas.xlsx")
 
            '最初のワークシートを取得する
            Dim sheet As Worksheet =  workbook.Worksheets(0) 
 
            'StringBuilderインスタンスを作成する
            Dim sb As StringBuilder =  New StringBuilder() 
 
            'ワークシートの使用範囲にアクセスする
            Dim usedRange As CellRange =  sheet.AllocatedRange 
            '使用範囲内のセルをループする
            Dim cell As CellRange
            For Each cell In usedRange
                '現在のセルに数式があるかどうかを検出する
                if (cell.HasFormula)
                {
                    'セル名を取得する
                    Dim cellName As String =  cell.RangeAddressLocal 
                    '数式を取得する
                    Dim formula As String =  cell.Formula 
                    'セル名と数式をStringBuilderに追加する
                    sb.AppendLine(cellName + " has a formula: " + formula)
                }
            Next
            ' StringBuilderのコンテンツを.txtファイルに書き込む
            File.WriteAllText("formulas.txt", sb.ToString())
        }
    End Class
End Namespace