ªð¦^¦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 : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD