我想在Excel for Mac中运行以下在Windows上正常运行的宏。宏保存ActiveWorkBook
(在特定目录中)并通过电子邮件发送。
Sub SauveEnvoi()
Dim file As String
Application.DisplayAlerts = False
file = Macros.Cells(4, 2).Value & Macros.Cells(1, 2).Value
ActiveWorkbook.SaveAs file
Application.DisplayAlerts = True
Application.Dialogs(xlDialogSendMail).Show Macros.Cells(2, 2).Value, Macros.Cells(3, 2).Value
SetAttr file, vbReadOnly
Application.Quit
End Sub
来自以下评论
Macros.Cells(4, 2)
等于C:\LPO Solutions\Commandes OGY\
,
Macros.Cells(1, 2)
等于CDE.xlsm
,
Macros.Cells(2, 2)
等于xxxx@yyyy.fr
,
Macros.Cells(3, 2)
等于Commandes