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

«O护¤u§@ªí

«O护¤u§@ªí

eg.§â¤u§@ªí©ñ¦b C:\®à­±  ¤~¥i¥H¥Î    §â¤u§@ªí©ñ¦b (C:\¨ä¥L¦a¤è  D:\ ) ¤£¯à¥Î
¦³ÉN¦³¤èªk¥i¥H³o¼Ë«O护¤u§@ªí?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

eg.§â¤u§@ªí©ñ¦b C:\®à­±  ¤~¥i¥H¥Î    §â¤u§@ªí©ñ¦b (C:\¨ä¥L¦a¤è  D:\ ) ¤£¯à¥Î
¦³ÉN¦³¤èªk¥i¥H³o¼Ë«O& ...
basarasy µoªí©ó 2010-7-15 23:40


©ñ¦b ThisWorkbook ¸Ì­±¸Õ¸Õ
  1. Private Sub Workbook_Open()

  2. 'Àɮ׸ô®|­Y¤£¬O¦b ®à­±,«hÃö³¬¦¹ÀÉ®×
  3. If Not ThisWorkbook.Path Like "*®à­±" Then ActiveWindow.Close

  4. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# jackdream


    ÁÂÁ¤j¤j.
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

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