原来是这样的:
FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")
但是每次搜索打开都好麻烦,所以想先打开当前excel所在文件ThisWorkbook.Path。
请问上面那句话怎么改?
ä½ åªè¦è¿è¡è¯å¥ï¼ç¶åæ¾å°ä½ é£ä¸ªæ件夹ï¼Officeä¸æ¬¡åæå¼æ¯ä¼èªå¨è®°å½ä½ç½®çï¼ç´æ¥å®ä½å°é£ä¸ªæ件夹ã
èä¸è¦æåºçæ¯ï¼
GetOpenFilename æ¹æ³ï¼æ¾ç¤ºæ åçâæå¼â对è¯æ¡ï¼å¹¶è·åç¨æ·æ件åï¼è没æçæ£æå¼ä»»ä½æ件ã
è¦çæ£æå¼æ件è¦ä½¿ç¨ï¼WorkbookçOpenæ¹æ³
xlapp.Workbooks.Open (Filename)
注æï¼å ¶ä¸Filenameåæ°éè¦æå®æ件çå ¨è·¯å¾ã
èä¸è¦æåºçæ¯ï¼
GetOpenFilename æ¹æ³ï¼æ¾ç¤ºæ åçâæå¼â对è¯æ¡ï¼å¹¶è·åç¨æ·æ件åï¼è没æçæ£æå¼ä»»ä½æ件ã
è¦çæ£æå¼æ件è¦ä½¿ç¨ï¼WorkbookçOpenæ¹æ³
xlapp.Workbooks.Open (Filename)
注æï¼å ¶ä¸Filenameåæ°éè¦æå®æ件çå ¨è·¯å¾ã
温馨提示:答案为网友推荐,仅供参考
第1个回答 2013-01-14
将当前文件夹设为默认即可。
在你的语句前面加上下面两句:
ChDir ThisWorkbook.Path
ChDrive ThisWorkbook.Path本回答被提问者采纳
在你的语句前面加上下面两句:
ChDir ThisWorkbook.Path
ChDrive ThisWorkbook.Path本回答被提问者采纳