Excel 运行时错误'；429'；：ActiveX组件可以'；无法为Mac创建对象

Ik获取此错误：“运行时错误'429'：ActiveX组件无法创建对象”。 我想打开一个excel文档，但我认为宏的代码是用于Windows引导系统的。以下是代码：

Sub-Mail\u-ActiveSheet（）
“在Excel 2000-2016中工作
“有关提示，请参阅：http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
Dim FileExtStr作为字符串
Dim FileFormatNum尽可能长
将Sourcewb设置为工作簿
将WB设置为工作簿
Dim TempFilePath作为字符串
将文件名设置为字符串
Dim OutApp作为对象
将邮件变暗为对象
应用
.ScreenUpdate=False
.EnableEvents=False
以
设置Sourcewb=ActiveWorkbook
'将活动工作表复制到新工作簿
活动表，收到
设置Destwb=ActiveWorkbook
'确定Excel版本和文件扩展名/格式
用Destwb
如果Val（Application.Version）<12，则
“您使用的是Excel 97-2003
FileExtStr=“.xls”：FileFormatNum=-4143
其他的
“您使用的是Excel 2007-2016
选择Case Sourcewb.FileFormat
案例51:FileExtStr=“.xlsx”：FileFormatNum=51
案例52：
如果.hasvb项目
FileExtStr=“.xlsm”：FileFormatNum=52
其他的
FileExtStr=“.xlsx”：FileFormatNum=51
如果结束
案例56:FileExtStr=“.xls”：FileFormatNum=56
其他情况：FileExtStr=“.xlsb”：FileFormatNum=50
结束选择
如果结束
以
“”如果需要，请将工作表中的所有单元格更改为值
'与Destwb.Sheets（1）一起使用
“.Cells.Copy
'.Cells.paste特殊XLPaste值
“。单元格（1）。选择
"以
'Application.CutCopyMode=False
'保存新工作簿/发送/删除它
TempFilePath=Environ$（“temp”）和“\”
TempFileName=“”&Sourcewb.Name&“&Format（现在为“dd-mmm-yyyy”）
Set-OutApp=CreateObject（“Outlook.Application”）
Set-OutMail=OutApp.CreateItem（0）
用Destwb
.SaveAs TempFilePath&TempFileName&FileExtStr，FileFormat:=FileFormatNum
出错时继续下一步
发邮件
.to=“”
.CC=“”
.BCC=“”
.Subject=“订单确认/发票IC”
.Body=“Hi finance，”&vbNewLine&vbNewLine&_
“您能给我一份订单确认书或发票，然后寄给我吗？”&vbNewLine&_
“我已将信息放在附件中。”&vbNewLine&_
“这是一封自动生成的电子邮件。”&vbNewLine&vbNewLine&_
“你诚挚的”
.Attachments.Add Destwb.FullName
.展示
以
错误转到0
.Close savechanges:=True
以
'删除已发送的文件
终止TempFilePath&TempFileName&FileExtStr
发送邮件=无
设置应用程序=无
应用
.ScreenUpdate=True
.EnableEvents=True
以
端接头

有人能帮忙吗？

也许可以在