ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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³£¿ù»~
ù

TOP

DEAR jackyq  SIR
THANKS*100000000
ù

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD