按年归集按客户拆分多个工作表的数据求改代码

jaxpqh · 发表于 2024-11-8 14:49

本帖最后由 jaxpqh 于 2024-11-8 15:18 编辑

　　我有一个工作簿，里面按月分工作表保存了订单数据，我现在要把同年的每个客户的数据通过运行VBA代码新建一个以“客户名称+（ ****年）”命名的工作簿单独保存。我写出来了代码，但运行后没有达到我要的效果（详情见附件），问题主要有两个，一是图片无法保存到新表里（受限于上传文件大小为2M以下只放了一张图片），二是只对其中一个工作表的数据进行了处理，另外的工作表的数据并没有处理。我不知道问题出在哪里？请哪位大师帮忙看看，并帮助改改代码，在此不胜感谢！

小凡、、、 · 发表于 2024-11-8 15:13

用字典试试，数组貌似不能报图片存进去

jaxpqh · 发表于 2024-11-8 15:16

小凡、、、发表于 2024-11-8 15:13
用字典试试，数组貌似不能报图片存进去

我是同时用数组和字典的。

ykcbf1100 · 发表于 2024-11-8 15:24

复制图片的话光用数组不行吧。图片复制过去后还有个自适应单元格的问题。

jaxpqh · 发表于 2024-11-8 15:31

ykcbf1100 发表于 2024-11-8 15:24
复制图片的话光用数组不行吧。图片复制过去后还有个自适应单元格的问题。

那要用什么方法可以把图片复制过去呢？还有就是其他工作表的数据怎么处理？

小凡、、、 · 发表于 2024-11-8 15:43

jaxpqh 发表于 2024-11-8 15:16
我是同时用数组和字典的。

给你举个例子，看你能写的那么多，懂这个逻辑改一下应该没啥问题，就用字典结合拼接单元格粘贴，就能把单元格内容完整的粘贴过去了

jaxpqh · 发表于 2024-11-8 16:09

小凡、、、发表于 2024-11-8 15:43
给你举个例子，看你能写的那么多，懂这个逻辑改一下应该没啥问题，就用字典结合拼接单元格粘贴，就能把单 ...

其他列的数据是通过数组重新导入新的工作表里的，这里再用字典不知道怎么嵌入进去，还请大师出手帮忙！谢谢！

ykcbf1100 · 发表于 2024-11-8 17:32

jaxpqh 发表于 2024-11-8 15:31
那要用什么方法可以把图片复制过去呢？还有就是其他工作表的数据怎么处理？

我不会呢。。。

jaxpqh · 发表于 2024-11-9 08:56

路过的大师帮帮忙呀，谢谢了！

3190496160 · 发表于 2024-11-9 10:40

这个问题，不简单，最关键的是要把图片拷贝过去，而目标文件中的列顺序跟数据源中的顺序不一致，列数不一致，
如果是整行拷贝还好弄

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

[求助] 按年归集按客户拆分多个工作表的数据求改代码

评分