Office中国论坛/Access中国论坛

标题: 新的需求（2月4日）：如何根据工作簿的某列数据向相应工作簿添加工作表并以时间命名 [打印本页]

作者: yh0825 时间: 2008-12-26 12:22
标题: 新的需求（2月4日）：如何根据工作簿的某列数据向相应工作簿添加工作表并以时间命名
本帖最后由 yh0825 于 2009-2-4 21:51 编辑

下面第二个问题为新的问题！

如何实现以下问题：
一、原本只有一个工作簿A.xls（附件已去除） (已实现）
现要根据供应商一列自动生成其余的三个工作簿（依供应商多少而定），并自动生成文件名。

二、现在如果按上面的方法，（附件为A.rar）
1、当发现某个或某几个工作簿已经存在，则想在相应工作簿中添加新的工作表，并以当天的日期（格式如：20090204）命名，同时将相应内容添加到该工作簿中的这个新工作表中。
2、而当如果工作簿不存在，则仍按一中的方法生成新的文件簿，只是要对其中的工作表以当天日期命名！

[attach]34045[/attach]

作者: liwen 时间: 2008-12-26 14:15
workbooks.add

作者: yh0825 时间: 2009-1-4 11:29
谢谢！但我是个新手，能否讲的再详细些！谢谢！

作者: yh0825 时间: 2009-1-14 10:57
再顶上去！继续求助！谢谢各位啊

作者: liwen 时间: 2009-1-16 16:49
[:31]

作者: yh0825 时间: 2009-2-4 13:06
谢谢liwen 版主，正是我要的效果

作者: liwen 时间: 2009-2-6 17:14
。

作者: yh0825 时间: 2009-2-6 21:28
本帖最后由 yh0825 于 2009-2-6 21:30 编辑

liwen老师,非常感谢您的帮助,经过运行,发现存在一些小问题,就是运行时,其他excel工作簿都能按要求添加新的工作表并以日期命名,但是仅仅:好生活.xls这个工作簿不能按要求添加新的工作表并以日期命名,我感觉是不是因为他是排序后的第一个,详见附件,运行后即可发现.不知如何解决,而且到运行结束还出现一个空的工作簿.
[attach]34894[/attach]

作者: liwen 时间: 2009-2-10 11:34
可能由于系统的提示信息不同导致运行结果的差异，也就是你需要根据你的实际情况对产生的错误进行处理，如没有其他的情况，就是在可能产生的错误语句后，清除不需保留的错误信息即可。

作者: yh0825 时间: 2009-2-11 12:16
非常感谢liwen老师，已经成功了，我又做了小小的改动：

MsgBox Err.Description, , "今日的数据己经登记过，数据表不能以该名称存档"
Err.Clear
'以下为新加的，目的是在如果当天已登记过，则删除新添加的工作表，并让删除前的对话框不弹出！
Sheets("Sheet1").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete

作者: zss427607 时间: 2009-2-12 00:10
学习中

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)