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

[µo°Ý] Àɮפ¤ªº¨â­ÓSheet ½Æ»s¨ì·sªºÀÉ®×°ÝÃD

[µo°Ý] Àɮפ¤ªº¨â­ÓSheet ½Æ»s¨ì·sªºÀÉ®×°ÝÃD

¥Øªº:AÀÉ®×(test01.xls)ªº¼Ï¯Ã¾ã²z§¹²¦«á,±NAÀɮתº¨ä¤¤´X­ÓSheets(TEST¡BRAW;TEMP¤£­nCOPY)¤º®e½Æ»s¨ìBÀÉ®×Àx¦s,¨Ã¨ÌÀx¦s¤é´Á®É¶¡©R¦W.

¥Ø«eVBA¤º®e¤w¦³ 1.ÀɮשR¦W, 2.AÀɮתºSheets½Æ»s·|·s¼W¤@­ÓExeclÀÉ®×,«áÄò°Ê§@,¤@ª½¸Õ¤£¥X¨Ó,µL¨¥,³Â·Ðª©¤jÀ°¦£¤F

hello¡A§A¬O¤£¬O§Ñ¤F¤W¶ÇÀɮפF©O¡H

TOP

¥Øªº:AÀÉ®×(test01.xls)ªº¼Ï¯Ã¾ã²z§¹²¦«á,±NAÀɮתº¨ä¤¤´X­ÓSheets(TEST¡BRAW;TEMP¤£­nCOPY)¤º®e½Æ»s¨ìBÀÉ®× ...
jackyliu µoªí©ó 2013-8-26 21:22


¸É¤WÀÉ®×...

test01.rar (20.62 KB)

test01.rar (20.62 KB)

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2013-8-28 08:46 ½s¿è

¦^´_ 1# jackyliu
  1. Sub Copy_Sheet()
  2. Sheets(Array("TEST", "RAW")).Copy
  3. fs="D:\" & Format(Date, "yyyy_mm_dd") & ".xls"  '¦sÀÉÀɦW
  4. ActiveWorkbook.SaveAs FileName:= fs,FileFormat:=-4143
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
§Ú±Ncode Âà­×§ï¨ì¨ä¥LÀÉ®× , ¦³¨ÇÀɮצ³¤­­Ósheet ­nÂà¦s¨ì·sªºÀÉ®×,
¥Bsheet ¤£³sÄò;¡@§Ú¥Î±zªº¤è¦¡¡A±N¨ä¥L sheet¦WºÙ¥[¤J¨ì Sheets(Array("TEST", "RAW", "TODAY","YESDAY","NOW")).Copy , ³o¼Ë·|¥X²{¿ù»~­C !

TOP

¦^´_ 5# jackyliu
Àˬd¤@¤U¤u§@ªíªº¦WºÙ "TEST", "RAW", "TODAY","YESDAY","NOW"¬O§_¦³»~!
¦³"TEST "," TEST" ³o±¡ªp¶Ü?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE

Àˬd¤@¤U¤u§@ªíªº¦WºÙ "TEST", "RAW", "TODAY","YESDAY","NOW"¬O§_¦³»~!
¦³"TEST "," TEST" ³o±¡ªp¶Ü?
¦^ÂÐGBKEE: Àˬd¤@¤U,À³¸Ó¨S¿ù,  Sheets(Array("TEST", "RAW", "TODAY","YESDAY","NOW")).Copy ,¦n¹³¥u¯à½Æ»s¨â­Ósheet,
¤T­Ó¥H¤W´N¤£¦æ¤F !


¶¶¹D¤@´£,¨Ì¤é´Á®É¶¡²£¥ÍªºÀÉ®×,­n¦p¦ómail¥X¥h,
§Ú¤§«e³£¬O¤@ª½«ü©w¦P¤@­ÓÀÉ®×,¦ý¥Ø«e°µªk¬O­n±N
­è¤~²£¥Íªºmail¥X¥h,¥i§_«ü¾É¤@¤U !

CDO_Mail_Object.AddAttachment "D:\TEMP\test.xls"

TOP

¦^´_ 7# jackyliu
2003 ¨S³o­­¨î

°Ñ¦Ò[¹ü¤Æ¤@¾ã¤Ñªºblog]ªºÀÉ®×  

¹ü¤Æ¤@¾ã¤Ñªºblog.rar (16.19 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  GBKEE

Àˬd¤@¤U¤u§@ªíªº¦WºÙ "TEST", "RAW", "TODAY","YESDAY","NOW"¬O§_¦³»~!
¦³"TEST "," TES ...
jackyliu µoªí©ó 2013-8-28 14:47
  1. Sub Copy_Sheet()
  2.     Sheets(Array("TEST", "RAW", "TODAY", "YESDAY", "NOW")).Copy   '  ¦P®É½Æ»s "TEST"¡B¥H¤Î "RAW" µ¥¤­­Ó¤u§@ªí³æ
  3.     fs = ThisWorkbook.Path & "\" & Format(Date, "yyyy_mm_dd") & ".xls"      '  ¦sÀÉÀɦW
  4.     ActiveWorkbook.SaveAs FileName:=fs, FileFormat:=-4143
  5. End Sub
½Æ»s¥N½X
³o»yªk¬O¥¿½Tªº¡AGBKEEª©¤j¥Îªº¬O 2003¡A¦Ó§Ú¬O¨Ï¥Î 2010¡A
½ÐÀˬd©pªºµ{¦¡½X¡C

TOP

¦^´_ 8# GBKEE
¦^ÂÐGBKEE: ­«·s¦bÀˬd´ú¸Õ¨ä¥LÀÉ®×,³£¤£¦æ½Æ»s¤T­Ó¥H¤Wªºsheet!  Sheets(Array("TEST", "RAW", "TODAY","YESDAY","NOW")).Copy ,

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD