VBAmacros以dynamic文件名保存到SharePoint

我有一个Excel表格，我想通过macros保存到SharePoint。 我有它sorting，但问题是每个月的文件名将是不同的，我不想每次都必须改变macros（即filenameSeptember，filenameOctober等）。

我正在使用一个非常基本的macros，因为我不是很擅长写它们，它的工作原理，但它的旧文件名硬编码在：

Sub savetest() ActiveWorkbook.SaveAs Filename:= _ "http://SharePointdirectory/filenameSeptember.xlsm" _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub 

上下文：我每个月都会用新数据更新这个文件，并用一个新的文件名保存，发送给用户进行validation – 我希望这个用户能够通过一个macros直接上传到SP目录，我已经调用了文件的文件名。

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

Answer 1

这将为你工作

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

Answer 2

我结束了使用单元格来指定一个文件名和存储path，而这似乎工作：

 Public Sub SavetoSP() ThisFile = Range("D1").Value ThisPath = Range("J1").Value ActiveWorkbook.SaveAs Filename:=ThisPath & ThisFile & ".xlsm" End Sub