文章目录

• 如何修改文件夹地址为指定地址?
• 如何取消清除提醒, 避免每次点击弹窗选择?
• 如何取消完成弹窗提醒?
• 如果觉得反复打开工作簿太闪怎么办?
• 如果有些报告的内容页不在第一个Sheet怎么办?
• 如果想修改字段怎么办?
• 运行程序前不想清除原有内容怎么办?
• 报告页有内容但是没有被抓取到?
• 如果想修改表名, 应该注意什么?
• 这3个表是否能删除?
• 如何取消VBE的保护密码?
• 除了我保存的xlsb格式, 是否能修改为其他格式?

如何修改文件夹地址为指定地址?

当前代码指向模型所在文件夹, 通过修改Sub listAll下的folderPath变量实现,例如将需要汇总的文件夹地址修改为指向桌面

folderPath = "C:\Users\Administrator\Desktop"  '要汇总的文件夹路径

如何取消清除提醒, 避免每次点击弹窗选择?

注释掉MsgBox这两行即可, 注释方法是在代码前加英文状态下单引号'

如何取消完成弹窗提醒?

同上,注释掉MsgBox函数

如果觉得反复打开工作簿太闪怎么办?

解注释Application.ScreenUpdating代码,也就是下面2行


这会让代码在运行开始时关闭屏幕刷新, 也就是打开和关系工作簿不再会显示

如果有些报告的内容页不在第一个Sheet怎么办?

VBA对格式的要求极其严苛, 需要将报告页Sheet左移到工作表最左边位置

如果需要批量修改为第2,3等其他位置, 修改这里的数字1为对应数字即可

如果想修改字段怎么办?

修改Sub initWorkbook这里, 这里的3个变量分别对应三个工作表的字段清单, 内容是根据字段标题进行查找定位获取

建议不要修改字段数量, 尽量只修改内容

运行程序前不想清除原有内容怎么办?

注掉工作簿初始化代码Call initWorkbook, 也就是这个

报告页有内容但是没有被抓取到?

• 检查一下A1单元格是否有内容
  
  代码是根据A1单元格是否有内容来判断是否提取内容的
• 检查一下列号, 对应代码里面的select case部分
  
  当前每个表都有根据对应列设置无需匹配的列号以提高匹配效率, 修改字段后需要人工调整列号, 或者干脆直接删除这两列
• 检查一下是否修改了匹配内容而导致匹配模式修改了
  当前写了两个函数
  • matchColumnRight 根据字段内容, 获取匹配字段右边的内容. 对于内容在字段右侧的, 但是有多个相同字段的, 设置了可选参数optional, 通过判断对应偏移位置的内容来定位
  • matchColumnBelow原理同上, 只是返回内容的位置变成了字段下方

如果想修改表名, 应该注意什么?

不需要注意什么, 直接改就可以了. 引用是根据后台表编号, 而不是表名称

这3个表是否能删除?

不能删除
VBE后台有对于表的唯一编号,删除后新增, 编号也只会递增, 不会复原, 需要修改VBE才能处理

如何取消VBE的保护密码?

打开VBE, 工具 >> VBAProject属性 >> 保护 >> 清空密码 >> 确定

除了我保存的xlsb格式, 是否能修改为其他格式?

可以.
可以保存代码的格式有xlsm, xlsb, xls
其他可以保存代码的格式有xlam, 但是这个格式不方便使用