作者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/m.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