這是一個vbs根據excel模板，復制生成一個新的excel，并且以復制時的時間來命名新生成的excel的程式，如下
Option Explicit
Function action
Dim fso,myfile,daystr,dstr,fname
dstr = FormatDateTime(Date)
fname= "d:\"+dstr+".xls "
Set fso = CreateObject("scripting.FileSystemObject")
Set MyFile = fso.GetFile("d:\ExcelExample.xls")
MyFile.copy (fname)
End Function
總是不執行 這一句 MyFile.copy (fname) 地址格式不對么，就大神指點一下。
uj5u.com熱心網友回復：
你檢查一下fname，這里會出現/符號，檔案名中是不允許出現的，所以失敗了。改成這樣試試：dstr=format$(date,"yyyy-mm-dd")
uj5u.com熱心網友回復：
還是不行，說有無效的字符，應該就是$吧uj5u.com熱心網友回復：
fname= "d:\"+dstr+".xls "后面加一個除錯陳述句
Debug.Print fname
看看里面到底是什么。
你貼的不是源代碼吧？等號之前應該有自動添加的空格。
uj5u.com熱心網友回復：
VBS 的話，可以打一個斷點看看 fname 的內容。uj5u.com熱心網友回復：
不會是vbs里沒有format函式吧？如果是的話，不知道year,month,day等函式是不是能用呢？
來一個：dstr=year() & "-" & month() & "-" & day()
或者：dstr =replace( FormatDateTime(Date),"/","-")''這總可以吧
什么，還是不行.......My God........你自己查查vbs的函式吧，我是沒怎么用過。
uj5u.com熱心網友回復：
format是 VBA中String類的函式。dstr = FormatDateTime(Date) 會使 dstr中包含 / 字符，作為檔案名肯定不行的。
用這個吧：
dstr =year(Date) & "-" & month(Date) & "-" & day(Date)
uj5u.com熱心網友回復：
COPY就一個引數？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/78310.html
標籤：VB基礎類
上一篇：新人求問，有什么推薦的入門書籍？
下一篇：求助 vb z1,z2 互為質數