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Ó¿ù»~? |