用VBA实现高效文件处理.pptxVIP

正确学会ExcelVBA的16堂课

用VBA实现高效文件处理♂显示文件列表♂将文本导入工作表♂导出工作表中的内容♂记录Excel日志♂创建级联菜单管理工作簿

显示文件列表使用VBA函数显示文件列表使用FileSearch对象显示文件列表

使用FileSearch对象显示文件列表使用FileSearch对象显示文件列表的具体操作步骤如下：步骤1：新建一个空白工作簿，在Sheet1工作表中选择【开发工具】选项卡，单击“控件”选项组中的【插入】下拉菜单，在弹出列表中单击【按钮】按钮，在Sheet1工作表中添加一个名为“按钮1”的窗体按钮，即可弹出【指定宏】对话框，如图10-11所示。步骤2：单击【新建】按钮，打开VBA代码窗口，此时系统将自动在该项目工程中添加一个名为“模块1”的模块，在该模块代码中自动出现“按钮1”的单击事件处理程序代码框架，如图10-12所示。

使用FileSearch对象显示文件列表使用FileSearch对象显示文件列表的具体操作步骤如下：步骤3：在模块代码窗口中添加程序代码，返回Sheet1工作表中，将添加的窗体按钮重命名为“显示文件列表”。然后单击【显示文件列表】按钮，即可弹出【浏览文件夹】对话框，在其中选择要查看的文件列表的文件路径，如图10-13所示。步骤4：单击【确定】按钮，即可得到所地查看的文件列表，如图10-14所示。

将文本导入工作表将文本导入单元格将文本导入单元格区域

导出工作表中的内容导出到TXT格式的文件导出到HTML格式的文件1.使用Excel菜单命令2.使用VBA过程

记录Excel日志具体的操作步骤如下：步骤1：新建一个空白工作簿，将其保存为“记录Excel日志.xlsm”的启用宏文件。然后在“记录Excel日志.xlsm”放置的位置处新建一个名为“日志记录.txt”的文本文件。要注意的是，这两个文件必须在同一路径下，如图10-42所示。步骤2：在“记录Excel日志.xlsm”工作簿中切换到【开发工具】选项卡，单击“控件”选项组中的【VisualBasic】按钮，即可打开VBA代码编辑窗口。双击【工程资源管理器】窗口中的“ThisWorkbook”选项，即可打开“ThisWorkbook”的代码窗口，在其中输入记录打开“记录Excel日志.xlsm”工作簿时间的程序代码，如图10-43所示。

记录Excel日志具体的操作步骤如下：步骤3：保存VBA代码，关闭“记录Excel日志.xlsm”工作簿。重新打开该工作簿时会发现，即可将访问该工作簿的时间添加到了“日志记录.txt”文件末尾，如图10-44所示。步骤4：在“ThisWorkbook”代码窗口中继续输入获取关闭文件的时间代码程序，如图10-45所示。步骤5：保存VBA代码，关闭“记录Excel日志.xlsm”工作簿。此时打开“日志记录.txt”文件，即可自动将关闭该工作簿的时间添加到了“日志记录.txt”文件末尾，如图10-46所示。

创建级联菜单管理工作簿创建管理工资数据的工作簿编辑创建菜单的VBA代码使用级联菜单管理多个工作簿

使用级联菜单管理多个工作簿具体的操作步骤如下：步骤1：重新打开“销售部全年记录”工作簿，即可看到前面创建的“销售部全年记录”工作表成为当前活动工作表，且所添加的“一月份”和“二月份”两个菜单项出现在了【加载项】选项卡中，如图10-62所示。步骤2：单击【一月份】下拉按钮，即可弹出相应的下拉菜单；同理，单击【二月份】菜单项，将弹出二月份相应的菜单项。选择【一月份】→【一月份销售部工资表】菜单项，即可得到“一月份销售部工资表”成为当前活动工作表，如图10-63所示。

使用级联菜单管理多个工作簿具体的操作步骤如下：步骤3：此时如果需要查看一月份销售部考勤记录情况，选择【一月份】→【一月份考勤记录表】菜单项或单击工作表标签“考勤记录表”，即可得到一月份销售部全体员工的考勤记录情况，如图10-64所示。

工作表安全性保护在Excel中实现对工作表的保护1.保护工作表2.撤消工作表的保护使用ExcelVBA实现对多个工作表的保护1.创建保护多个工作表的窗体2.编辑保护多个工作表的VBA代码3.运行VBA代码打开并保护多个工作表

运行VBA代码打开并保护多个工作表具体的操作步骤如下：步骤1：在VBA代码窗口中选择【运行】→【运行子过程/用户窗体】菜单项，即可弹出【打开并保护多个工作表】窗体，如图10-85所示。步骤2：在“请选择需要保护的工作表”下拉列表中显示了所有未被保护的工作表，在其中选择“销售部员工资料表”选项，即可在其列表框中显示所选内容，如图10-86所示。若不想保护该“销售部员工资料