ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Àɮפº®e¿z¿ï°ÝÃD(¸óÀÉ®×)

[µo°Ý] Àɮפº®e¿z¿ï°ÝÃD(¸óÀÉ®×)

½Ð±Ðª©¤j:

­n¦p¦ó¨Ï¥Îtest01.xls¥h¿z¿ïtest02.xls(sheet"RAW")ªº¸ê®Æ?
test02.xls(sheet"RAW")ªº¸ê®Æ,¦p QDATE¤j©ó2013/8/16ªº¸ê®Æ,
½Æ»s¦^test01.xls(sheet"RAW")

test.rar (21.87 KB)

Àɮפº®e¿z¿ï°ÝÃD_¸óÀÉ®×

¦^´_ 1# jackyliu
  1. Option Explicit
  2. Sub Ex()
  3.     With Workbooks("TEST02.XLS").Sheets("RAW")
  4.         .[a1].AutoFilter
  5.         .[a1].AutoFilter Field:=1, Criteria1:=">" & DateValue("2013/08/16"), Operator:=xlAnd
  6.         .Range("a:d").Copy                '¨Ï¥Î¿z¿ï«áÁôÂ꺸ê®Æ¤£·|½Æ»sªº
  7.         Workbooks("TEST01.XLS").Sheets("RAW").[a1].PasteSpecial xlPasteValues
  8.         .[a1].AutoFilter
  9.     End With
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

§Ú¬O·Q»¡ test02 ·í¦¨¸ê®Æ®w,¥Ñ¨ä¥L excel ¥h¼´¨ú test02 (sheet)ªº¸ê®Æ, ¦^¨ä¥L °õ¦æexcel ¨­¤W,
ª©¤j ¥i¥H§ï¦¨³o¼Ë¶Ü?

TOP

¦^´_ 3# jackyliu
­n¶}±Ò¸ê®Æ®wÀÉ®×
  1. Workbooks("¨ä¥Lªº.XLS").Sheets("RAW").[a1].PasteSpecial xlPasteValues
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# jackyliu
¤]¥i¥H¸Õ¬Ý¬Ý Microsoft Query ¤èªk¬d¸ß¥~³¡¸ê®Æ¡A
msq.gif

TOP

¦^´_ 5# stillfish00

¨ü±Ð¤F... ·PÁÂ

TOP

¦^´_ 5# stillfish00


    ³o¤~¬O³Ì¦nªº¤è¦¡¡I
§Ú¤]¬O³o¼Ë¥Î

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD