如何做 EXCEL 目录 能索引 ?

如何做 EXCEL 目录 能索引 ?

最低0.27元开通文库会员，查看完整内容>

原发布者:梦幻玄真

生成“个人宏工作簿”

为了让“目录”按钮对所有工作簿都有效，我们需要将其保存在“个人宏工作簿”中。第一次使用“宏”这个功能时，需要先让软件生成一个隐藏的“个人宏工作簿”。

执行“工具→宏→录制新宏”命令（如图），按“保存在”右侧的下拉按钮，选中“个人宏工作簿”选项后，“确定”进入“宏”录制状态；不需要进房担散持集校据领资生行任何操作，直接单击随后展开的“宏”工具条中的“停止录制”按钮，软件会自动生成肉友错留一个隐藏的“个人宏工作簿”。以后想在“个人宏工作簿”中编辑宏时，就不需360问答要再进行此步操作了。

编辑制作“目录”宏

执行“工具→宏→VisualBasic编辑器”命令（或直接按“Alt+F11”），进入VBA编辑状态。在左侧“工程资源管理器”中，展开“VBA温关先附城边贵京领而和Project(PERSONAL.XLSB号做资贵静杂现常)”选项（这就是“个人宏工作簿”），双击其中的“模块1”，然后用下述代码替换右侧编辑区中的原有代码：

Subml()

OnErrorResumeNext'如果出现错误，继续运行下面的代码

zzml="选择要制作目录的文件夹"'以下代码弹出一个选择文件夹对话框

Setmlzz=CreateObject("Shell.Application").BrowseForFo镇牛lder(0,zzml,&H1)

lj=mlzz.Self.Path'将选中文件夹的路径传递给变量lj

C儿例由书正ells(1,1)="序号"'以下代码在A1、B1、C1单元格中输入列标题文本内容

Cel论虽四满九者席轻丝ls(1,2)="文件名称"

Cells(1,3)="文件类型"

DimwjAsString'声斗富动缺块演明一个变量wj

wj=Dir(lj&"\*.*")'浏