我检查了几遍代码，也没看出什么问题！这里专家高手云集，希望能指点一下！

下面是我的代码：

1 、Fortran DLL源码：

      subroutine circle_area(radius,c_a)

!DEC$ ATTRIBUTES DLLEXPORT Alias "circle_area":: circle_area

!DEC$ ATTRIBUTES REFERENCE :: radius

!DEC$ ATTRIBUTES REFERENCE :: c_a

      implicit none

      real*4  :: radius

      real*4   :: c_a

      real, parameter :: PI = 3.14159      

      c_a = radius*radius*PI    

!        print*,c_a

      return

      end subroutine

2、VBA里代码

   声明部分：

   Option Explicit  

   Public Declare Sub circle_area Lib "I:\\S2_yaqiji\\test\\Release\\test.dll" (ByRef R As Single, ByRef A As Single)    

    调用部分：

   Private Sub CommandButton4_Click()

            Dim R As Single

            Dim A As Single

            R = 10

           Call circle_area(R, A)        

           MsgBox "调用了Test.dll，在半径为10时，计算面积A=" & A

     End Sub

4、在VBA里运行程序，出现如此的错误提示：

      运行时错误\'453’

      找不到DLL输入点 circle_area ，在 I:\\s2\\.....\\test.dll中！

点击浏览该文件

附件里有fortran代码和调用dll的VBA窗体代码（运行窗体后点击TestDLL就可以调用本dll）

原来是调用函数名称大小写的问题

Fortran编译成的Dll函数默认名都是大写的，没有注意到这个！所以才出现之前的问题！

虽然这个问题解决了，但是又有了新问题。

在此在想大家提一下：

我上面的那个程序，其实是个试验测试用的代码。真正要编译的代码比这复杂的多，Fortran源码里有一个主程序，若干子程序，主程序会在需要的时候随时调用子程序，调试了一下，程序能够正确运行。随后就把代码修改成Dll格式的，and这主程序和这些子程序编译成了一个Dll,然后用了一个excel VBA里的窗体按钮调用了这个dll,运行之后发现，这个dll确实被调用了，而且dll的功能也实现了（从输出的文本文件可以看出来，所需要的文件都输出了，结果也对！），但是VBA程序出现了致命错误：excel 应用程序窗口出错，excel需要关闭。现在问题就卡在了这里，也不知道是什么原因！