CreatObject 出错ActiveX部件不能创建对象

小痘紫

各位大侠好，
最近在学习一些专业计算的代码，VBA窗体的最后一步是 “完成计算”，正常情况下应该会根据程序将计算结果写入到新建的Sheet里。但是在我的电脑上就出现了”ActiveX部件无法创建对象“的问题。我已经把涉及到的所有的System32下的dll都安装了。
窗体最后一步的按钮和出错图片如下图：
   
然后点击 调试后出来的代码是：

1.     Set ClassCalcule = CreateObject("aabbcc32.CLS_calcule")
   
2.     SRR_NH4_AM_T = ClassCalcule.SRR_NH4_AM_T(CN_Ratio, Media_Type(3), Temp(3), DF_AM_SRR_NH)
   
3.     AM_SRR_CN = ClassCalcule.AM_SRR_CN(CN_Ratio, Media_Type(3), Temp(3))

复制代码

然后找到ClassCalcule的定义代码如下：

1. Public ClassPXLS As Object
   
2. Public <b>ClassCalcule</b> As Object
   
3. Public Ret_clear_code As String
   
4. 
   
5. #If VBA7 Then
   
6.     Public Declare PtrSafe Function ShellExecute Lib "<b>shell32.dll</b>" Alias "ShellExecuteA" (ByVal HWnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   
7.     Public Declare PtrSafe Function SHGetFolderPath Lib "shell32.dll" Alias "SHGetFolderPathA" (ByVal HWnd As LongPtr, ByVal csidl As LongPtr, ByVal hToken As LongPtr, ByVal dwFlags As LongPtr, ByVal pszPath As String) As Long
   
8. #Else
   
9.     Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal HWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   
10.     Public Declare Function SHGetFolderPath Lib "shell32.dll" Alias "SHGetFolderPathA" (ByVal HWnd As Long, ByVal csidl As Long, ByVal hToken As Long, ByVal dwFlags As Long, ByVal pszPath As String) As Long
    
11. #End If

复制代码

还有一小段关于Scripting.filesystemobject的，如下：

1. Public Function ExisteFichier(s As String) As Boolean
   
2.     Dim pdx As Object
   
3.     Set pdx = CreateObject("Scripting.FileSystemObject")
   
4.     ExisteFichier = pdx.FileExists(s)
   
5. End Function

复制代码

我已经完全没主意了，哪位大侠帮忙看看。
多谢大家。

小痘紫

这个论坛能不能@人？
试一下：@山菊花 @lsc900707 @huang1314wei......

小痘紫

有人帮忙看看这个吗？
这问题这么难吗？