- ©«¤l
- 27
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-4-19
- ³Ì«áµn¿ý
- 2012-6-26
|
[µ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§Ú·Qn³æ¿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??? |
|