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

Question

我根本不熟悉VBA所以这让我很难过，希望有人可以提供帮助。

我在sharepoint服务器上有一个正常工作的模板。为了使用服务器文档属性保存xlsm文件，我有一个命令按钮，它运行以下命令：

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行之后添加它;它不会抛出错误，但也不会设置任何文档属性。任何有关这方面的帮助将非常感激。感谢。