VBA 怎么打开当前文件夹下的excel?

原来是这样的:
FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")
但是每次搜索打开都好麻烦,所以想先打开当前excel所在文件ThisWorkbook.Path。
请问上面那句话怎么改?

你只要运行语句,然后找到你那个文件夹,Office下次再打开是会自动记录位置的,直接定位到那个文件夹。
而且要指出的是:
GetOpenFilename 方法:显示标准的“打开”对话框,并获取用户文件名,而没有真正打开任何文件。
要真正打开文件要使用:Workbook的Open方法
xlapp.Workbooks.Open (Filename)
注意:其中Filename参数需要指定文件的全路径。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2013-01-14
将当前文件夹设为默认即可。
在你的语句前面加上下面两句:
ChDir ThisWorkbook.Path
ChDrive ThisWorkbook.Path本回答被提问者采纳

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网