檔案內容篩選問題(跨檔案) - Excel程式區

[發問] 檔案內容篩選問題(跨檔案)

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-9-11 08:05 | 顯示全部帖子

回復 1# jackyliu

Option Explicit
Sub Ex()
With Workbooks("TEST02.XLS").Sheets("RAW")
.[a1].AutoFilter
.[a1].AutoFilter Field:=1, Criteria1:=">" & DateValue("2013/08/16"), Operator:=xlAnd
.Range("a:d").Copy '使用篩選後隱藏的資料不會複製的
Workbooks("TEST01.XLS").Sheets("RAW").[a1].PasteSpecial xlPasteValues
.[a1].AutoFilter
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-9-11 09:35 | 顯示全部帖子

回復 3# jackyliu
要開啟資料庫檔案

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 自己害自己，莫過於亂發脾氣。