請問:如何開啟Excel時帶參數進去給vba程式接收

[ivan]

小弟需求是:
以web page開啟同一Excel file
傳入單位代碼 給vba程式
vba依據單位抓取SQL 資料出來填入欄位
請問該如何做
謝謝

[oobird]

這個問題較適合放在進階應用區，我不懂sql，也許要等沙拉油兄來回覆了。

[ivan]

謝謝
馬上移過去

[ivan]

這個問題較適合放在進階應用區，我不懂sql，也許要等沙拉油兄來回覆了。

我的問題重點是如何傳參數到excel 的vba
其他的sql部分 應該還好
因為好像沒看過有人這樣寫耶
還是 根本不行呀

　:o

[oobird]

當然少不了引用CreateObject("ADODB.Connection")，這是vba中使用SQL的方法，至於存取SQL資料庫就不得而知了，線上很少人討論這樣的問題，到目前為止，只見沙拉油兄一人能對VBA~VS~SQL侃侃而談。

[ivan]

當然少不了引用CreateObject("ADODB.Connection")，這是vba中使用SQL的方法，至於存取SQL資料庫就不得而知了，線上很少人討論這樣的問題，到目前為止，只見沙拉油兄一人能對VBA~VS~SQL侃侃而談。

嗯,在VBA裡存取SQL 應該還好,大致上寫法根ASP差不多
問題就是 沙拉油兄 怎麼還不出現呢
剛剛發現 公司居然有這本"EXCEL VBA 747"的書耶　;D
可惜 我的問題是在748題 殘念......

[crdotlin]

請參考一下747題
這是Excel VBA 747最後的範例--算是Excel VBA 外傳.

'文字檔案"wshtest.vbs"
'貼在記事本等上面並以"wshtest.vbs"為名儲存
Option Explicit
Dim objXLApp　 '宣告Excel應用程式變數
Dim objXLBook　 '宣告工作簿物件變數
Set objXLApp = WScript.CreateObject("Excel.Application")　　'創建Excel應用程式
objXLApp.Visible = True   '顯示Excel
Set objXLBook = objXLApp.Workbooks.Open("完整路徑\Q_Sample065.xls")　 '開啟含有巨集"wshmacro"的工作簿
If IsObject(objXLBook) Then　　 '測試是否正常開啟
　　objXLBook.Worksheets(1).Cells(1, 1).Value = ""　　　 '清除第一個工作表的Range("a1")儲存格
　　If WScript.Arguments.Count > 0 Then　　 '若有參數
　　　　objXLBook.Worksheets(1).Cells(1, 1).Value = WScript.Arguments(0)　 '將第一個參數存放在第一個工作表的Range("a1")儲存格
　　End If
End If
'以下的巨集會將.worksheets(1).cells(1,1).value 當作引數來使用
objXLApp.Run "wshmacro"　 '執行巨集"wshmacro"
objXLBook.Saved = True   '儲存工作簿
objXLBook.Close      '關閉工作簿
Set objXLBook = Nothing   '釋放工作簿物件
objXLApp.Quit   '關閉Excel
Set objXLApp = Nothing　 '釋放Excel應用程式物件
WScript.Quit　　 '關閉Script

在O_Sample065.xls中巨集如下


Option Explicit

'巨集活頁簿Q_Sample065.xls.xls標準模組裡
Sub wshmacro()
　　MsgBox Worksheets(1).Cells(1, 1).Value
End Sub

'透過「執行」來執行
'"檔案路徑\wshtest.vbs"半形空白"參數"

[ivan]

請參考一下747題
這是Excel VBA 747最後的範例--算是Excel VBA 外傳.

'文字檔案"wshtest.vbs"
'貼在記事本等上面並以"wshtest.vbs"為名儲存
Option Explicit
Dim objXLApp　 '宣告Excel應用程式變數
Dim objXLBook　 '宣告工作簿物件變數
Set objXLApp = WScript.CreateObject("Excel.Application")　　'創建Excel應用程式
objXLApp.Visible = True   '顯示Excel
Set objXLBook = objXLApp.Workbooks.Open("完整路徑\Q_Sample065.xls")　 '開啟含有巨集"wshmacro"的工作簿
If IsObject(objXLBook) Then　　 '測試是否正常開啟
　　objXLBook.Worksheets(1).Cells(1, 1).Value = ""　　　 '清除第一個工作表的Range("a1")儲存格
　　If WScript.Arguments.Count > 0 Then　　 '若有參數
　　　　objXLBook.Worksheets(1).Cells(1, 1).Value = WScript.Arguments(0)　 '將第一個參數存放在第一個工作表的Range("a1")儲存格
　　End If
End If
'以下的巨集會將.worksheets(1).cells(1,1).value 當作引數來使用
objXLApp.Run "wshmacro"　 '執行巨集"wshmacro"
objXLBook.Saved = True   '儲存工作簿
objXLBook.Close      '關閉工作簿
Set objXLBook = Nothing   '釋放工作簿物件
objXLApp.Quit   '關閉Excel
Set objXLApp = Nothing　 '釋放Excel應用程式物件
WScript.Quit　　 '關閉Script

在O_Sample065.xls中巨集如下


Option Explicit

'巨集活頁簿Q_Sample065.xls.xls標準模組裡
Sub wshmacro()
　　MsgBox Worksheets(1).Cells(1, 1).Value
End Sub

'透過「執行」來執行
'"檔案路徑\wshtest.vbs"半形空白"參數"

感恩感恩
照步驟用[執行]測試是ok的
但是 還是遇到別的狀況
我要在.asp中要執行
我用<a href="檔案路徑\wshtest.vbs">是可以開啟的
但是加上參數後變成<a href="檔案路徑\wshtest.vbs parm"> (parm是參數)
就會顯示"無法顯示網頁"的錯誤
現在不知道該如何組正確的字串 才能讓他認得

[沙拉油]

不好意思，我怎麼看來看去都覺得這應該是屬於ASP的問題，不應該是EXCEL問題
更何況網址列要加參數不是像這樣加上去的 <a href="檔案路徑\wshtest.vbs parm">
是<a href="檔案路徑\ASP程式?變數名稱=變數值">

ASP我可是一點都不懂的　

[ivan]

不好意思，我怎麼看來看去都覺得這應該是屬於ASP的問題，不應該是EXCEL問題
更何況網址列要加參數不是像這樣加上去的 <a href="檔案路徑\wshtest.vbs parm">
是<a href="檔案路徑\ASP程式?變數名稱=變數值">

ASP我可是一點都不懂的　

您是客氣了吧
asp是像您說的那樣傳參數沒錯(其中一種),可是因為我是要呼叫.vbs
而他的參數就必須是[空格]+參數
所以我才試著這樣寫 但是就是不行