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

Question

我有一个 Excel 工作表，我想通过宏将其保存到 SharePoint。我已经排序了，但问题是每个月的文件名都会不同，我不想每次都更改宏（即 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

Answer 2

我最终使用单元格来指定文件名并存储路径，这似乎有效：

Public Sub SavetoSP()
ThisFile = Range("D1").Value
ThisPath = Range("J1").Value

ActiveWorkbook.SaveAs Filename:=ThisPath & ThisFile & ".xlsm"
End Sub