使用动态文件名保存到 SharePoint 的 VBA 宏

Question

我有一个要通过宏保存到 SharePoint 的 Excel 工作表。我已经对其进行了排序，但问题是每个月的文件名都会不同，我不想每次都更改宏(即 filenameSeptember、filenameOctober 等)。

我正在使用一个非常基本的宏，因为我不太擅长编写它们，它可以工作，但它的旧文件名硬编码在:

Sub savetest()

ActiveWorkbook.SaveAs Filename:= _
    "http://SharePointdirectory/filenameSeptember.xlsm" _
    , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

上下文:每个月我都会用新数据更新这个文件并用新文件名保存它，将它发送给用户进行验证 - 我希望这个用户能够通过自动使用的宏直接上传到 SP 目录文件名我已经调用了文件。

我希望这是有道理的，并提前感谢。

Answer 1

这对你有用

Sub savetest()

ThisWorkbook.SaveAs Filename:= _
    "\\SharepointDirectory\" & ThisWorkbook.Name & MonthName(Month(Date), False) _
    , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub