是Office 2016 Mac OS版本问题。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim FilenameStr As String
FilenameStr = Sheet1.Range("F11").Value
FilenameStr = ActiveWorkbook.Path & "/" & FilenameStr & "_" & Sheet1.Range("I5").Value
或者这是前一行的替代
FilenameStr = FilenameStr & "_" & Sheet1.Range("I5").Value
此时我得到的文件名是这样的 /用户/名为myUsername / somedir / 123456789_20130531-002
ActiveWorkbook.SaveCopyAs (FilenameStr & ".xls")
Cancel = True
End Sub
这是我得到的错误 运行时错误'1004':无法访问只读文档123456789_20130531-002.xls
该文件不存在且必须创建,但Everythig在Office 2011中恢复。