ExcelHome技术论坛

标题: 工作簿汇总,工作表汇总合并,多文件汇总合并 通用代码 支持多层子文件夹 [打印本页]

作者: opiona    时间: 2018-4-20 17:06
标题: 工作簿汇总,工作表汇总合并,多文件汇总合并 通用代码 支持多层子文件夹
本帖最后由 opiona 于 2018-4-24 09:36 编辑

看到论坛求助汇总的贴子很多,总结了几种情况
只做了比较通用的代码和大家分享(完全通用是不可能的)

看上去代码多,是因为几个自定义函数
这个是个人习惯:将常用的做成函数或过程,用时只要填几个参数就OK了
其中:获取文件清单函数:支持多种选项,支持多层子文件夹

1_单工作簿内多工作表,指定几个位置的数据汇总
数据在一个工作簿内,但是工作簿内有多个相同格式和标题的工作表
需要每个工作表,几个固定位置的数据

(, 下载次数: 16546) (, 下载次数: 513)


2_多工作簿指定工作表,指定几个位置的数据汇总
数据在多个工作簿内,每个工作簿有一个相同格式和标题的工作表
需要这个工作表,几个固定位置的数据

(, 下载次数: 18204)
(, 下载次数: 399)


3_多工作簿多个工作表,指定几个位置的数据汇总(工作表格式,标题相同)
数据在多个工作簿内,每个工作簿有多个相同格式和标题的工作表
需要全部工作表,几个固定位置的数据

(, 下载次数: 14762)
(, 下载次数: 202)


4_单工作簿内多工作表,全部数据汇总
数据在一个工作簿内,但是工作簿内有多个相同格式和标题的工作表
需要每个工作表的全部数据

(, 下载次数: 12991)
(, 下载次数: 318)


5_多工作簿指定工作表,全部数据汇总
数据在多个工作簿内,每个工作簿内有一个相同格式和标题的工作表
需要这个工作表的全部数据

(, 下载次数: 16485)
(, 下载次数: 300)

6_多工作簿多个工作表,全部数据汇总(工作簿内多个工作表,每个的格式,标题相同)
数据在多个工作簿内,每个工作簿内有多个相同格式和标题的工作表
需要这些工作表的全部数据

(, 下载次数: 13180)
(, 下载次数: 245)


7_多工作簿多个工作表,全部数据汇总(工作簿内多个工作表,每个的格式,标题不同)
数据在多个工作簿内,每个工作簿内有多个不同格式和标题的工作表
需要分别汇总这些工作表的全部数据

(, 下载次数: 16728)
(, 下载次数: 300)







补充内容 (2018-7-4 11:36):
如何批量修改文件  请电梯 到 67

补充内容 (2018-7-17 08:36):

按部门自动拆分工作表为工作簿,请坐电梯 到 69



补充内容 (2018-10-28 16:58):
期初入库出库库存 见 136

补充内容 (2018-11-17 11:12):
通用条件查询:159

补充内容 (2019-10-20 11:48):
Access中进行文件的保存,下载    乘电梯到:426

补充内容 (2022-8-26 07:59):
7_多工作簿多个工作表   附件的代码 标题行数变量设置有点问题
                 Rem 组合查询标题
                    StrBT = ""
                    For ICOL = 1 To SH.Range("IT" & SH1.Range("B1").Value...

补充内容 (2022-8-26 08:04):
7_多工作簿多个工作表   附件标题行数变量设置有点问题 更新见878楼

补充内容 (2023-3-18 21:34):
7_多工作簿多个工作表
原来的代码有bug  不能清空原有数据
请将sh1 改为: sh
详见:893楼
作者: ardu95    时间: 2018-4-20 20:22
谢谢。学习了。
作者: cqcbc    时间: 2018-4-20 21:15
谢谢opiona侠圣整理归类的贴子,收藏起来。
作者: 新时代新征途    时间: 2018-4-20 21:43
opiona老师好!您发的汇总有很大的用处,太好了!谢谢您了!但是,我在测试时,3、4、5、6、7附件有一个共同的提示:运行时错误  3706.未找到提供程序,程序可能未正确安装。不知何种原因。

作者: lrh788    时间: 2018-4-21 00:11
学习了!!!!!
作者: xinlan6    时间: 2018-4-21 17:34
谢谢老师!辛苦了!
作者: linfeng123321    时间: 2018-4-21 20:20
谢谢老师 了辛苦了。
作者: 沅潇01    时间: 2018-4-22 08:15
感谢分享!
作者: sunny_8848    时间: 2018-4-22 09:19
谢谢楼主分享,正在找这类的例子
作者: LMY123    时间: 2018-4-22 10:28
工作薄,工作表合并
作者: opiona    时间: 2018-4-23 10:34
新时代新征途 发表于 2018-4-20 21:43
opiona老师好!您发的汇总有很大的用处,太好了!谢谢您了!但是,我在测试时,3、4、5、6、7 ...

ADO程序没安装吧
需要安装:Access 或者安装插件:AccessDatabaseEngine
作者: YZC51    时间: 2018-4-23 11:12
谢谢分享!!学习啦!
作者: jjmysjg    时间: 2018-4-23 15:11
谢谢分享,代码太多
作者: bj079    时间: 2018-4-23 18:17
谢谢分享,学习了
作者: skinnyfat    时间: 2018-4-23 18:49
这个汇总厉害了,也是很需要的
作者: yinshuerle    时间: 2018-4-23 22:59
感谢老师分享
作者: jjmysjg    时间: 2018-4-24 08:47
功能齐全,代码复杂,
作者: aman1516    时间: 2018-4-24 19:30
谢谢辛苦整理,收藏学习下自定义函数


作者: ggwfnh    时间: 2018-4-28 20:54
这个不错呀,正在学习,学习一下了。
作者: ggwfnh    时间: 2018-4-28 21:19
4.5.6.7 我测试起都有问题。  让调试   CN.Open Str_coon. 3706 错误,是我电脑问题嘛?
作者: lzqlaj    时间: 2018-4-28 22:59
ggwfnh 发表于 2018-4-28 21:19
4.5.6.7 我测试起都有问题。  让调试   CN.Open Str_coon. 3706 错误,是我电脑问题嘛?

win7+excel2007(acess2007)测试未发现问题。
作者: lzqlaj    时间: 2018-4-28 23:00
通用性强的工具值得收藏,谢谢楼主分享。
作者: opiona    时间: 2018-4-29 18:30
ADO程序没安装吧
需要安装:Access 或者安装插件:AccessDatabaseEngine
作者: thzss    时间: 2018-4-29 20:37
非常全面,收藏了
作者: ggwfnh    时间: 2018-4-30 09:13
opiona 发表于 2018-4-29 18:30
ADO程序没安装吧
需要安装:Access 或者安装插件:AccessDatabaseEngine

Access 安装了的,。我的系统是win7 64位
office 2016  专业版 完全安装。
作者: blackttea1    时间: 2018-5-4 11:30
谢谢。学习了。
作者: qihang15    时间: 2018-5-4 15:47
谢谢分享,果断收藏。
作者: djs5212720    时间: 2018-5-4 16:36
谢谢。学习了。
作者: ansen__111    时间: 2018-5-4 17:03
总公司设计了一套excel工作表,在一个工作簿中,每个工作表的行是所有下属公司名称(比如a1是北京公司,a2是天津公司……)列是对应数据。将工作簿分发给所有下属公司,各家填好各家行里的数据返回(北京公司只填写第1行的数据,天津公司只填写第二行的数据……)。作为总公司,怎么把各个下属公司返回的工作簿里的各家数据合并成有所有下属公司数据的1个工作簿呢(第1行是北京公司数据,第2行是天津公司数据)?一行一行的黏贴太低效了,大神,有没有快速合并的办法啊?或者说,用哪个模板呢?
作者: imlyx    时间: 2018-5-4 17:04
大神牛逼啊
作者: opiona    时间: 2018-5-5 08:48
ansen__111 发表于 2018-5-4 17:03
总公司设计了一套excel工作表,在一个工作簿中,每个工作表的行是所有下属公司名称(比如a1是北京公司,a2 ...

(, 下载次数: 1094)

  1.     Rem 清空汇总表原有数据,保留标题
  2.     Set SH1 = Sheets("表一")
  3.     Set SH2 = Sheets("表二")
  4.     SH1.Range("C5:I65536").ClearContents
  5.     SH2.Range("D5:J65536").ClearContents
  6.    
  7.     Rem 获取文件清单
  8.     FileArr = FileAllArr(ThisWorkbook.Path, "*.xls?", ThisWorkbook.Name, True, False)
  9.     If FileArr(0) <> "" Then  '//如果文件清单 不是空白的
  10.         ICOUNT = UBound(FileArr) + 1
  11.         Rem 遍历每个分表文件
  12.         For I = 0 To ICOUNT - 1
  13.             StrNameFile = GetPathFromFileName(FileArr(I), False)
  14.             Rem  提示信息,在状态栏显示
  15.             Application.StatusBar = "文件总数:" & ICOUNT & " 当前是第:" & I + 1 & " 当前提取的文件是:" & StrNameFile
  16.             DoEvents
  17.             
  18.             Rem  确认公司名,假设表一中有的,表二也有
  19.             StrNameGS = ""
  20.             FROW = 0
  21.             For IROW = 6 To SH1.Range("A65536").End(3).Row
  22.                 If InStr(SH1.Cells(IROW, 1).Value, StrNameFile) > 0 Then
  23.                     StrNameGS = SH1.Cells(IROW, 1).Value
  24.                     FROW = IROW
  25.                     Exit For
  26.                 End If
  27.             Next
  28.             If FROW > 0 Then
  29.                 Set WB = Workbooks.Open(FileArr(I))
  30.                 Rem  表一
  31.                 Set SHN = WB.Worksheets("" & SH1.Name)
  32.                 Rem 找到分表中公司所在行
  33.                 Set C = SHN.Range("A:A").Find(StrNameGS, , LOOKAT:=xlWhole)
  34.                 If Not C Is Nothing Then
  35.                     Rem 将此行数据复制到汇总表对应行中
  36.                     For ICOL = 3 To 9
  37.                         SH1.Cells(FROW, ICOL).Value = SHN.Cells(C.Row, ICOL).Value
  38.                     Next
  39.                 End If
  40.                
  41.                 Rem  表 二
  42.                 Set C = SH2.Range("A:A").Find(StrNameGS, , LOOKAT:=xlWhole)
  43.                 If Not C Is Nothing Then
  44.                     FROW = C.Row
  45.                 End If
  46.                 Set SHN = WB.Worksheets("" & SH2.Name)
  47.                 Set C = SHN.Range("A:A").Find(StrNameGS, , LOOKAT:=xlWhole)
  48.                 If Not C Is Nothing Then
  49.                     For ICOL = 4 To 10
  50.                         SH2.Cells(FROW, ICOL).Value = SHN.Cells(C.Row, ICOL).Value
  51.                         SH2.Cells(FROW + 1, ICOL).Value = SHN.Cells(C.Row + 1, ICOL).Value
  52.                     Next
  53.                 End If
  54.                
  55.                 WB.Close False
  56.             End If
  57.         Next I
  58.     End If
复制代码

作者: ansen__111    时间: 2018-5-7 11:17
opiona 发表于 2018-5-5 08:48

多谢大神!!!太感谢了!!!
作者: qinmj2011    时间: 2018-5-7 17:15
精华帖,占位置,谢谢大师分享!
作者: bosao    时间: 2018-5-8 08:37
感谢分享,我的电脑WIN7 64位,office2016,只安装了excel ,word,ppt,未安装过AccessDatabaseEngine,使用未出现报错现象。
套表功能强大,速度快,如果在合并前自动将已有合并数据清空(合并条件除外),就更完善了。
作者: djs5212720    时间: 2018-5-8 08:43
本帖最后由 djs5212720 于 2018-5-8 10:13 编辑

5_多工作簿指定工作表,全部数据汇总,运行时时发现越界报错-9
请问老师这会是什么引起的报错!
Dim T
    T = Timer  '//开始时间
   
    Dim SQLARR
    Dim I, X As Integer
    Dim Str_coon, StrSQL As String
    Dim SH1, SH0, SHW As Worksheet
   
    Set SH1 = Sheets("汇总")   这里报错
    SH1.Range("A4:HZ1048576").ClearContents
   
    Rem 组合查询标题
    StrBT = ""
    For ICOL = 3 To SH1.Range("HZ3").End(xlToLeft).Column
        StrBT = StrBT & ",[" & SH1.Cells(3, ICOL).Value & "]"
    Next
   

作者: qihang15    时间: 2018-5-8 09:40
感谢分享,学习一下。
作者: opiona    时间: 2018-5-8 13:29
djs5212720 发表于 2018-5-8 08:43
5_多工作簿指定工作表,全部数据汇总,运行时时发现越界报错-9
请问老师这会是什么引起的报错!
Dim T

Set SH1 = Sheets("汇总")   这里报错
改成:Set SH1 = workSheets("汇总")    '//试试
作者: djs5212720    时间: 2018-5-8 16:51
opiona 发表于 2018-5-8 13:29
Set SH1 = Sheets("汇总")   这里报错
改成:Set SH1 = workSheets("汇总")    '//试试

问题依旧,还是会报错的!
作者: opiona    时间: 2018-5-9 09:36
djs5212720 发表于 2018-5-8 16:51
问题依旧,还是会报错的!

检查是否存在工作表:汇总
作者: djs5212720    时间: 2018-5-15 11:15
opiona 发表于 2018-5-9 09:36
检查是否存在工作表:汇总

存在的!还会有什么问题会导致这样结果?/
作者: 马腾空    时间: 2018-5-21 11:44
后排支持,感谢分享。收藏,有时间学习
作者: 落花笑多情    时间: 2018-5-29 08:42
写的很全面,太实用了,谢谢大神!
作者: 落花笑多情    时间: 2018-5-29 12:31
大神,我想进行多工作簿多工作表复制到一个工作表中,不汇总,工作簿分散在不同子文件夹中,请问大神怎么操作啊,我只是想要原数据,复制后不需要再进行其他操作了。
作者: opiona    时间: 2018-5-30 14:38
实例 都是不累加的(就是非汇总)
支持子文件夹,而且多层子文件夹 也行啊!
作者: 15571913002    时间: 2018-5-30 15:35
第2个多工作簿指定工作表,指定几个位置的数据汇总,我试了下只能指定232个位置的数据进行汇总,如果指定数据超过232个则无法汇总,只能汇总文件名。
作者: zh_0516    时间: 2018-5-30 15:39
本帖最后由 zh_0516 于 2018-5-30 16:12 编辑

感谢分享,老师能不能做一个多工作簿,每个工作簿有多个名称不相同格式相同的工作表,按关键字提取所在行的全部信息,比如你的第5个例子,工作表输入一班,关键词输入“四”,便汇总所有工作簿的一班工作表内含“四”的整行信息。
作者: 15571913002    时间: 2018-5-30 17:04
第7个怎么改成累加汇总啊!
作者: 农村信合人    时间: 2018-5-31 17:37
谢谢老师!辛苦了!
作者: anking2018    时间: 2018-6-5 09:54
大神,能帮我看看这个附件吗,导出来的数据一个文档能空出2千多行,我研究了半天都不知道在哪里做改动
作者: opiona    时间: 2018-6-6 13:18
加一行条件:
  1. StrSQL = StrSQL & " WHERE NOT [运单号] IS NULL"
复制代码


(, 下载次数: 211)
作者: nerissaonly    时间: 2018-6-12 12:39
有人和我一样,一下载,宏自动remove了么
作者: sstjf    时间: 2018-6-15 11:32
厉害啊,先顶再看
作者: zqxhuaxin    时间: 2018-6-16 17:19
十分感谢,有个小问题,我的工作簿都包含链接,每次打开都会弹出是否更新链接,一个一个点“不更新”或者关闭弹窗很麻烦,您可不可以添加一些代码,自动关闭弹窗或者选择“不更新”,谢谢
作者: opiona    时间: 2018-6-16 18:15
zqxhuaxin 发表于 2018-6-16 17:19
十分感谢,有个小问题,我的工作簿都包含链接,每次打开都会弹出是否更新链接,一个一个点“不更新”或者关 ...
  1. Sub Opiona()
  2.    
  3.      Rem 禁止系统刷屏?触发其他事件等
  4.     'On Error Resume Next    '// 发生错误,自动执行下一句,就是忽略错误
  5.     Application.ScreenUpdating = False '//关闭屏幕刷新
  6.     Application.DisplayAlerts = False '//关闭系统提示
  7.     Application.EnableEvents = False  '//禁止触发其他事件
  8.     Application.StatusBar = True   '关闭系统状态条
  9.     Application.Calculation = xlManual     '//xlCalculationManual  用户请求时进行计算


  10.     Dim T
  11.     T = Timer   '//开始时间

  12.     Rem  提示信息,在状态栏显示
  13.     Rem Application.StatusBar = "文件总数:" & ICINT & " 当前是第:" & I + 1 & " 当前提取的文件是:" & GetPathFromFileName(FileArr(I), True)  '
  14.     Rem  DoEvents

  15.     Application.Calculation = xlAutomatic  '//xlCalculationAutomaticExcel 控制重新计算。
  16.     Application.StatusBar = False   '恢复系统状态条
  17.     Application.EnableEvents = True  '//  '//恢复触发其他事件
  18.     Application.ScreenUpdating = True '//恢复屏幕刷新
  19.     Application.DisplayAlerts = True '//恢复系统提示
  20.     MsgBox "一共用时:" & Format(Timer - T, "#0.0000") & " 秒", , "北极狐提示!!"  '//提示所用时间
复制代码

作者: zqxhuaxin    时间: 2018-6-16 19:30
opiona 发表于 2018-6-16 18:15

谢谢老师,我的意思是我需要汇总的每个工作簿点开的时候都会弹出是否更新链接,您上面的没能解决这个问题。我用的是您   “2_多工作簿指定工作表,指定几个位置的数据汇总”  这个代码。

还有就是有没有方法做指定某几行的汇总,按照您之前的只能一个单元格一个单元格的统计,统计好多行的时候有点困难。谢谢老师!
作者: opiona    时间: 2018-6-16 19:59
Sub 打开含有链接的文件() '先屏蔽更新对话框/文件打开后要恢复(以避免影响其他文件的链接提示)
   Application.AskToUpdateLinks = False  '//先屏蔽更新对话框
         Workbooks.Open ("有链接的文件.xls")
   Application.AskToUpdateLinks = True   '//先屏蔽恢复更新对话框
End Sub
作者: opiona    时间: 2018-6-16 20:03
统计好多行的 请参考:第5个

红色部分是指定区域,含标题,
更深层次,需要些SQL知识

(, 下载次数: 107)
作者: UNIMOG4000    时间: 2018-6-17 11:37
谢谢楼主!辛苦了!
作者: EXCEL-MMSD    时间: 2018-6-20 23:06
save~~~~~~~~~~~~~~~~~~~
作者: EXCEL-MMSD    时间: 2018-6-20 23:12
!!!!!!!!!!!!!!!!工作薄,工作表合并
作者: amicuat    时间: 2018-6-21 07:15
还没看完,但是真好
作者: zpt12345    时间: 2018-6-26 00:27
收藏备用,
作者: 40525299999    时间: 2018-6-26 11:58
这个NB了,感谢LZ无私奉献
作者: yaojil    时间: 2018-6-26 18:34
留个记号,慢慢品
作者: Luno_duan    时间: 2018-6-28 13:52
收藏,谢谢大神
作者: lhl_ah    时间: 2018-6-29 14:40
太实用啦!
作者: opiona    时间: 2018-7-4 11:33
(, 下载次数: 3179)
(, 下载次数: 129)


作者: winnieliao    时间: 2018-7-4 16:29
很实用,谢谢了
作者: opiona    时间: 2018-7-17 08:33
按部门自动拆分工作表: (, 下载次数: 3718)

(, 下载次数: 90)

(, 下载次数: 79)


作者: 桃美丽    时间: 2018-7-17 09:24
谢谢楼主!
作者: hasyh2008    时间: 2018-7-17 13:09
收藏了!!!!!!!
作者: 非常6-1    时间: 2018-7-18 17:22
请问老师运行错误3706怎么解决?
作者: opiona    时间: 2018-7-18 20:05
非常6-1 发表于 2018-7-18 17:22
请问老师运行错误3706怎么解决?

请上截图,还有调试后,哪一行黄色
作者: 会飞的大大像    时间: 2018-7-20 11:38
先收藏,再回去看
作者: lqf336    时间: 2018-7-20 17:57
高质量贴子,整理的非常详细。收录起来。
作者: 映秋    时间: 2018-7-22 00:23
谢谢老师!辛苦了!
作者: 非常6-1    时间: 2018-7-23 16:27
opiona 发表于 2018-7-18 20:05
请上截图,还有调试后,哪一行黄色

C:\Users\Administrator\Desktop

老师老师看这里
作者: 非常6-1    时间: 2018-7-23 16:28
老师老师看这里
作者: 非常6-1    时间: 2018-7-23 16:29
opiona 发表于 2018-7-18 20:05
请上截图,还有调试后,哪一行黄色

老师老师麻烦看下78楼
作者: opiona    时间: 2018-7-23 16:40
之前的错误提示是什么,也要截图!

作者: 非常6-1    时间: 2018-7-23 16:47
老师老师麻烦看下这里
作者: 非常6-1    时间: 2018-7-23 16:48
非常6-1 发表于 2018-7-23 16:47
老师老师麻烦看下这里

我是07版的
作者: jasonchow    时间: 2018-7-23 20:55
opiona 发表于 2018-7-23 16:40
之前的错误提示是什么,也要截图!

老师,请教第4个附件"4_单工作簿内多工作表,全部数据汇总",如果数据超过了65536行,之后的数据就没办法汇总了,这个如何解决?
作者: liu1913    时间: 2018-7-24 11:38
大师 能帮忙回复下62楼不
作者: greechfu    时间: 2018-7-26 11:12
老师你好,第五个文件完全满足我的需求,只是我的文件夹中有超链接,合并后超链接就失效了,怎么样才能保留呢?求教~
作者: opiona    时间: 2018-7-26 20:24
SQL 方法复制数据,没有格式: 字体,颜色,合并单元格等
包括:超链接
作者: 浩宇不乖    时间: 2018-7-26 23:41
同一工作簿下的工作表,各表之间列相同但是行不同,能直接自动汇总么?
作者: teshia    时间: 2018-7-27 16:06
天天学习诶,努力vba
作者: fwgodlike    时间: 2018-7-28 20:26
同一工作簿不同工作表,把符合条件的数据进行汇总。如何弄呢?
作者: opiona    时间: 2018-7-29 07:59
fwgodlike 发表于 2018-7-28 20:26
同一工作簿不同工作表,把符合条件的数据进行汇总。如何弄呢?

SQL语句 可以带有条件的

FROM [xxx$] WHERE 姓名='张三'
作者: zavier.tang    时间: 2018-8-3 17:20
本帖最后由 zavier.tang 于 2018-8-3 17:28 编辑

老师老师,请问这里报错怎么办啊。
一开始我用少量的工作簿做测试的时候是正常的,然后换成大批量的时候就会有如下报错。
If SubFiles = True Then  '//如果需要查找子文件夹
            MyName = Dir(Ke(I), vbDirectory)    '查找目录
            Do While MyName <> ""
                If MyName <> "." And MyName <> ".." Then
                    If (GetAttr(Ke(I) & MyName) And vbDirectory) = vbDirectory Then    '如果是次级目录
                        DIC.Add (Ke(I) & MyName & "\"), ""  '就往字典中添加这个次级目录名作为一个条目
                    End If
                End If
                MyName = Dir    '继续遍历寻找
            Loop
        End If
        I = I + 1




作者: everwu    时间: 2018-8-3 17:32
学习 学习 谢谢老师!
作者: iamwhati    时间: 2018-8-4 14:33
实在是太强大了
作者: fwgodlike    时间: 2018-8-6 10:52
opiona 发表于 2018-7-29 07:59
SQL语句 可以带有条件的

FROM [xxx$] WHERE 姓名='张三'

SQL语句和VBA的关系可以拓展开讲解一下?
作者: speller    时间: 2018-8-6 17:16
大神微信号多少,可否发我短消息?下了“跨文件夹汇总”的源码,修改后有几处出错,想问一下问题在哪里。
作者: opiona    时间: 2018-8-6 21:27
fwgodlike 发表于 2018-8-6 10:52
SQL语句和VBA的关系可以拓展开讲解一下?

http://club.excelhome.net/thread-859194-1-1.html
作者: opiona    时间: 2018-8-6 21:27
speller 发表于 2018-8-6 17:16
大神微信号多少,可否发我短消息?下了“跨文件夹汇总”的源码,修改后有几处出错,想问一下问题在哪里。

签名中有的!
作者: speller    时间: 2018-8-6 22:57
opiona 发表于 2018-8-6 21:27
签名中有的!

已加,谢谢
作者: huya1979    时间: 2018-8-7 08:10
学习 学习 谢谢老师!
作者: hb-yy    时间: 2018-8-17 17:35
学习…………




欢迎光临 ExcelHome技术论坛 (https://club.excelhome.net/) Powered by Discuz! X3.4