按系统时间为随机数保存不同的文件名称

上一篇 / 下一篇 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: