将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