[µo°Ý] VBA ·j´M®É¶¡§ì EXCELÀÉ

key9028

½Ð¦U¦ì¤j¤jÀ°À°¦£
¨Ò¦p:Range("A1")©M("A2")
³]©w6/1¨ì6/2¤é´Á©Î®É¶¡.
·j´M D¼Ñ¤º ³o¬q®É¶¡¦³±oEXCELÀÉ
§âÀɦW¦C¥Xlist ¨ì sheet 1 (¥ô¦óÀx¦s®æ³£¥i)

key9028

¦^´_ 2# GBKEE

GBKEE¤j¤j ¶W±jªº!!
¯uªº¥i¥H¥Î
¦ý¬O§Úµo²{ ! D¼Ñ¤º¤Ó¦h¸ê®Æ§¨ ,¤Ó¦h¦n´X¦~¤ë¥÷¸ê®Æ§¨ ·j´M·|Åܦ¨·í¾÷

¸ê®Æ¤Ó¹LÃe¤j ¹q¸£©Ê¯à¤ÓÄê!!
µ¥¶W¤[¤F!µ¥¶W¹L¥b¤p®É«áÁÙ¨S¥ô¦óµ²ªG

¦ý¬OÁÙ¬OÁÂÁ§A §Ú¾Ç¨ì§Aªº±Mªø

GBKEE

¦^´_ 1# key9028

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub EX()
   
3.     Dim f As Object, s As String, xFile As String, i As Integer
   
4.     'Set fs = CreateObject("Scripting.FileSystemObject")
   
5.     'FileSystemObject ª«¥ó, ´£¨Ñ¹ï¹q¸£Àɮרt²Îªº¦s¨ú¡C
   
6.     xFile = Dir("D:\*.XLS")
   
7.     Do While xFile <> ""
   
8.         Set f = CreateObject("Scripting.FileSystemObject").GetFile("D:\" & xFile)
   
9.         s = f.DateCreated
   
10.         If [a1] <= s And [a2] >= s Then
    
11.             i = i + 1
    
12.             Cells(i, "b") = f
    
13.             Cells(i, "c") = s
    
14.         End If
    
15.         xFile = Dir
    
16.     Loop
    
17. End Sub

½Æ»s¥N½X