因為工作需要前幾天做了個導表腳本 XLS2TXT

但是當表很多時有個糾結的問題，不顯示EXCEL會讓人不知道進展，還以為卡死了。

顯示excel 不停的刷表格，很不美觀。

我是無法接受這種情況的，所以硬著頭皮做了個進度條。這里只是進度條的部分，還沒有放進導表工具里。

些腳本的編寫中學到的知識點如下：

1、VBS中JS中環(huán)境變量的應用

2、VBS調用MSHTA 只所以沒有寫臨時文件，是因為只要有寫操作很容易被當成病毒。

3、MSHTA 參數有字符數量的限制，于是在HTA中只簡單的寫了個HTML的主體加上動態(tài)創(chuàng)建腳本的功能(腳本來自環(huán)境變量)。這樣就可以完成進度條UI的需要了。環(huán)境變量到底能傳多長的字符我沒有測試過，起碼現(xiàn)在是夠用了。(實在不行可寫個循環(huán)往里慢慢加吧，不知可行不)

4、VBS調用MSHTA再調用javascript 這個字符串拼接是個大大的頭痛。(要是有個自動轉換的工具就好了。我這里是一點一點試的)

5、Exec 方法可以返回進程ID ?(這樣進度條被關掉，VBS就可以停工了)

Set ws = CreateObject("WScript.Shell")

Set ws = CreateObject("WScript.Shell")

Set oExec = ws.Exec( "mshta javascript:""

VBS調用MSHTA演示！網上好多VBS的這里用JS的吧！""" )

MsgBox oExec.ProcessID

Set ws = CreateObject("WScript.Shell")

'創(chuàng)建用戶變量

set oshell=createobject("wscript.shell")

set env=oshell.environment("user")

'在HTA中動態(tài)創(chuàng)建腳本加載 jerryHtml_env 的內容

myHtml = "mshta javascript:"""""

env("jerryCount_env") = 1

Set oExec = ws.Exec(myHtml)

'jerryHtml_env： HTA的主體，通過js動態(tài)創(chuàng)建進度條寫入

env("jerryHtml_env") ="var mydiv = document.createElement('div');mydiv.innerHTML=""

" _

& "" _

& "o(∩_∩)o 導表中。。。

& """;" _

& "window.resizeTo(screen.availWidth/2, screen.availHeight/4);document.title = '策劃導表，閑人回避！';document.body.appendChild(mydiv);var wsh=new ActiveXObject('WScript.Shell');window.setInterval(function(){var str=wsh.Environment('user').Item('jerryCount_env');if(str=='100%完成')window.close();document.getElementById('pID').style.width=str;document.getElementById('ptx').innerHTML=str;},50);"

'jerryCount_env：VBS里的進度參數。HTA中 window.setInterval()每半秒讀一次刷新進度條。

'循環(huán)，測試用

For i = 0 To 100 Step 10

WScript.Sleep 50

env("jerryCount_env") = i&"%"

Next

'自已來控制HTA的關閉: if(str=='100%完成')window.close()。要注意的是，先判斷是否滿足，再設置進度的寬度。因為 width='100%完成'可不行

env("jerryCount_env") = "100%完成"

'顯示 HTA的進程ID。到100%可以殺進程。也可以到HTA中去判斷自行關閉。

MsgBox "HTA的進程ID：" & oExec.ProcessID & chr(13)&"VBS中可以進行判斷，如果進度條窗口被關閉，則結束VBS！",,"策劃導表，閑人回避！"

總結

以上是生活随笔為你收集整理的vbs如何写进度条_VBS 调用 HTA 实现进度条加载的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。