新的需求（2月4日）：如何根据工作簿的某列数据向相应工作簿添加工作表并以时间命名

yh0825

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

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

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

liwen

workbooks.add

yh0825

谢谢！但我是个新手，能否讲的再详细些！谢谢！

yh0825

再顶上去！继续求助！谢谢各位啊

liwen

[:31]

yh0825

谢谢liwen 版主，正是我要的效果

liwen

。

yh0825

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

liwen

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

yh0825

非常感谢liwen老师，已经成功了，我又做了小小的改动：
MsgBox Err.Description, , "今日的数据己经登记过，数据表不能以该名称存档"
    Err.Clear
'以下为新加的，目的是在如果当天已登记过，则删除新添加的工作表，并让删除前的对话框不弹出！
    Sheets("Sheet1").Select  
      Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete