Excel VBA 如何將查詢到的資料依照圖示填入儲存格?

excel+vba的問題

achan 2020-05-28 17:44:56 ‧ 3053 瀏覽

分享至

大家好
最近剛入門學習 excel vba
目前能透過下面 sql指令抓出如圖片右方的資料

想請問如何將讀取到的陣列依照左方的格式填入資料呢?

[sql 指令]
select order_no as '訂單號碼' ,order_date as '交期',product_name as '產品編號',producut_num as '數量' from order_table;

achan iT邦研究生 4 級 ‧ 2020-05-28 17:47:57 檢舉

黃色部分是自己想進一步學習的部分
如何將 D2:F2 當成變數依序帶入sql指令查詢資料?

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

paicheng0111

iT邦大師 5 級 ‧ 2020-05-28 18:15:10

select 
    order_no as '訂單號碼' 
    ,order_date as '交期'
    ,product_name as '產品編號'
    ,producut_num as '數量' 
from order_table
WHERE product_name IN ('產品A', '產品B', '產品C');

回應 2
分享
檢舉

achan iT邦研究生 4 級 ‧ 2020-05-29 08:27:42 檢舉

謝謝paicheng0111 的回答
用where 篩選出來產品abc 指令我已經會下

但要將資料依照excel 對應的產品編號與交期順序存入的指定位置是否可以指點一下? (如圖示左邊)

paicheng0111 iT邦大師 5 級 ‧ 2020-05-29 08:49:46 檢舉

Dim SQL As String

SQL = "select order_no as '訂單號碼' ,order_date as '交期',product_name as '產品編號',producut_num as '數量' from order_table WHERE product_name IN ("
SQL = SQL & " '" & Range("D2").Value & "'"
SQL = SQL & ",'" & Range("E2").Value & "'"
SQL = SQL & ",'" & Range("F2").Value & "'"
SQL = SQL & ");"

登入發表回應