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

[µo°Ý] ¯à§_¥uÃö³¬·QÃö±¼ªºEXCELÀÉ´N¦n¡H

¦^´_ 1# syuan
ActiveWorkbook.Close False                  'Ãö±¼§@¥Î¤¤ªº¬¡­¶Ã¯
Workbooks("¬Y¬Y¬Yxls").Close True          'Ãö±¼«ü©wªº¬¡­¶Ã¯
¤£¦sÀÉ Close False ,  ¦sÀÉ Close true

TOP

¦^´_ 4# syuan
vbe½s¿è¾¹¤´¯d¦b®à­±¤W..........!
Ãö³¬VBEµøµ¡ Application.VBE.MainWindow.Visible = False

ActiveWorkbook.Close False                  
Workbooks("¬Y¬Y¬Yxls").Close True         
thisworkbook.Close True
³o¨Ç³£¬O¬¡­¶Ã¯,©Ò¥HClose(Ãö³¬)ªº¬O¬¡­¶Ã¯,¨Ã¤£·|Ãö³¬Excel³oÀ³¥Îµ{¦¡(³nÅé).
­nÃö³¬Excel³oÀ³¥Îµ{¦¡¨Ï¥Î ->   Application.Quit   
Excel vba ªº Application ´N¬O->Excel
  1. Sub Ex()
  2.     Dim A As New Application
  3.     A.Visible = True
  4. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# syuan
³o¼Ë´N¦³ÂI¶Ë¸£µ¬¤F¡C¡C¡C¡C¡C¯uªº¨S¿ìªkÃö³¬VBE¶Ü¡H
Application.VBE.MainWindow.Visible = False ¤£´N¬OÃö³¬VBE

TOP

¦^´_ 8# syuan
¦bµ{¦¡ªº§ÀºÝ¥[¤W     Application.VBE.MainWindow.Visible = False  
¤£´NÃö³¬¤F

TOP

¦^´_ 10# syuan
©Ò¥H­«­nªºÀÉ®×­n°µ³Æ¥÷ªº

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD