返回列表 上一主題 發帖

[發問] 檔案右鍵>內容>詳細資料內資訊問題詢問

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-9-18 09:07 | 只看該作者

[發問] 檔案右鍵>內容>詳細資料內資訊問題詢問

Dear  all 大大
1.EXCEL檔案按滑鼠 右鍵>內容>詳細資料內>之所有資訊如何使用VBA將資料導到 儲存格內呢???
2.煩不吝賜教   THANKS*10000
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
6#
發表於 2018-9-19 14:48 | 只看該作者
DEAR jackyq  SIR
THANKS*100000000
羅

TOP

jackyq

帖子
323 
主題
6 
精華
0 
積分
313 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2025-5-3 
5#
發表於 2018-9-19 14:07 | 只看該作者
本帖最後由 jackyq 於 2018-9-19 14:12 編輯

英文版的關鍵字才是正確的
https://msdn.microsoft.com/en-us/library/microsoft.office.tools.excel.workbook.builtindocumentproperties.aspx

' 對照上面就是他的中文意義

Title
Subject
Author
Keywords
Comments
Template
Last author
Revision number
Application name
Last print date
Creation date
Last save time
Total editing time
Number of pages
Number of words
Number of characters
Security
Category
Format
Manager
Company
Number of bytes
Number of lines
Number of paragraphs
Number of slides
Number of notes
Number of hidden Slides
Number of multimedia clips
Hyperlink base
Number of characters (with spaces)

TOP

jackyq

帖子
323 
主題
6 
精華
0 
積分
313 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2025-5-3 
4#
發表於 2018-9-19 12:05 | 只看該作者
本帖最後由 jackyq 於 2018-9-19 12:07 編輯

excel 有欄位可存放作者名

magbox ActiveWorkbook.BuiltinDocumentProperties("Author").Value

'change Author name
ActiveWorkbook.BuiltinDocumentProperties("Author").Value = "rouber590324"

magbox ActiveWorkbook.BuiltinDocumentProperties("Author").Value

其他支援名  https://msdn.microsoft.com/zh-tw/library/microsoft.office.tools.excel.workbook.builtindocumentproperties.aspx

    標題

    Subject

    Author

    Keywords

    註解

    範本

    上次存檔者

    修訂版編號

    應用程式名稱

    列印日期

    建立日期

    存檔時間

    編輯總時間

    頁數

    字數

    字元數

    安全性

    類別

    Format

    Manager

    公司

    位元組數

    行數

    段落數

    投影片數

    附註

    隱藏投影片數

    多媒體資料

    超連結基底

    字元數 (含空白)

TOP

jackyq

帖子
323 
主題
6 
精華
0 
積分
313 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2025-5-3 
3#
發表於 2018-9-18 17:54 | 只看該作者
debug.Print Environ("username")
debug.Print Environ("computername")

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2018-9-18 16:16 | 只看該作者
DEAR ALL
但是我不知道擁有者的語法, 測試 .Dateowner或 .DateUserName都錯誤

目前我只知道檔案建立日期語法如下：
　Dim FSO As Object, Xa As String, Ax As Integer
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Xa = Sheet1.[D1048576].End(xlUp).Row
    For Ax = 8 To Xa
    If Sheet1.Cells(Ax, 3) <> "" Then
    Sheet1.Cells(Ax, 6) = FSO.GetFile(Sheet1.Cells(Ax, 4)).DateCreated
'    Set FSO = Nothing
    End If
    Next

但是我不知道擁有者的語法, 測試 .Dateowner或 .DateUserName都錯誤
羅

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題