PTT數位生活區 / Office

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

看板Office作者 (嫑槑)時間7年前 (2018/10/01 16:52), 編輯推噓0(0推 0噓 6→)
留言6則, 3人參與, 7年前最新討論串1/1
軟體: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
→
10/01 17:30, 7年前 , 1F
可用BuiltinDocumentProperties("Author")取得或修改作者
10/01 17:30, 1F
→
10/01 17:31, 7年前 , 2F
Application.ActiveWorkbook.[...]=ThisWorkbook.[...]
10/01 17:31, 2F
→
10/01 17:32, 7年前 , 3F
把這句放在SaveAs前面，[...]就是1F的那串，這樣試試
10/01 17:32, 3F
→
10/01 17:59, 7年前 , 4F
取得上可以thisworkbook.author
10/01 17:59, 4F
→
10/01 18:01, 7年前 , 5F
修改以activeworkbook.author = thisworkbook.author
10/01 18:01, 5F
→
10/02 09:53, 7年前 , 6F
感謝樓上兩位大神協助，謝謝
10/02 09:53, 6F
‣ 更多 kcyy 的文章
文章代碼(AID): #1RiU0q_m (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 kcyy 的文章
文章代碼(AID): #1RiU0q_m (Office)