[發問] 篩選問題

請教各位先進2個問題
1.當執行此程式會發生"執行階段錯誤'3704':當物件關閉時,不允許操作",請問要如何修正
2.使用Blade(數值)做篩選,可篩選出想要的資料,但改用entrydate(日期)篩選,程式改為~FROM CFData where entrydate>2012/12/1,卻無法篩選出想要的資料
請問是否要另外宣告參數條件

Sub aa()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "/Motion.mdb"
Sql = "SELECT entrydate,blade INTO [Excel 8.0;DATABASE=c:\test1.XLS].[main] FROM CFData where blade =1"
[a2].CopyFromRecordset cnn.Execute(Sql) -->會發生執行階段錯誤'3704':當物件關閉時,不允許操作 cnn.Close
cnn.Close
Set cnn = Nothing
End Sub
使用Blade=1可將Blade為1的資料篩選出來

使用entryDate>2012/12/1,無法篩選2012/12/1以後的資料

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-1-15 15:11 | 只看該作者

回復 1# jcchiang
1.  Sql = "SELECT entrydate,blade INTO [Excel 8.0;DATABASE=c:\test1.XLS].[main] FROM CFData where blade =1"
   我不太清楚這種不開檔就能存取的語法 , 或錯在哪(雖然看起來挺好用的)
   但底下是另一種作法 , 也許能幫到你

Sub aa()
Dim sSaveFile As String
Dim cnn As New ADODB.Connection
Dim sql As String
sSaveFile = "c:\test1.xlsx"
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "/Motion.mdb"
With Workbooks.Add
With Sheets(1)
.Name = "main" '工作表名稱
sql = "SELECT entrydate,blade FROM CFData where blade =1"
.[a2].CopyFromRecordset cnn.Execute(sql) '複製到A2儲存格
End With
.SaveAs sSaveFile
.Close
End With
cnn.Close
Set cnn = Nothing
End Sub

複製代碼

2. 改 where entrydate>#2012/12/1# 看看

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

3^#

發表於 2013-1-15 16:44 | 只看該作者

1.使用先進的作法可解決"當物件關閉時,不允許操作"的問題
但Execl檔案內各資料的標題沒有被複製出來,是否有解決辦法
blade篩選1.jpg

2.日期前後加入#可以抓到資料
另外請教個問題,如果日期要使用InputBox輸入
Dim myDate
Do Until IsDate(myDate)
myDate = Trim(InputBox("請輸入查詢起始日期", "日期", "YYYY/MM/DD"))
Loop

where entrydate>myDate -->無法執行,請問語法要如何修正

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2013-1-15 17:15 | 只看該作者

回復 3# jcchiang

Sub aa()
Dim sSaveFile As String
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Dim i As Long
Dim myDate
Do Until IsDate(myDate)
myDate = Trim(InputBox("請輸入查詢起始日期", "日期", "YYYY/MM/DD"))
Loop
sSaveFile = "c:\test1.xlsx"
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "/Motion.mdb"
With Workbooks.Add
With Sheets(1)
.Name = "main" '工作表名稱
sql = "SELECT entrydate,blade FROM CFData where entrydate>" & CLng(CDate(myDate))
Set rst = cnn.Execute(sql)
For i = 1 To rst.Fields.Count
.Cells(1, i).Value = rst.Fields.Item(i - 1).Name
Next i
.[a2].CopyFromRecordset rst '複製到A2儲存格
End With
.SaveAs sSaveFile
.Close
End With
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub

複製代碼

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

5^#

發表於 2013-1-15 17:58 | 只看該作者

謝謝指導,目前問題已解決

TOP