VBA如何获取当前EXCEL文件的路径
GetOpenFilename 方法：显示标准的“打开”对话框，并获取用户文件名，而没有真正打开任何文件。要真正打开文件要使用：Workbook的Open方法 xlapp.Workbooks.Open (Filename)注意：其中Filename参数需要指定文件的全路径。
打开 工具-〉宏 -〉VisualBasc编辑器 编辑该宏 找到 openfile 语句 把引号内的路径统统删掉，只保留文件名即可。注意，要打开的文件需和本EXCEL文件放在相同目录，不然还是找不到。
接下来，使用查找替换功能，将excel文件中的人物名称，去掉扩展名(只保留名字)；最后，将excel的内容，复制粘贴到记事本中，现在，我们就得到了形如：“MD 人物名称” 这样的命令格式了。
你都用VBA了，怎么还问这么种问题啊。。thisworkbook.path就是A文件夹的路径。B文件夹的路径就用文本函数把A截取掉连上B或者把thisworkbook.path中的A替换成B都可以。。
EXCEL如何使用VBA打开相对路径下的文件或文件夹?
打开excel以下代码，可以提取其他文件中的表“重量汇总”F520：BV521的数据，其中有选择文件路径的过程，你稍改动也许对你有帮助。。
所以，我们推荐将所有的路径写成相对路径。写成相对路径后，只要text.xlsx文件和 全年核销.xlsx 只要在同层级，都可以顺利打开。
你只要运行语句，然后找到你那个文件夹，Office下次再打开是会自动记录位置的，直接定位到那个文件夹。而且要指出的是：GetOpenFilename 方法：显示标准的“打开”对话框，并获取用户文件名，而没有真正打开任何文件。
通过dos命令的操作，我们就得到了如上图的两个文件了。下面我们打开temp.xls文件看看，如下图！看到了没有，文件夹中的照片名称，自动就显示在excel表格中了！该dos命令非常强大，用好dos命令，可省去我们很多的功夫。
如何用VBA新建一个新的excel表并将其保存在指定目录下
1、如下图所示，我想将桌面上第一章中的每个工作簿名称放置到工作表中。新建一个工作簿，将其命名为“第一章目录”，按alt+f11组合键，打开宏界面。
2、新建一个模块，将代码复制到到这个模块中，就会将当前工作表保存到thisworkbook目录下，并以txt格式来保存。
3、右键单击创建的热点，然后在快捷菜单上，单击“指定宏”。请执行下列操作之一：●要给图形对象指定现有宏，请双击宏或在“宏名”框中输入宏的名称。●要录制一个新宏以将其指定给选定的图形对象，请单击“录制”。
EXCEl怎么用VBA建立一个目录?(用超链接)
无需识别是否需要带有引号，直接将所有的工作表名称都带单引号就是了，带了单引号不影响超链接，不带单引号对于一些含有特殊字符的工作表名称就无效了。
如图：选中要插入链接的第一个工作表（sheet2）标签，按住SHIFT键的同时点击最后一个工作表（sheet3）的标签。在某一单元格内输入=HYPERLINK(#目录！A1，目录！A1)回车。所有的工作表就都加入了返回目录的链接。
方法1：使用VBA的MkDir语句创建文件夹。
最后我们要用hyperlink函数把目录建立超链接，这样我们只要点击目录中的工作表名就可以跳转到对应的工作表中去。
（1）首先，楼主先新建一个excel，名称楼主自己写，怎样都行，然后将其打开。
假设目录页的表名为：目录。代码产生的超级链接显示的文本就用A3单元格内容。
微信扫一扫 
支付宝扫一扫 
