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