[已解决]用代码将明细表导入数据到汇总表

hhxq001 · 发表于 2021-4-22 09:20

将多个收款人信息表的部分列内容导入到汇总表的某几列中，请教怎么用代码实现，如果汇总表已经存在部分数据，就在后面行添加，不管内容是否重复都提取，要求添加的时候可以自己选择路径。

导入数据求助.zip (22.11 KB, 下载次数: 4)

高 · 发表于 2021-4-22 16:40

见文件

hhxq001 · 发表于 2021-4-22 19:37

高发表于 2021-4-22 16:40
见文件

不错滴，可惜小白鼠看不太明白，只能搬来直接用了

hhxq001 · 发表于 2021-4-22 20:26

高发表于 2021-4-22 16:40
见文件

我如果D列的出票日期就是进行导入数据的日期，怎么添加代码呢？

hhxq001 · 发表于 2021-4-23 08:52

高发表于 2021-4-22 16:40
见文件

导入的时候会自动添加表格线，想只复制数据，怎么处理

高 · 发表于 2021-4-23 09:16

本帖最后由高于 2021-4-23 09:25 编辑

hhxq001 发表于 2021-4-23 08:52
导入的时候会自动添加表格线，想只复制数据，怎么处理

我给你改一下，改成选择性粘贴数值就行了。另外加了一句，把你说的日期加上了

hhxq001 · 发表于 2021-4-23 11:47

高发表于 2021-4-23 09:16
我给你改一下，改成选择性粘贴数值就行了。另外加了一句，把你说的日期加上了

朋友也给做了个，但是提取数据的首行被放在了合计行了，不知道改哪句代码，再问他结果下线了，
麻烦你给看看可以吗？
QQ截图20210423113223.png

导入数据求助-请纠错.zip (29.52 KB, 下载次数: 6)

高 · 发表于 2021-4-23 12:14

' s = .Cells(.Rows.Count, 5).End(xlUp).Row  删除这句

s = ThisWorkbook.ActiveSheet.Range("e2").End(xlDown).Row  '改为这句

高 · 发表于 2021-4-23 12:14

' s = .Cells(.Rows.Count, 5).End(xlUp).Row 删除这句

s = ThisWorkbook.ActiveSheet.Range("e2").End(xlDown).Row '改为这句

hhxq001 · 发表于 2021-4-23 14:33

高发表于 2021-4-23 12:14
' s = .Cells(.Rows.Count, 5).End(xlUp).Row 删除这句

s = ThisWorkbook.ActiveSheet.Range("e2"). ...

试了这句，改了也不行。。。

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