返回列表 上一主題 發帖

在EXCEL VBA中的MS SQL查詢語法,如何用輸入的方式產生?

在EXCEL VBA中的MS SQL查詢語法,如何用輸入的方式產生?

我的EXCEL VBA 中有一段查詢MS SQL語法 (............where ApplyDateTime Between '20120101' and '20121231' and Excuse='特休假'...........),該如何將日期與假別的部分用VBA文字方塊方式輸入日期範圍和假別可查詢出我要的結果?謝謝!
PS:因為在VBA中可以執行SQL語法,查詢資料,所以我想要這段SQL語法在VBA中可以用變數方式去查詢。
聶風

本帖最後由 badboy01 於 2012-12-7 22:13 編輯
回復  stillfish00

另請教大大,我在EXCEL sheet中設計的按鈕要怎麼鎖定無法按右鍵去編輯巨集的原始碼? ...
badboy01 發表於 2012-12-7 18:13


我試出來了,設定保護共用活頁簿,感謝大大!
聶風

TOP

回復 10# badboy01
這方面我也不太熟 , 精華區內有一些保護工作表或程式碼的討論也許你能參考看看

TOP

回復 8# stillfish00

另請教大大,我在EXCEL sheet中設計的按鈕要怎麼鎖定無法按右鍵去編輯巨集的原始碼?謝謝!(正常下一般滑鼠右鍵可以選擇指定巨集)
聶風

TOP

回復 8# stillfish00

感謝~~大大成功了~之前搞好久都搞不定,模組也可以用了~~感恩^____^
聶風

TOP

本帖最後由 stillfish00 於 2012-12-7 17:28 編輯

回復 6# badboy01
OK , 所以你是程式寫在模組內 ,
假設你是直接在工作表1 (工作表名稱) ,  插入ActiveX的文字方塊
這樣的話你的Textbox1要指定是哪個工作表 ,
也就是把原本的 Textbox1.Text 改寫成  sheets("工作表1").Textbox1.Text
Textbox2同理

TOP

回復 5# c_c_lai


    我按照大大方式好像不行(模組方式),不過還是謝謝提供方法。
聶風

TOP

回復  badboy01
sStartDate =TextBox1.Text
sEndDate =TextBox2.Text
stillfish00 發表於 2012-12-7 16:31


我大概發現問題在哪裡了。我都是用模組方式來設計,我是直接在EXCEL上設計文字方塊,所以一直有錯誤,但是我插入表單在按照大大的方式就成功了,只是如果我在EXCEL sheet 上就有問題~~找不出原因= =",不過還是感謝大大,終於搞定了,感恩!
聶風

TOP

本帖最後由 c_c_lai 於 2012-12-7 16:42 編輯

回復 3# badboy01
  1. where ApplyDateTime Between '" & Format(TextBox1.Text, "yyyymmdd") & "' AND '" & Format(TextBox2.Text, "yyyymmdd") & "' and Excuse='特休假'
複製代碼

TOP

回復 3# badboy01
sStartDate =TextBox1.Text
sEndDate =TextBox2.Text

TOP

        靜思自在 : 君子如水,隨方就圓,無處不自在。
返回列表 上一主題