vba 选择保存路径，指定文件名及文件类型。我的代码报错：GetSaveAsFilename作用于Application对象失败。

Question

我的代码如下，在“选择保存路径”那句总是报错说 对象GetGetSaveAsFilename作用于Application对象失败。不知道怎么回事。
如果把后缀部分去掉，变成 sNewBookFileName = Application.GetSaveAsFilename(sNewBookFileName）就可以，但是生成的文件没有后缀，打开还需要选择打开方式，也不知道怎么回事。。。。

sNewBookFileName = “周报表” & Format(Now(), "yyyy-mm-dd")
NewBook.Sheets(1).Activate
ActiveSheet.Cells(1, 1).Select
sNewBookFileName = Application.GetSaveAsFilename(sNewBookFileName, "*.xlsx") '选择保存路径
If (sNewBookFileName <> False) Then
Application.DisplayAlerts = False
NewBook.SaveAs Filename:=sNewBookFileName
Application.DisplayAlerts = True
End If

Answer 1

亲，这一句改成：
sNewBookFileName = Application.GetSaveAsFilename(sNewBookFileName, "Excel 工作簿, *.xlsx")

另外，您确定第一句正确吗？周报表 三个字使用中文双引号括起来的？