Excelmacros（保存到Sharepoint库）不再接受句号？

代码是低于哪个工作正常，现在似乎不喜欢“.xlsm”部分。 问题出在所有PC上。 尝试使用Filename =和一些varients并固定它是“。” （期间）它不接受在“.xlsm”，删除期限，它是好的，但然后着陆在SP作为一个未知的文件（没有文件扩展名）任何意见

Sub SUBMIT（）Dim FName As String

FName =范围（“E3”）。文本FDate =范围（“I3”）

如果范围（“E3”）=“”然后MsgBox“请input您的名字”范围（“E3”）。selectElseIf范围（“I3”）=“”然后MsgBox“请input周末结束date”范围（“I3” ）。selectElseIf范围（“I3”）<>“”然后如果MsgBox（“你确定吗？（你是否在上方面板input了你的主pipe和双周结束date？”，vbYesNo）= vbNo Then Exit Sub ActiveWorkbook.SaveAs（“https：// * .sharepoint.com / corp / payroll / Timesheets”＆FName＆“”＆FDate＆“”＆“Timesheet”＆“xls”）MsgBox“Timesheet Submitted”End If End Sub