[µo°Ý] ¸ó¤ë§ì¸ê®Æªº°ÝÃD

imzues

½Ð°Ý¤@¤U§Ú·Q¥Î¨C¤Ñªº¤é´Á§ì«e¤@¤Ñªº¸ê®ÆÀɮתº¸ê®Æ
¦ý§Ú¹J¨ì¸ó¤ëªº®É­Ô¡A§Ú¼gªº³¡¥÷´N·|¦³°ÝÃD
¥i¥H¨ó§U«ü¾É¤@¤U«ç»ò§JªA¸ó¤ëªº°ÝÃD

Dim MySheet As Worksheet
    Dim D As String
    Dim M As String
    Dim Y As String
    Dim Rowno As Integer


    D = Day(Now) - 1
    Y = Year(Now)
    M = Month(Now)


   If Len(D) = 1 Then
   D = "0" + D
   Else
   D = D
   End If

   If Len(M) = 1 Then
   M = "0" + M
   Else
   M = M
   End If

With Workbooks.Open("C:\\00" + M + "TEST\00" + M + D + "TEST.xls")

imzues

·PÁÂ....§Ú¤j·§ª¾¹D­n­×§ï¤°»ò¦a¤è¤F!!
ÁÂÁÂÀ°¦£!!!!