Преобразование вычислений Excel в код

Question

У меня есть большая таблица Excel с множеством формул.Некоторые данные вводятся пользователем, и вычисляется много ячеек.

Необходимо преобразовать эту работу на основе Excel в реальный код.Есть ли способ вытащить все формулы из Excel в файл, проект кодирования и т. Д.?

Любые идеи приветствуются.

Answer 1

Вот быстрый скрипт, который выведет формулы в активном листе с соответствующим адресом ячейки

Sub ExportFormulas()

    Dim myFile As String
    myFile = Application.DefaultFilePath & "\formulas.txt"

    Open myFile For Output As #1

    Dim cel As Range

    For Each cel In ActiveSheet.UsedRange.Cells
        If InStr(cel.Formula, "=") > 0 Then
            Write #1, cel.Address, cel.Formula
        End If
    Next cel

    Close #1

End Sub