[算表] 使用VBA另存新檔時的作者

[kcyy (嫑槑)]

軟體: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://www.ptt.cc/bbs/Office/M.1538383924.A.FF0.html
→ newacc: 可用BuiltinDocumentProperties("Author")取得或修改作者
→ newacc: Application.ActiveWorkbook.[...]=ThisWorkbook.[...]
→ newacc: 把這句放在SaveAs前面，[...]就是1F的那串，這樣試試
→ soyoso: 取得上可以thisworkbook.author
→ soyoso: 修改以activeworkbook.author = thisworkbook.author
→ kcyy: 感謝樓上兩位大神協助，謝謝