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

[µo°Ý] ¦p¦ó³æ¿W§âexcel³æ¤@sheet°µ¿é¥X

¦^´_ 4# atuan207
­n³æ¿Wexcel³øªí¤¤ªºsheet1¡A©Ò¥H§Ú°µ¤F¤@­Ó«ö¶s°µ³æ¿Wªº¥t¦s
¥i§_¬Ý¬Ý«ö¶s³o¬qµ{¦¡½X!

TOP

¦^´_ 6# atuan207
§Ú¨S¦³ 2007 ²q·Q¬O, FileFormat:=xlOpenXMLWorkbook  ¬O¦s¬° 2007Àɮתº°Ñ¼Æ, »P°ÆÀɦW" xls" ¬O2003 °_½Ä¬ð.
¤£­n¥ÎFileFormat°Ñ¼ÆÀ³¥i¦æ.
  1. Private Sub CoB¥t¦s_Click()
  2.     Sheets(1).Copy   
  3.     ActiveWorkbook.SaveAs Filename:="D:\ªí³æ.xls"  
  4.     ActiveWorkbook.Close
  5. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD