Sharepoint上的Excel VBA-另存为模板不会创建新文档

我有打开模板、填充模板并用新名称保存模板的代码

这在我的本地硬盘上运行得非常好

但是，我现在需要它在sharepoint上工作，由于某些原因，我无法理解，它会打开模板，填充模板，然后用相同的名称保存模板，并且不会创建新的电子表格

Dim saveName as String
Dim fileName as String
Dim sjk as Workbook
fileName = Thisworkbook.Path & Application.PathSeperator & "Template.xlsx"
Set sjk = Workbooks.Open(filename)

saveName = PPD.Range("C100")

sjk.SaveAs ThisWorkbook.Path & "\" & saveName & ".xlsx"
sjk.Close SaveChanges:=True

我有debug.print保存名和ThisWorkbook.Path，一切都很好，应该“另存为”的输出正是它应该的样子

但我没有新的电子表格

Dim saveName as String
Dim fileName as String
Dim sjk as Workbook
fileName = Thisworkbook.Path & Application.PathSeperator & "Template.xlsx"
Set sjk = Workbooks.Open(filename)

saveName = PPD.Range("C100")

sjk.SaveAs ThisWorkbook.Path & "\" & saveName & ".xlsx"
sjk.Close SaveChanges:=True

这不是权限问题，我可以在不同的电子表格中运行一个更简单的宏，并在这里创建一个名为“test.xlsx”的保存的excel，但我似乎无法让这段代码正常工作

如果上面有任何语法错误，请忽略，语法在代码中是正确的，但我在另一台机器上使用了它，并在这里手动键入了它……它可以在本地驱动器上工作，缺少大写字母的语法错误不会成为问题

感谢您的帮助，因为我已经连续数小时把头撞在墙上，尝试改变saveName输出的不同方式……但都没有用

---

对于ThisWorkBook.Path-它找到了模板…因此它有正确的路径并保存了模板…它只是没有使用新名称创建新版本…这让我很害怕…

好的，所以经过更多的测试，我逐渐意识到…我的代码没有问题

问题出现在用于保存文档的名称中。对于许多空间，太多的字母…谁知道呢，您可以在sharepoint上拥有该名称的文档，但您不能做的是将该名称的文档宏保存到sharepoint

---

如果我找到了一个解决方法，我会将它发布给任何面临类似问题的人。

PPD不是问题，它是一张工作表的名称，它是代码名。正如我所说，它在我的本地驱动器上运行良好，而且当我查看saveName时，它会从PPD中获取信息，并将其准确地放在那里。