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

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

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

¥»©«³Ì«á¥Ñ atuan207 ©ó 2011-4-30 15:33 ½s¿è

¤S¦³°ÝÃD·Q½Ð±Ð¦U¦ìªO¤Wªº¤j¤j¤F
´N¹³¤W¦¸°Ýªº¡A§Ú¦bsheet2¡Bsheet3«Ø¥ß¤F¤@­Ó¸ê®Æ®w¡A
§â¸ê®Æ¤ñ¹ï«á°e¦^sheet1
sheet1³Ì«á¦¨¬°­nªº¿é¥Xªº¤º®e
©Ò¥H²{¦b§Ú·Q­n³æ¿W§âsheet1°µ¿é¥X¥t¦s¸Ó«ç»ò°µ
¥Ø«e§Ú§ä¨ìªº¤è¦¡¦p¤U:

Sub output()
Application.DisplayAlerts = False
   Sheets("sheet1").UsedRange.Value = Sheets("sheet1").UsedRange.Value

   ActiveWorkbook.SaveAs Filename:="C:\Users" &  Replace(ActiveWorkbook.Name, "xlsm", "xlsx"),  FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = ture
End Sub

¦ý³o¨ÌµM·|§âsheet2¡Bsheet3ªº¸ê®Æ¤@°_¥t¦s
·Q½Ð°Ý¤@¤U¤j¤j¸Ó¦p¦ó°µ¤ñ¸û¦n???

§A«ü©wÀx¦s¬¡­¶Ã¯¡A·íµMÀx¦sªº´N¬O¾ã­Ó¬¡­¶Ã¯
«ü©wÀx¦s³æ¿W¤u§@ªí¹³³o¼Ë¡G
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs "D:\abc.xls"
«á­±¥i¦A©µ¦ù¬O§_§âÀx¦s¦nªº·s¬¡­¶Ã¯Ãö³¬

TOP

¥»©«³Ì«á¥Ñ atuan207 ©ó 2011-5-1 22:40 ½s¿è

·PÁÂchin15¤j¤jªº«ü¾É

½T¹ê¤§«e½d³ò³]©wªº¤Ó¤j¤F
¥Ø«e¬O§ï¦¨³o¼Ë
Sheets("Datamap").Copy
    ActiveWorkbook.SaveAs Filename:="D:\aaa.xls", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close

¥i¥H°õ¦æ
·P®¦

TOP

·Q¦A½Ð°Ý¤@¤U¡A¦]¬°§Úªº­ì©lexcelÀɬO2007ªº
¥i¬O¥t¦sÀÉ°ÆÀɦW§Ú·Q¥Î2003ªº.xls
(§Úª¾¹D¦b¥¿±`¦sÀɮɫö¥t¦s·sÀɸ̭±¦³­Ó97-2003¬¡­¶Ã¯)
(¦Ó§Ú¥u­n³æ¿Wexcel³øªí¤¤ªºsheet1¡A©Ò¥H§Ú°µ¤F¤@­Ó«ö¶s°µ³æ¿Wªº¥t¦s)

¥t¦sªºÀɮצb¶}±Ò®É³£·|¥X²{"®æ¦¡¤£²Å¡A½Ð½T»{Àɮ׬O§_·l·´..."ªº¦r¼Ë
¦ý¬O«ö¤F"¬O"ÂI¿ï¶µ¶}±Ò¤S¬O¥¿±`ªº

³o¼Ë¦³¤°»ò¿ìªk¥i¥H¸Ñ¨M©O????

TOP

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

TOP

¦^´_ 5# GBKEE
¦nªº¡A
§Ú¬O°µ¦bbutton¤W
µ{¦¡½X¦p¤U
  1. Private Sub CoB¥t¦s_Click()
  2.     Sheets("Sheet1").Copy
  3.     ActiveWorkbook.SaveAs Filename:="D:\ªí³æ.xls", FileFormat:= _
  4.         xlOpenXMLWorkbook, CreateBackup:=False
  5.     ActiveWorkbook.Close
  6. End Sub
½Æ»s¥N½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 : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD