作者kcyy (嫑槑)
看板Office
标题[算表] 使用VBA另存新档时的作者
时间Mon Oct 1 16:51:56 2018
软体:Excel
版本:2010
如下是在搜寻网页上分享储存分页的程式码，
存下来的档案，"作者"跟"上次修改者"都会变成最後操作档案的人员
是否有办法让"作者"变成原EXCEL档案的作者，"上次修改者才变成最後操作档案的人员?
或者必须要在使用VBA插入新分页的时候就进行调整?
档案原作者为A，B使用此档案巨集新增与储存分页後，
将存下来的档案"作者"显示为A，"上次修改者"显示为B
谢谢
Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name &
".xls"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.216.164.223
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1538383924.A.FF0.html
1F：→ newacc: 可用BuiltinDocumentProperties("Author")取得或修改作者 10/01 17:30
2F：→ newacc: Application.ActiveWorkbook.[...]=ThisWorkbook.[...] 10/01 17:31
3F：→ newacc: 把这句放在SaveAs前面，[...]就是1F的那串，这样试试 10/01 17:32
4F：→ soyoso: 取得上可以thisworkbook.author 10/01 17:59
5F：→ soyoso: 修改以activeworkbook.author = thisworkbook.author 10/01 18:01
6F：→ kcyy: 感谢楼上两位大神协助，谢谢 10/02 09:53