- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎样根据“姓名”列将"模板.xls"批量复制并重命名 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=35079)
-- 发布时间：2013/6/23 19:40:00
-- [求助]怎样根据“姓名”列将"模板.xls"批量复制并重命名
请教：怎样根据"表A”的“姓名”列将"模板.xls"批量复制并重命名为"姓名-模板.xls"，
-- 发布时间：2013/6/23 22:15:00
--
-- 发布时间：2013/6/23 23:06:00
--
Dim path As String =ProjectPath & "Attachments\\" \'具体目录自己修改
For Each r As Row In Tables("表A").Rows
FileSys.CopyFile(path & "模板.xls",path & r("姓名") & "-模板.xls", True)
Next r
-- 发布时间：2013/6/24 16:23:00
--
谢谢