在EXCEL VBA中的MS SQL查詢語法,如何用輸入的方式產生?
- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-11-8
- 最後登錄
- 2012-12-12
|
在EXCEL VBA中的MS SQL查詢語法,如何用輸入的方式產生?
我的EXCEL VBA 中有一段查詢MS SQL語法 (............where ApplyDateTime Between '20120101' and '20121231' and Excuse='特休假'...........),該如何將日期與假別的部分用VBA文字方塊方式輸入日期範圍和假別可查詢出我要的結果?謝謝!
PS:因為在VBA中可以執行SQL語法,查詢資料,所以我想要這段SQL語法在VBA中可以用變數方式去查詢。 |
|
|
聶風
|
|
|
|
|
- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-11-8
- 最後登錄
- 2012-12-12
|
12#
發表於 2012-12-7 22:12
| 只看該作者
本帖最後由 badboy01 於 2012-12-7 22:13 編輯
回復 stillfish00
另請教大大,我在EXCEL sheet中設計的按鈕要怎麼鎖定無法按右鍵去編輯巨集的原始碼? ...
badboy01 發表於 2012-12-7 18:13 
我試出來了,設定保護共用活頁簿,感謝大大! |
|
|
聶風
|
|
|
|
|
- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
11#
發表於 2012-12-7 19:02
| 只看該作者
回復 10# badboy01
這方面我也不太熟 , 精華區內有一些保護工作表或程式碼的討論也許你能參考看看 |
|
|
|
|
|
|
|
- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-11-8
- 最後登錄
- 2012-12-12
|
10#
發表於 2012-12-7 18:13
| 只看該作者
回復 8# stillfish00
另請教大大,我在EXCEL sheet中設計的按鈕要怎麼鎖定無法按右鍵去編輯巨集的原始碼?謝謝!(正常下一般滑鼠右鍵可以選擇指定巨集) |
|
|
聶風
|
|
|
|
|
- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-11-8
- 最後登錄
- 2012-12-12
|
9#
發表於 2012-12-7 18:08
| 只看該作者
回復 8# stillfish00
感謝~~大大成功了~之前搞好久都搞不定,模組也可以用了~~感恩^____^ |
|
|
聶風
|
|
|
|
|
- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
8#
發表於 2012-12-7 17:27
| 只看該作者
本帖最後由 stillfish00 於 2012-12-7 17:28 編輯
回復 6# badboy01
OK , 所以你是程式寫在模組內 ,
假設你是直接在工作表1 (工作表名稱) , 插入ActiveX的文字方塊
這樣的話你的Textbox1要指定是哪個工作表 ,
也就是把原本的 Textbox1.Text 改寫成 sheets("工作表1").Textbox1.Text
Textbox2同理 |
|
|
|
|
|
|
|
- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-11-8
- 最後登錄
- 2012-12-12
|
7#
發表於 2012-12-7 17:10
| 只看該作者
回復 5# c_c_lai
我按照大大方式好像不行(模組方式),不過還是謝謝提供方法。 |
|
|
聶風
|
|
|
|
|
- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-11-8
- 最後登錄
- 2012-12-12
|
6#
發表於 2012-12-7 16:55
| 只看該作者
回復 badboy01
sStartDate =TextBox1.Text
sEndDate =TextBox2.Text
stillfish00 發表於 2012-12-7 16:31 
我大概發現問題在哪裡了。我都是用模組方式來設計,我是直接在EXCEL上設計文字方塊,所以一直有錯誤,但是我插入表單在按照大大的方式就成功了,只是如果我在EXCEL sheet 上就有問題~~找不出原因= =",不過還是感謝大大,終於搞定了,感恩! |
|
|
聶風
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
5#
發表於 2012-12-7 16:40
| 只看該作者
本帖最後由 c_c_lai 於 2012-12-7 16:42 編輯
回復 3# badboy01 - where ApplyDateTime Between '" & Format(TextBox1.Text, "yyyymmdd") & "' AND '" & Format(TextBox2.Text, "yyyymmdd") & "' and Excuse='特休假'
複製代碼 |
|
|
|
|
|
|
|
- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
4#
發表於 2012-12-7 16:31
| 只看該作者
回復 3# badboy01
sStartDate =TextBox1.Text
sEndDate =TextBox2.Text |
|
|
|
|
|
|
|