[µo°Ý] ¸ê®Æ¿z¿ï

jcchiang

¨Ï¥ÎVBµ{¦¡Copy Excel(A)ªº¸ê®Æ¨ìExcel(B)
¦ý»Ý¥ý¿z¿ïExcel(A)ªº¸ê®Æ,¥Ø«e¥u¯à¦bµ{¦¡¸Ì¼g¤J¹w¿z¿ïªº¤é´Á
½Ð°Ý­n¦p¦ó±NCriteria1:=">=2012/11/27"ªº¤é´Á§ï¦¨°õ¦æ®É¥ý¸ß°Ý¹w¿z¿ïªº¤é´Á,©Î¦b¨ä¥L¦ì¸m¥ý¶ñ¤J¤é´Á
µM«áµ{¦¡·|±N¤é´Á±a¤J¿z¿ï±ø¥ó

Source = Application.GetOpenFilename

With Workbooks.Open(Source)
  .Sheets(1).Select
  Rows("1:1").Select
  Selection.AutoFilter
  Selection.AutoFilter Field:=1, Criteria1:=">=2012/11/27", Operator:=xlAnd
  .Sheets(1).Range("A:M").Copy ThisWorkbook.Sheets(2).Range("A1")
  
  .Close

End With

dino1978

¦^´_ 1# jcchiang

¸Õ¸Õ¬Ý


Dim myDate

Do Until IsDate(myDate)

    myDate = Trim(InputBox("½Ð¿é¤J¤é´Á", "¤é´Á"))

Loop

Source = Application.GetOpenFilename

With Workbooks.Open(Source)
  .Sheets(1).Select
  Rows("1:1").Select
  Selection.AutoFilter
  Selection.AutoFilter Field:=1, Criteria1:=">=" &  myDate, Operator:=xlAnd
  .Sheets(1).Range("A:M").Copy ThisWorkbook.Sheets(2).Range("A1")
  
  .Close

End With

jcchiang

·PÁ«ü¾É,°ÝÃD¤w¸Ñ¨M,ÁÂÁÂ