初始保存时保存名称中的报价？

Question

此代码有效，但有些奇怪的内容，当我尝试保存文件时，它显示在"Open Order Log - 10-4-12.xlsx"而不是Open Order Log - 10-4-12.xlsx是否有原因？

NewFile = Application.GetSaveAsFilename(InitialFileName:="Open Order Log - " & Format(Date, "dd-mm-yyyy") & ".xlsx")

解决了它：

wbBK2.SaveAs Dir & Application.PathSeparator & "Open Order Report -" & Format(Date, "mm-dd-yyyy") & ".xlsx"

这有点像扭曲，但它确实有效。

Answer 1

要删除引号，您必须使用过滤器。

NewFile=Application.GetSaveAsFilename(InitialFileName:="StackOverflow.xlsx", _
             FileFilter:="Excel Files (*.xlsx), *.xlsx")

适用于Mac的说明：
请注意，有很长一段时间的错误 getsaveasfilename：如果用户使用公开内容导航到该文件 箭头，将返回不正确的路径。但是，如果是目录节点 而是双击，路径将是正确的。