執行帶引數的外部程式，引數中有變數怎么玩？-有解無憂

參考

Option Explicit
Dim PWD,password,ws
Set ws = CreateObject("WScript.Shell")
PWD=InputBox("設定SQL密碼:")
password=InputBox("確認SQL密碼:")
if SAPWD=password then
ws.exec "setup.exe SAPWD=PWD SECURITYMODE=SQL"
else
msgbox "兩次輸入不一致"
end If

這是想做一個MSDE和SQL2000安裝程序自動設定密碼的小工具，現在卡在最后執行步驟，執行setup需要添加“SAPWD”函式，函式的內容是之前設定的變數，“SAPWD”這個函式會被VBS識別成變數……求最優解

uj5u.com熱心網友回復：

SAPWD（）加個括號

uj5u.com熱心網友回復：

參考 1 樓 bakw 的回復:

SAPWD（）加個括號

uj5u.com熱心網友回復：

if SAPWD=password then
　……………………
else
msgbox "兩次輸入不一致"
end If
這兒的SAPWD，難道不應該是 PWD ？

uj5u.com熱心網友回復：

參考

Option Explicit
Dim PWD,password,ws
Set ws = CreateObject("WScript.Shell")

PWD=InputBox("設定SQL密碼:")
password=InputBox("確認SQL密碼:")
if PWD=password then
ws.exec "setup.exe (SAPWD)=PWD SECURITYMODE=SQL"
else
msgbox "兩次輸入不一致"
end If

回復兩樓車，是這樣嗎？測驗不行，提示“請求的操作需要提升”
回復34樓，前面打錯了

uj5u.com熱心網友回復：

笨的要死呀：
ws.exec "setup.exe SAPWD=" & PWD & " SECURITYMODE=SQL"

uj5u.com熱心網友回復：

參考

Option Explicit
Dim PWD,password,ws
Set ws = CreateObject("WScript.Shell")

PWD=InputBox("設定SQL密碼:")
password=InputBox("確認SQL密碼:")
if PWD=password then
ws.exec "setup.exe SAPWD=" & PWD & " SECURITYMODE=SQL"
else
msgbox "兩次輸入不一致"
end If

按照5樓的來~好像還是一樣啊…………
錯誤：請求的操作需要提升。代碼：800702E4 源：WshShell.Exec

uj5u.com熱心網友回復：

自己頂，求解

uj5u.com熱心網友回復：

是不是應該這樣寫啊？
ws.exec "setup.exe SAPWD()=" & PWD & " SECURITYMODE=SQL"

我也不清楚你的“SAPWD函式”需要怎樣操作才能被呼叫。

uj5u.com熱心網友回復：

根據vb工程的獲取啟動引數方法，下面陳述句
ws.exec "setup.exe SAPWD=" & PWD & " SECURITYMODE=SQL"
應該是正確的。

然后在工程form_load里，可以從command中分解出SAPWD和SECURITYMODE兩個引數值......

各個工程傳遞引數的格式五花八門，我覺得你應該看看關于那個setup傳遞引數的說明，也許是這樣的呢：
ws.exec "setup.exe " & PWD & " SQL"

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/69921.html

標籤：VBA

上一篇：【求助】VBA將1-12月的資料自動整理到全年的一個表格中。

下一篇：vb往kindeditor編輯器中填寫內容