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

[µo°Ý] ½Ð°Ýexcel¦sÀɮɡA¦p¦ó¯à°÷¤£­nÅã¥ÜÀɮפw¸g¦s¦b°T®§¡Aª½±µÂл\¡H

[µo°Ý] ½Ð°Ýexcel¦sÀɮɡA¦p¦ó¯à°÷¤£­nÅã¥ÜÀɮפw¸g¦s¦b°T®§¡Aª½±µÂл\¡H

½Ð°Ýexcel¦sÀɮɡA¦p¦ó¯à°÷¤£­nÅã¥ÜÀɮפw¸g¦s¦b°T®§¡Aª½±µÂл\ÀɮסH

³Â·Ð¤j®a°Õ¡ã
ÂżÝ

ÁÂÁ¤j®aÀ°¦£¡A°ÝÃD¤w¸g¸Ñ¨M     Thanks¡I
ÂżÝ

TOP

¥t¦sÀɮתº¸Ü
  1.     Application.DisplayAlerts = False
  2.     ActiveWorkbook.SaveAs Filename:="¦ì¸m"
  3.     Application.DisplayAlerts = True
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

Sub test()
   Workbooks("123.xls").Close SaveChanges:=True '¦Û°ÊÀx¦sÃö³¬
End Sub

Sub test1()
   Workbooks("123.xls").Save '¦Û°ÊÀx¦s¤£Ãö³¬
End Sub

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD