按系统时间为随机数保存不同的文件名称
上一篇 /
下一篇 2014-05-27 13:46:31
/ 个人分类:好文转载
'源码来自网络,出处不明,感谢网络大牛,自己稍作改造
Function Rand(k,n) 'k为随机数的最大值, n的作用为传值.
randomize
n=int((k-1)*rnd+1)
Rand=n
End Function
'产生以"Test"开头,后边均为数字的唯一值.格式为:Test090412212100
Sub UniqueID(a)
'Y=split(date,"-")适合于windows xp
Y=split(date,"/") '适合于windows 7
Y(1)=right("0"&Y(1),2)
Y(2)=right("0"&Y(2),2)
Y1=Y(1)&Y(2)
T=split(time,":")
T1=T(1)&T(2)
n=rand(9,n)
a="Test"&Y1&T1&n
End Sub
'保存文件名称调用如下
'call UniqueID(a)
'Window("Flight Reservation").ActiveX("MaskEdBox").CaptureBitmap "D:\temp\qtp\"&a&".bmp", True
'call UniqueID(a)
' excelsheet.saveas "C:\Users\yudezhang\Desktop\"&a&".xls"
收藏
举报
TAG: