调用DLL，出现无法找到文件，请问怎么解决？

Question

我制作了一EXE工程，要调用一个DLL，输入数据是从EXCEL文件中得到的，我使用了文件对话框输入文件，如果给定文件路径，调用DLL没有问题，如果使用了文件对话框输入文件，就会出现错误，提示找不到dll文件
困扰两天了也没有搞定，请大家说说，不胜感激！

Answer 1

标准DLL？申明部分能否写出？你将之放在系统目录下也有问题吗？

Answer 2

实际上是 CommonDialog 在指定文件时修改了当前缺省路径。试试：
ChDir App.Path另外的办法就是将 DLL 文件放到操作系统的 System 文件夹。

Answer 3

Private Declare Function levels_analysis Lib "Analysis" (ByVal in_string As String) As Long
这是声明调用dll语句
Private Sub OpenExcelFile_Click()
    On Error GoTo ErrHandler
    With CDLinput
         .CancelError = True
            .DialogTitle = "Open"
            .Filter = " (*.xls)|*.xls"
            .InitDir = (App.Path)
            .ShowOpen
            If Len(.FileName) = 0 Then
                Exit Sub
            End If
            strInputXlsFileName = .FileName
            CmdCompute.Enabled = True        End With
ErrHandler:
    Exit Sub
End Sub这是执行了点击打开文件按钮的CommonDialog 
将 DLL 文件放到操作系统的 System 文件夹下就可以了，有什么方法可以放在工程文件下面呢?