[µo°Ý] ÀÉ®×¥kÁä>¤º®e>¸Ô²Ó¸ê®Æ¤º¸ê°T°ÝÃD¸ß°Ý

rouber590324

Dear  all ¤j¤j
1.EXCELÀɮ׫ö·Æ¹« ¥kÁä>¤º®e>¸Ô²Ó¸ê®Æ¤º>¤§©Ò¦³¸ê°T¦p¦ó¨Ï¥ÎVBA±N¸ê®Æ¾É¨ì Àx¦s®æ¤º©O???
2.·Ð¤£§[½ç±Ð   THANKS*10000

rouber590324

DEAR ALL
¦ý¬O§Ú¤£ª¾¹D¾Ö¦³ªÌªº»yªk, ´ú¸Õ .Dateowner©Î .DateUserName³£¿ù»~

¥Ø«e§Ú¥uª¾¹DÀɮ׫إߤé´Á»yªk¦p¤U¡G
¡@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

¦ý¬O§Ú¤£ª¾¹D¾Ö¦³ªÌªº»yªk, ´ú¸Õ .Dateowner©Î .DateUserName³£¿ù»~

jackyq

debug.Print Environ("username")
debug.Print Environ("computername")

jackyq

excel ¦³Äæ¦ì¥i¦s©ñ§@ªÌ¦W

magbox ActiveWorkbook.BuiltinDocumentProperties("Author").Value

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

magbox ActiveWorkbook.BuiltinDocumentProperties("Author").Value

¨ä¥L¤ä´©¦W  https://msdn.microsoft.com/zh-tw/library/microsoft.office.tools.excel.workbook.builtindocumentproperties.aspx

    ¼ÐÃD

    Subject

    Author

    Keywords

    µù¸Ñ

    ½d¥»

    ¤W¦¸¦sÀɪÌ

    ­×­qª©½s¸¹

    À³¥Îµ{¦¡¦WºÙ

    ¦C¦L¤é´Á

    «Ø¥ß¤é´Á

    ¦sÀɮɶ¡

    ½s¿èÁ`®É¶¡

    ­¶¼Æ

    ¦r¼Æ

    ¦r¤¸¼Æ

    ¦w¥þ©Ê

    Ãþ§O

    Format

    Manager

    ¤½¥q

    ¦ì¤¸²Õ¼Æ

    ¦æ¼Æ

    ¬q¸¨¼Æ

    §ë¼v¤ù¼Æ

    ªþµù

    ÁôÂçë¼v¤ù¼Æ

    ¦h´CÅé¸ê®Æ

    ¶W³sµ²°ò©³

    ¦r¤¸¼Æ (§tªÅ¥Õ)

jackyq

­^¤åª©ªºÃöÁä¦r¤~¬O¥¿½Tªº
https://msdn.microsoft.com/en-us/library/microsoft.office.tools.excel.workbook.builtindocumentproperties.aspx

' ¹ï·Ó¤W­±´N¬O¥Lªº¤¤¤å·N¸q

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)

rouber590324

DEAR jackyq  SIR
THANKS*100000000