求教EXCEL2013

*记录错误日志
Public Sub ReportError(ByVal ErrorSource As String, Optional ByVal Memo As String, Optional ByVal ShowMessage As Boolean = False)
Dim strErrDesc As String
Dim strFilename As String
strErrDesc = Err.Description
strFilename = ThisWorkbook.path & "\Log\StartUpMacro.log"
Call mobjHelper.ReportError(strFilename, "StartUpMacro." & ErrorSource, Memo, Err, Erl)
If ShowMessage = True Then
MsgBox strErrDesc, vbCritical, "Error"
Else
End If
On Error Resume Next
End Sub

我最近也被32位下做好的东西,不能在64位的电脑上运行而困扰,很想知道怎么解决的.