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

GetOpenFilename «ü©wºô¸ôªÚ¾F¸ô®|

GetOpenFilename «ü©wºô¸ôªÚ¾F¸ô®|

ChDrive "D\"
ChDir "D:\test\123\"
fileToOpen = Dir(Application.GetOpenFilename("All Files(*.xls),*.xls"))
¥H¤W¬O¹w³]¦n¶}±ÒÂÂÀɮɪº¸ô®|¬°D±ätest¸ê®Æ§¨©³¤Uªº123¸ê®Æ§¨
¥B¥i¥¿½T°õ¦æ

¨º¦pªG·Q±N¸ô®|§ï¬°ºô¸ôªÚ¾F¤¤ªº¸ê®Æ§¨©O?
ex:Microsoft Windows Network¤¤ªºDomain¤¤ªºWoc©³¤Uªºtest¸ê®Æ§¨
§Ú¼g¦¨³o¼Ë
ChDrive "Domain\\"
ChDir "Woc\test"
fileToOpen = Dir(Application.GetOpenFilename("All Files(*.xls),*.xls"))

¥i¬OChDir "Woc\test"³o¦æ«o¦]§ä¤£¨ì¸ô®|¦Ó¿ù»~

¦³¸ÕµÛ¥ÎÀÉ®×Á`ºÞ¶}±ÒDomain
¦ý«o¥X²{µLªk¦s¨úDomain,§ä¤£¨ìºô¸ô¸ô®|
¦ý¬O§Ú«o¥i¥H¶}±ÒWoc©³¤UªºªF¦è
½Ð°Ý¸Ó¦p¦ó­×§ï©O
ÁÂÁÂ

¦^´_ 2# stillfish00


§Ú¹Á¸Õ¥Î²Ä2ºØ
¦ýÁÙ¬O¤£¦æ
¸ô®|¨ÌµM¨SÅÜ(ÁÙ¬O¦b¨t²Î¹w³]¸ô®|)
¦]¬°§Ú¤U­±ÁÙ¦³²o§è¨ì¶·­n±N¸Óµ§Àɮ׽ƻs¨ì¥t¤@¤u§@ªí

¦pªG¥Î²Ä1ºØ
¦ý«o¤£ª¾¹D¸Ó«ç»ò«Ø¥ß³s½uºÏºÐ¾÷

TOP

¦^´_ 4# stillfish00


ÁÂÁ¦^ÂÐ
§Úª¾¹D°ÝÃD¥X¦b­þ¤F
¬O¦b©ó·d¿ù¤F¹q¸£¦WºÙ
¨ä¹êWoc¤~¬O¹q¸£¦WºÙ

¥t¥~Ãö©óºô¸ôºÏºÐ¾÷
¦]¬°¹q¸£ÄÝ©óXP
¤]¨S±µÄ²¹L³o°Ï¶ô
©Ò¥H¤~·|¤£ª¾¹D«ç»ò³sµ²

·PÁ¤j¤j¦^ÂÐ

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD