excel工作表另存副本，文件名由指定单元格的值命名

excel中的多个sheet自动另存为以sheet名称命名的excel文件，用delphi开发，含源码。

公司各种系统需要各式各样的导入模板，需要快速的制作模板另存为特定的工作簿，工作簿的命名要求一定的格式：年月日时分+区分标识。 在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。通常用Array数组函数选定指定的多个工作表： Worksheets(Array("清单信息")).Copy 复制问题解决后，使用saveas解决另存为的问题。在代码中用format函数取现在的时间，VBA 的 Format 函数与工作表函数 TEXT 用法基本相同，但功能更加强大，许多格式只能用于VBA 的 Format 函数，而不能用于工作表函数 TEXT 。 Format(Now, "yyyymmddhhmm") 把format函数嵌套进 saveas 代码中，即可实现工作簿命名自动取当前的时间，必要是可以加下后缀，避免工作簿名称重复。format函数取到分钟即可。不过在一分钟内不要再点另存为，否则工作簿名称重复。另存为后活动工作簿为新的工作簿。想返回原来工作簿的童鞋们可以用Activate返回指定的工作表。这样做代码，即高效又避免工作簿名称杂乱无章。 公司各种系统需要各式各样的导入模板，需要快速的制作模板另存为特定的工作簿，工作簿的命名要求一定的格式：年月日时分+区分标识。 在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。通常用Array数组函数选定指定的多个工作表： Worksheets(Array("清单信息")).Copy 复制问题解决后，使用saveas解决另存为的问题。在代码中用format函数取现在的时间，VBA 的 Format 函数与工作表函数 TEXT 用法基本相同，但功能更加强大，许多格式只能用于VBA 的 Format 函数，而不能用于工作表函数 TEXT 。 Format(Now, "yyyymmddhhmm") 把format函数嵌套进 saveas 代码中，即可实现工作簿命名自动取当前的时间，必要是可以加下后缀，避免工作簿名称重复。format函数取到分钟即可。不过在一分钟内不要再点另存为，否则工作簿名称重复。另存为后活动工作簿为新的工作簿。想返回原来工作簿的童鞋们可以用Activate返回指定的工作表。这样做代码，即高效又避免工作簿名称杂乱无章。