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

[µo°Ý] ChDrive/ ChDir°ÝÃD

[µo°Ý] ChDrive/ ChDir°ÝÃD

ChDrive¥i¥HÅܧ󥨫eªººÏºÐ¾÷, ChDir«h¬O¥Î¨Ó§ïÅܥثeªº¸ê®Æ§¨
§Ú¥Î¤U¦C¤è¦¡¼¶¼g:
filepath = ActiveWorkbook.Path
ChDrive filepath
ChDir filepath
filt = "excel files (*.xls;*.xlsx),*.xls;*.xlsx"
Filename = Application.GetOpenFilename(FileFilter:=filt, FilterIndex:=5, title:="¿ï¾ÜÀÉ®×", MultiSelect:=True)
...
...
§Ú¶}±ÒªºexcelÀɮ׬O¦b¬Y¤@­Ó¸ê®Æ§¨(ActiveWorkbook.Path),¥B§Æ±æ°õ¦æopne file®É¶}±Òªº¸ô®|·|¦b¦P¤@­Ó¸ê®Æ§¨,­Y¬O¶}±ÒªºÀɮ׬Oºô¸ôªÚ¾F¤Wªº¹q¸£(§YActiveWorkbook.Path¤£¬O¦b¦Û¤vªº¹q¸£),´N·|¥X²{¿ù»~,½Ð°Ý¸Ó¦p¦ó§ï¤~¯à­×¥¿³o­Ó¿ù»~?

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD