将 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