找到插件生成代码中的FileName,这句:
FileName = Mid(FileName,InStrRev(FileName,"\")+1)
在这句下加如下代码:
'截取文件名和文件类型
FileNameArray=Split(FileName,".")
FileNameArray(0)=makefilename(FileNameArray(0))
FileName=FileNameArray(0)&"."&FileNameArray(1)
然后在程序后段写有好多function的地方,加个function:
'把当前时间作为文件名
function makefilename(fname)
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname
end function