Hsieh

With Workbooks.Open("a.xls")  '¶}±ÒÀÉ®×
      with .sheets(format(date,"mmdd")) '¶}±ÒÀɮפºªº¤é´Á¤u§@ªí
      end with
end with

Hsieh

¦^´_ 3# imzues


    With Workbooks.Open("a.xls")  '¶}±ÒÀÉ®×
      with .sheets(format(date,"mmdd"))'¶}±ÒÀɮפºªº¤é´Á¤u§@ªí
           with .Range("a:a") '¤u§@ªí¤ºªºAÄæ

                end with
      end with
end with

³o¬Oª«¥ó¶¥¼hªº·§©À°ÝÃD
WORKBOOKS¤º¥]§tWORKSHEETS
WORKSHEETS¤º¥]§tRANGE

Hsieh

Resize(, .Count) ³o·|¬O¦h¤j½d³ò©O?
³o¥i¬O¥u¦³¤@¦C100Äæ­ò