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

[µo°Ý] ­×§ï¤é´Á°ÝÃD´M°Ý

[µo°Ý] ­×§ï¤é´Á°ÝÃD´M°Ý

DEAR  ALL ¤j¤j
1.»Ý¨D¸ÓEXCELÀÉ®× "­×§ï¤é´Á" §ì¨ú¦Ü SHEET1.RANGE("A1")¤¤
2.½Ð°Ýµ{¦¡ ·Ð¤£§[½ç±Ð   THANKS*10000
ù

¦^´_ 1# rouber590324
Àɮצì¸m½Ð¦Û¦æ¥[¤J
Sub EX()
Dim myFso As Scripting.FileSystemObject
Set myFso = New Scripting.FileSystemObject
With myFso.GetFile("Àɮצì¸m")
   Sheets(1).[a1] = "³Ì«á§ó·s¤é:" & .DateLastModified
End With
Set myFso = Nothing
End Sub

TOP

DEAR  jcchiang SIR
OK    THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD