返回列表下一主題上一主題發帖

[發問] 請問我用excel巨集用sql語法

Anny

小學生 Rank: 1

帖子: 4
主題: 2
精華: 0
積分: 6
點名: 0
作業系統: Windows7
軟體版本: OFFICE2010
閱讀權限: 10
性別: 女
註冊時間: 2012-12-21
最後登錄: 2012-12-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-12-21 14:52 | 顯示全部帖子

[發問] 請問我用excel巨集用sql語法

請問我用excel巨集用sql語法取﹝大大1217標籤$l2:l39﹞要放在同在A2的位子，語法如下：
Sub get_data_with_sql()
Set rs = CreateObject("adodb.recordset")
rs.Open "select * form [大大1217標籤$l2:l39] ", "Driver=(Microsoft Excel Driver (*.xls));dbq=C:\大大高中1217.xls"
Cells(2, 1).CopyFromRecordset (rs)
End Sub
會出現'OPEN'方法('._recordset'物件)失敗
請問各位高手這是哪個部分出問題了。
感謝！

Anny

小學生 Rank: 1

帖子: 4
主題: 2
精華: 0
積分: 6
點名: 0
作業系統: Windows7
軟體版本: OFFICE2010
閱讀權限: 10
性別: 女
註冊時間: 2012-12-21
最後登錄: 2012-12-25

2^#

發表於 2012-12-21 23:21 | 顯示全部帖子

太感謝了，真的可以了耶！

可是我加了where 以後又不行了。主要是想將itm_no這個欄位不為空的才copy到Cells(1, 1).
會出現 error "參數太少，預期個數1"
Sub get_data_with_sql()
Set rs = CreateObject("adodb.recordset")
rs.Open "select * from [大大1217標籤$L2:V39] where itm_no is not null", "Driver={Microsoft Excel Driver (*.xls)};dbq=C:\Users\dsc\Documents\大大高中1217.xls"
Cells(1, 1).CopyFromRecordset (rs)
End Sub

TOP

Anny