Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将Excel计算转换为代码_Excel_Vba_Excel Formula - Fatal编程技术网

将Excel计算转换为代码

将Excel计算转换为代码,excel,vba,excel-formula,Excel,Vba,Excel Formula,我有一个很大的Excel电子表格,里面有很多公式。用户输入一些数据,并计算大量单元格 需要将此基于Excel的作业转换为实际代码。在哪里可以将所有公式从Excel中提取到文件、编码项目等中 欢迎提出任何意见 这里有一个快速脚本,它将在activesheet中输出公式及其相应的单元格地址 Sub ExportFormulas() Dim myFile As String myFile = Application.DefaultFilePath & "\formulas.t

我有一个很大的Excel电子表格,里面有很多公式。用户输入一些数据,并计算大量单元格

需要将此基于Excel的作业转换为实际代码。在哪里可以将所有公式从Excel中提取到文件、编码项目等中


欢迎提出任何意见

这里有一个快速脚本,它将在activesheet中输出公式及其相应的单元格地址

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

我已经删除了您的
VisualStudio
标记,因为这个问题与VisualStudioIDE本身无关。我对
eclipse
标记也做了同样的操作。你可以分别看到他们的标签wiki和。作为帮助你找到问题答案的建议:我怀疑是否有工具可以做到这一点,因为这不是一件很常见的事情,代码和此类工具可能会生成非常奇怪的代码。最好从头开始编写代码。您可以始终压缩excel文件,然后检查感兴趣的工作表的XML。一切都应该记录在那里。公式被
标记包围,而公式值在
标记中。你也可以解析它,得到你需要的。循环单元格,存储
范围([任何单元格])。公式
?@john我不想直接使用这些代码,只需要了解电子表格的功能。谢谢。我该把剧本放在哪里?就Excel而言,我是个新手。