在保存单张纸时设置文档属性

我根本不熟悉VBA，所以这让我难住，希望有人能帮助。

我有一个正确工作的SharePoint服务器上的模板。 为了保存具有服务器文档属性的xlsm文件，我有一个命令button，它运行以下命令：

Sub UpdateDB() For Each Prop In ThisWorkbook.ContentTypeProperties If Prop.Name = "Name" Then Prop.Value = Range("B8").Value End If Next Prop Filename = Range("B59").Value ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=52 End Sub 

这很好。

我现在有另一个模板，我想做类似的事情，但有一些并发症：

1. 我有几个工作表，我想保存为单个文件只包含上述工作表。
2. 每个文件的文档属性应该不同，基于每个工作表中的单元格。

现在我设法设置点1，并使用下面的代码工作正常：

 Sub NewSub() Worksheets("EMP1").Activate Filename = Range("B1").Value Dim wb as Workbook Application.ActiveSheet.Copy Set wb = ActiveWorkbook With wb .SaveAs Filename:=Filename, FileFormat:=52 End With End Sub 

这是行之有效的，但如果我尝试添加代码来设置文档属性，它不起作用，它不会带他们到新的文件。 我已经尝试添加第2行后设置文档属性的代码，我已经尝试在第7行之后添加它; 它不会引发错误，但不会设置任何文档属性。 任何帮助，将不胜感激。 谢谢。