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 文件夹下就可以了,有什么方法可以放在工程文件下面呢?