Foxtable(狐表)用户栏目专家坐堂 → 请问下excel另存为副本时,修改文件名称该怎么写呢?


  共有2399人关注过本帖平板打印复制链接

主题:请问下excel另存为副本时,修改文件名称该怎么写呢?

帅哥哟,离线,有人找我吗?
taoxian
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:115 积分:1056 威望:0 精华:0 注册:2016/4/10 10:25:00
请问下excel另存为副本时,修改文件名称该怎么写呢?  发帖心情 Post By:2016/5/16 10:30:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\工资单.xls")
Dim fl As String = ProjectPath & "Reports\工资单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

dim Copyfl as string = "D:\工资表\format(e.DataRow("工资月份"),"yyyy")\format(e.DataRow("工资月份"),"MM") " & e.DataRow("姓名") & format(e.DataRow("工资月份"),"yyyyMM") & ".xls"
Book.Save(Copyfl ) '保存工作簿副本


另存为副本这样写可以吗?存到d盘工资表下,并按年、月生成文件夹,然后生成名称+年月为名称的.xls文件!

dim Copyfl as string = "D:\工资表\format(e.DataRow("工资月份"),"yyyy")\format(e.DataRow("工资月份"),"MM") " & e.DataRow("姓名") & format(e.DataRow("工资月份"),"yyyyMM") & ".xls"


求版主帮忙!


 回到顶部