根据系统明细录入对应单位相应的对账单

chlzj · 发表于 2019-4-20 09:01

论坛的大师们：大家周末好！公司每月会把系统中的供应商往来账明系导出来，形成《系统明细》表，现在想在系统明细表中写入VBA,根据A列中的供应商名称，把供应商的往来明细录入到同文件夹下命名为对应供应商的工作薄中的〈对账单〉工作表时，以便发给供应商对账，如附件，请大师帮个忙写一下代码，在此先谢过了！

对账单录入.rar (25.68 KB, 下载次数: 90)

microyip · 发表于 2019-4-20 09:08

辛苦贴主的“帮个忙”了

一指禅62 · 发表于 2019-4-20 09:45

我能有的思路是：

1、遍历明细总账，提取数据；
2、逐供应商打开工作簿（如该工作簿不存在，则新建工作簿），写入数据（如果必要，防止数据重复写入）

朱荣兴 · 发表于 2019-4-20 10:38

提示: 作者被禁止或删除内容自动屏蔽

zpy2 · 发表于 2019-4-20 10:52

便发给供应商对账
发电子版啊，不打印了？

chlzj · 发表于 2019-4-20 10:59

zpy2 发表于 2019-4-20 10:52
便发给供应商对账
发电子版啊，不打印了？

不打印，只是通过平台发电子版出去

zpy2 · 发表于 2019-4-20 11:02

chlzj 发表于 2019-4-20 10:59
不打印，只是通过平台发电子版出去

哦，不错的，这两天打印对账单的不少呢

chlzj · 发表于 2019-4-20 11:07

zpy2 发表于 2019-4-20 11:02
哦，不错的，这两天打印对账单的不少呢

如果是设置格式分供应商打印出来的话，就容易多了！

朱荣兴 · 发表于 2019-4-20 11:32

提示: 作者被禁止或删除内容自动屏蔽

chlzj · 发表于 2019-4-20 12:52

朱荣兴发表于 2019-4-20 10:38
Sub duizhangdan() ''''QQ:705664849
Set d = CreateObject("scripting.dictionary")
Set sh = T ...

版主一出手，就知有没有。非常感谢你的帮助，效果超出了预期，文件夹里没有的文件也自动添加了！

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

[求助] 根据系统明细录入对应单位相应的对账单

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-4-20 10:38 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-4-20 11:32 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报