求点击下宏按钮，将其他几个表中的数据汇总到一个表

qnzxjly · 发表于 2018-8-4 00:55

代码已经嵌入主工作簿了，小白练手，大神请指教

数据汇总.zip (58.36 KB, 下载次数: 8)

o0star0o · 发表于 2018-8-4 23:57

qnzxjly 发表于 2018-8-4 00:50
根据你的表结构，设计了如下vba：若还有需求，联系我qq571563425

Sub 数据汇总()

谢谢回复，测试还是可以获取到数据，但是路径有问题，必须要将主文件“汇总表.xlsm”和其他几个分表放在一起才行，实际主文件是放到其他路径的，和分文件不在一起，能否修改一下，分一下，不以主文件夹的路径为开头路径

o0star0o · 发表于 2018-8-5 00:22

qnzxjly 发表于 2018-8-4 00:50
根据你的表结构，设计了如下vba：若还有需求，联系我qq571563425

Sub 数据汇总()

另外我在实际运行中出现下标越界错误

qnzxjly · 发表于 2018-8-5 00:47

o0star0o 发表于 2018-8-4 23:57
谢谢回复，测试还是可以获取到数据，但是路径有问题，必须要将主文件“汇总表.xlsm”和其他几个分表放 ...

Workbooks.Open ThisWorkbook.Path & "\路径\王一的路径\王一客户管理表.xlsm"
Workbooks.Open ThisWorkbook.Path & "\路径\蒋二的文件路径\蒋二客户管理表.xlsm"
Workbooks.Open ThisWorkbook.Path & "\路径\杨三的路径\杨三客户管理表.xlsm"
Workbooks.Open ThisWorkbook.Path & "\路径\赵四四的文件路径\赵四四客户管理表.xlsm"

改成
Workbooks.Open  "\路径\王一的路径\王一客户管理表.xlsm"
Workbooks.Open  "\路径\蒋二的文件路径\蒋二客户管理表.xlsm"
Workbooks.Open  "\路径\杨三的路径\杨三客户管理表.xlsm"
Workbooks.Open  "\路径\赵四四的文件路径\赵四四客户管理表.xlsm"

引号里边输入这些表的绝对路径
或者你把这四句删了，手动打开每个工作表后再运行宏

o0star0o · 发表于 2018-8-5 12:08

本帖最后由 o0star0o 于 2018-8-5 12:11 编辑

qnzxjly 发表于 2018-8-5 00:47
Workbooks.Open ThisWorkbook.Path & "\路径\王一的路径\王一客户管理表.xlsm"
Workbooks.Open ThisWork ...

谢谢回复，理解你的意思的，已修改路径，但目前代码还是运行错误，因为那个下标越界的问题（不知道是不是实际的工作表中数据太多了）

qnzxjly · 发表于 2018-8-5 13:06

o0star0o 发表于 2018-8-5 12:08
谢谢回复，理解你的意思的，已修改路径，但目前代码还是运行错误，因为那个下标越界的问题（不知道是不是 ...

不知带具体情况是什么，我的思路就是这样

o0star0o · 发表于 2018-8-5 16:44

本帖最后由 o0star0o 于 2018-8-5 16:45 编辑

qnzxjly 发表于 2018-8-5 13:06
不知带具体情况是什么，我的思路就是这样

哥们，我找到问题所在了，实际工作表中，左边接单人和编号其实是有很多其他人以及其他编号的，并非路径中4个 }3XED9%L$B000$Q[EO}]E.png

您这两行代码应该是识别接单人和编号的是吧，麻烦您下再修改下代码，谢谢了！
（意思是左边没有对比到的，就留空就行了）

qnzxjly · 发表于 2018-8-5 19:57

o0star0o 发表于 2018-8-5 16:44
哥们，我找到问题所在了，实际工作表中，左边接单人和编号其实是有很多其他人以及其他编号的，并非路径中 ...

On Error Resume Next
放第三行试试

o0star0o · 发表于 2018-8-10 10:01

qnzxjly 发表于 2018-8-5 19:57
On Error Resume Next
放第三行试试

运行还是显示下标越界
2KN%FO`RV0VBL)6P1@NE05X.png

应该是这个问题，因为表中接单人和编号还有其他的，检索不到能否忽略？

CY1%$`8`DH{36PAS)~)%2(V.png

我传了附件了，您在附件中测试下呢

数据汇总.zip (52.92 KB, 下载次数: 4)

gaohong267 · 发表于 2018-8-10 10:37

请把汇总表放到路径里面，这样可以直接汇总各个表格的内容，注意因为你里面部分内容为空，所以偏移哪里用了-4

		自动登录	找回密码
密码			免费注册

[求助] 求点击下宏按钮，将其他几个表中的数据汇总到一个表