ªð¦^¦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®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD