标题:求助将文件名中数字赋值为变量并复制的问题
只看楼主
wowowz
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2014-5-13
结帖率:100%
已结贴  问题点数:20 回复次数:2 
求助将文件名中数字赋值为变量并复制的问题
Private Sub Form_DblClick()
    Dim s As Integer
    s = 1
    FileCopy "E:\新建文件夹\第""&s&""轮.xlsx", "E:\新建文件夹\第""&s+1&""轮.xlsx"
    Print "复制成功"
End Sub
文件名为第1轮,想通过每次改变s的值而实现每次在前一轮的基础上增加一轮。
但是这个编码不对,一直不行,求助大神。
搜索更多相关主题的帖子: 新建文件夹 
2014-05-13 14:15
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
得分:20 
Private Sub Form_DblClick()
    static s As Integer ' long
    s = 1
    FileCopy "E:\新建文件夹\第" & s &"轮.xlsx", "E:\新建文件夹\第" & s+1 &"轮.xlsx"
    s=s+1
    Print "复制成功"
End Sub
2014-05-14 07:00
wowowz
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2014-5-13
得分:0 
感谢,完美
2014-05-19 09:29



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-431462-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.140527 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved