這是我根據e盤的一個Excel模板來每天創建一個Excel的VBScript程式，新建的Excel的名字是當天的日期
Option Explicit
Function action
Dim fso,myfile,daystr,dstr,fname
dstr = FormatDateTime(Date)
fname="d:\" + dstr + ".xls"
Set fso = CreateObject("s cripting.FileSystemObject")
Set MyFile = fso.GetFile("d:\ExcelExample.xls")
MyFile.Copy (fname)
HMIRuntime.Tags("i").write 2
End Function
但是執行到Set fso = CreateObject("s cripting.FileSystemObject")這一句就不往下執行了，也不報錯，我從網上查了一下，說是fso組件沒有啟動，我找到regsvr32 scrrun.dll這個組件，雙擊時報錯 模塊“scrrun.dll”已加載，但對DllRegisterServer的呼叫失敗，錯誤代碼為0×80004005，我以管理員的身份在命令提示符里運行了一下regsvr32 scrrun.dll，結果是DllRegisterServer在scrrun.dll上以成功。真有點暈了，求大神指教
uj5u.com熱心網友回復：
你這里多了一個空格，要仔細點！Set fso = CreateObject("s cripting.FileSystemObject")
===>
Set fso = CreateObject("scripting.FileSystemObject")
uj5u.com熱心網友回復：
關于自己是否適合編程的很簡單的測驗：在報紙或雜志上隨便找一段約1000字的文章，在Word中輸入一遍。輸完后再參考下面答案：
A里面有10處以上文字或標點錯誤
B里面沒有文字或標點錯誤并敢為此跟人打賭
C里面沒有文字或標點錯誤并且字體和排版完全與原稿一致
D列印在半透明的紙上和原稿重疊在一起檢查一模一樣，且自我感覺很有成就感
A不適合編程（理由：打字準確度偏低、粗心大意）
B初級程式員（理由：打字準確度很高、認真細致、自信、理解全角半角概念）
C高級程式員（理由：在B的基礎上理解字體和排版也是電腦列印的重要因素、但相比D還不夠偏執、精益求精、結果可驗證）
D軟體專案經理（理由：能針對專案給出令人信服的細致到極點的需求說明和典型測驗用例。用戶幾乎挑不出毛病。專業！）
如果想從A變成B的話，到我的資源http://download.csdn.net/detail/zhao4zhong1/4084259里面下載“適合程式員的鍵盤練習”
uj5u.com熱心網友回復：
嗯，但是不是這個原因
uj5u.com熱心網友回復：
不知道大家為什么喜歡用createobject來創建物件！用這個東西創建的物件沒有任何屬性方法的提示，很難使用的。你在vba代碼視窗中，找到工具==>參考，然后從串列中看看能不能找到"Microsoft Scripting Runtime"，如果存在勾選一個試試。如果不能勾選或根本不存在，說明是你那個dll的事了。
如果能夠參考正常，使用下面代碼多好：
Dim FSO As New FileSystemObject, myFile As Scripting.File
Set myFile = FSO.GetFile("d:\ExcelExample.xls")
uj5u.com熱心網友回復：
我在wincc的VBS腳本里跑的這個程式，想每月1號復制一個樣本excel，然后每天定時打開往里存數，大神能不能再指教一下，或者能加一下我有點扣扣么949132570，這事有點著急，小弟剛接觸不久，在此先謝過了
uj5u.com熱心網友回復：
在ntfs上，你必須開啟everyone的讀寫權限！FSO組件只要注冊一次就行了！以后都支持的。估計是你這個VBS不是再管理員賬戶下運行的
要么再管理員賬戶下運行
要么復制那個檔案的目錄開啟everyone的讀寫權限
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/78303.html
標籤：控件