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

[µo°Ý] ½Ð±Ð¦p¦ó¶}±Ò¸ê®Æ§¨¤¤ªºÀɮשO¡H

[µo°Ý] ½Ð±Ð¦p¦ó¶}±Ò¸ê®Æ§¨¤¤ªºÀɮשO¡H

±z¦n¡Aª©¤Wªº¦Ñ®v­Ì¦]¤½¥qªº»Ý¨D¡A
¬G¨C¤Ñ³£»Ý­n§ì¸ê®Æ§¨¸Ì³Ì·sªºxlsÀÉ
¨ä½Æ»s¬¡­¶Ã¯A3Äæ¦ì¡A
¶K¤W©ó·sªºÀÉ®×¥H«K¤@¤Ñ¤u§@ªº¶}©l
·Q«ü±Ð¦bExcel¤¤¦p¦ó¦b«ö¤U«ö¶s«á
¶}±Ò«ü©wªº¸ê®Æ§¨¤¤
«Ø¥ß®É¶¡³Ì·sªºÀɮשO¡H

©Î§ìÀɦW±Æ§Ç³Ì«áªº¤è¦¡¤]¦æ
(ÀɦW¬Ò¥HÀx¦s®æ¦¡ex:2015-12-03)
¦Ó¶}±ÒÀɮ׫᪺½Æ»s°Ê§@¡A
¤p§Ì¥´ºâ¥Î¿ý»s¥¨¶°ªº¤è¦¡§¹¦¨

½Ð¦U¦ì¦Ñ®v´£¨Ñ·N¨£¡AÁÂÁÂ

¦^´_ 1# z71078170
  1. Sub Test()
  2.     Dim oFS As Object, oFD As Object
  3.     Dim newFile As String, newDate As Date
  4.    
  5.     Set oFS = CreateObject("Scripting.FileSystemObject")
  6.     Set oFD = oFS.GetFolder("C:\¸ê®Æ§¨¸ô®|")
  7.    
  8.     For Each x In oFD.Files
  9.         If x.DateCreated > newDate Then
  10.             newDate = x.DateCreated
  11.             newFile = x.Path
  12.         End If
  13.     Next
  14.     Workbooks.Open newFile
  15. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD