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

此代码有效，但有些奇怪的事情发生时，当我试图保存文件，它显示在"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

要删除引号，您必须使用filter。

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

注意Mac：
请注意， getsaveasfilename存在很长时间的错误：如果用户使用公开箭头导航到文件，将返回不正确的path。 但是，如果双击目录节点，path将是正确的。