Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何将Excel VBA从Windows转换为MAC?_Excel_Vba_Macos - Fatal编程技术网

如何将Excel VBA从Windows转换为MAC?

如何将Excel VBA从Windows转换为MAC?,excel,vba,macos,Excel,Vba,Macos,我想在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 Appli

我想在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

宏单元格(2,2)
等于
xxxx@yyyy.fr


Macros.Cells(3,2)
等于
命令

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)等于命令您可能想看到的感谢Siddharth,这个链接非常适合从MAC发送电子邮件。保存文件怎么样?感谢保存文件?哪些文件和位置?file=Macros.Cells(4,2)。Value&Macros.Cells(1,2)。Value-ActiveWorkbook.SaveAs文件