您的位置：程序门 -> vb -> 基础类

存盘时，如何实现文件名变量？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

存盘时，如何实现文件名变量？

发表于：2007-01-11 22:18:58 楼主

操作excel后，工作表另存为
... ...
　　eole.activeworkbook.saveas（″c:\temp\filename.xls″)

... ...

问题：此句中的filename可否为变量？因为要批量生成文件

发表于：2007-01-11 22:39:021楼得分:0

偶是新手，帮帮忙啊

就是如何批量生成文件？而且每个文件名预先另外给定

在此谢过 ~

发表于：2007-01-12 16:11:512楼得分:0

set xlapp1 = createobject（ "excel.application ")
xlapp1.workbooks.open （app.path & "\11.xls ")
xlapp1.visible = false
xlapp1.workbooks（ "11.xls ").activate
xlapp1.worksheets（1).cells（4, 5) = 10
xlapp1.activeworkbook.saveas （app.path & "\filename.xls ")
xlapp1.quit
set xlapp1 = nothing

因为想批量生成文件，如何能让filename成为变量？肯定不能像上面那样写！
就是说在form中给定一个string，让程序实现以这个string为文件名来存文件???

高手指点指点~，谢先!

再顶。。。。。。。。。。。。。。。。

发表于：2007-01-12 16:28:463楼得分:0

eole.activeworkbook.saveas（″c:\temp\filename " & random（i) & ".xls″)

发表于：2007-01-12 17:00:364楼得分:0

操作excel后，工作表另存为
... ...
　　eole.activeworkbook.saveas（″c:\temp\filename.xls″)

... ...

问题：此句中的filename可否为变量？因为要批量生成文件
----------------------------------
dim filename as string
eole.activeworkbook.saveas（″c:\temp\ "& filename & ".xls″)

是不是这个？

发表于：2007-01-12 17:42:515楼得分:0

dim x as date
dim str as string
x = now
str = replace（cstr（x), "- ", space（0))
str = replace（str, ": ", space（0))
str = replace（str, " ", space（0))
debug.print str

eole.activeworkbook.saveas（″c:\temp\ "& str & ".xls″)

发表于：2007-01-12 17:47:336楼得分:0

可以用程序动态生成的！

发表于：2007-01-12 21:12:257楼得分:0

海员的很完整～～推荐采用～～

发表于：2007-01-13 09:59:368楼得分:0

同意上面几位的

其他资讯