OS X Excel 2011 VBA 保存文件名答案

【问题标题】：OS X Excel 2011 VBA Save File NameOS X Excel 2011 VBA 保存文件名
【发布时间】：2015-10-20 13:36:28
【问题描述】：

我需要编写一个脚本来将工作表保存到预定位置，并且保存名称由工作表中的值填充。我可以将它保存在正确的位置，但文件名返回 FATPMetiFolderPath 和 FATPMetiPath 的组合（\Volumes\MFS1\Groups\METI...\METIman\MMP0123 - FATP.xlsm）。我可以用 Windows Excel VBA 很好地做到这一点，但我以前从未使用过 Mac。我在 PC 上编程，但如果在 Mac 上使用，需要能够正确保存。

Sub saveFATPMMMac()

 'Saves copy for access for everyone
 Dim FATPMetiPath As String
 Dim FATPMetiFolderPath As String


 FATPMetiFolderPath = "\Volumes\MFS1\Groups\METI\Quality Control\Function and Acceptance Test Documents\METIman\"
 'FATPMetiFolderPath = "C:\Users\gzapantis\Desktop\"
 FATPMetiPath = FATPMetiFolderPath & _
    Sheets("Failure Report").Range("FailReportSN").Text & " - FATP " & ".xlsm"

 ThisWorkbook.SaveAs Filename:=FATPMetiPath

End Sub

【问题讨论】：

OS X 目录路径有不同的路径分隔符，windows 使用 \ 而 mac 使用 : - 你可以使用 Application.PathSeparator 代替两者。其余代码应该在 OS X 上运行良好
@MacroMan : 分隔符用于 posix 路径。您应该能够使用/ 代替\ 作为mac 路径。
@Tom - 我尝试了你的建议，并将其保存在原始文件的位置，仍然使用路径和文件名作为文件名。
@Gerasimos.Zap 所以它保存在原始文件上还是作为副本保存？
@Gerasimos.Zap 你试过ThisWorkbook.SaveAs(FATPMetiPath), FileFormat:=xlOpenXMLWorkbookMacroEnabled你需要从你的路径名中删除文件扩展名或使用ThisWorkbook.SaveCopyAs(FATPMeitPath)

标签： macos vba excel excel-2011

【解决方案1】：

我已经解决了这个问题。它以正确的文件名和正确的位置保存它。

Sub saveFATPMMMac()
'Saves copy for access for everyone
  Dim FATPMetiPath As String
  Dim FATPMetiFolderPath As String

 If Application.PathSeparator = ":" Then
    FATPMetiFolderPath = "Volumes:MFS1:Groups:METI:Quality Control:Function and Acceptance Test Documents:METIman:"
 Else
    FATPMetiFolderPath = "F:\Groups\METI\Quality Control\Function and Acceptance Test Documents\METIman\"
 End If

 FATPMetiPath = FATPMetiFolderPath & _
    Sheets("Failure Report").Range("FailReportSN").Text & " - FATP.xlsm"

 ThisWorkbook.SaveAs Filename:=FATPMetiPath

End Sub

感谢您为我指明了正确的方向。

【讨论】：