ªð¦^¦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 : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD