文章目录
- 如何修改文件夹地址为指定地址?
- 如何取消清除提醒, 避免每次点击弹窗选择?
- 如何取消完成弹窗提醒?
- 如果觉得反复打开工作簿太闪怎么办?
- 如果有些报告的内容页不在第一个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, 但是这个格式不方便使用
