stillfish00

¦^´_ 1# jcchiang
1.  Sql = "SELECT entrydate,blade INTO [Excel 8.0;DATABASE=c:\test1.XLS].[main] FROM CFData where blade =1"
      §Ú¤£¤Ó²M·¡³oºØ¤£¶}ÀÉ´N¯à¦s¨úªº»yªk , ©Î¿ù¦b­þ(ÁöµM¬Ý°_¨Ó®¼¦n¥Îªº)
      ¦ý©³¤U¬O¥t¤@ºØ§@ªk , ¤]³\¯àÀ°¨ì§A

1. Sub aa()
   
2.     Dim sSaveFile As String
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim sql As String   
   
5. 
   
6.     sSaveFile = "c:\test1.xlsx"   
   
7.     cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "/Motion.mdb"
   
8. 
   
9.     With Workbooks.Add
   
10.         With Sheets(1)
    
11.             .Name = "main"  '¤u§@ªí¦WºÙ
    
12.             sql = "SELECT entrydate,blade FROM CFData where blade =1"
    
13.             .[a2].CopyFromRecordset cnn.Execute(sql)    '½Æ»s¨ìA2Àx¦s®æ
    
14.         End With
    
15.         .SaveAs sSaveFile
    
16.         .Close
    
17.     End With
    
18.     cnn.Close
    
19.     Set cnn = Nothing
    
20. End Sub

½Æ»s¥N½X

2.  §ï where entrydate>#2012/12/1# ¬Ý¬Ý

stillfish00

¦^´_ 3# jcchiang

1. Sub aa()
   
2.     Dim sSaveFile As String
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim rst As New ADODB.Recordset
   
5.     Dim sql As String
   
6.     Dim i As Long
   
7.     Dim myDate
   
8.       
   
9.     Do Until IsDate(myDate)
   
10.      myDate = Trim(InputBox("½Ð¿é¤J¬d¸ß°_©l¤é´Á", "¤é´Á", "YYYY/MM/DD"))
    
11.     Loop
    
12.    
    
13.     sSaveFile = "c:\test1.xlsx"
    
14.     cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "/Motion.mdb"
    
15.     With Workbooks.Add
    
16.         With Sheets(1)
    
17.             .Name = "main"  '¤u§@ªí¦WºÙ
    
18.             sql = "SELECT entrydate,blade FROM CFData where entrydate>" & CLng(CDate(myDate))
    
19.             Set rst = cnn.Execute(sql)
    
20.             For i = 1 To rst.Fields.Count
    
21.                 .Cells(1, i).Value = rst.Fields.Item(i - 1).Name
    
22.             Next i
    
23.             .[a2].CopyFromRecordset rst   '½Æ»s¨ìA2Àx¦s®æ
    
24.         End With
    
25.         .SaveAs sSaveFile
    
26.         .Close
    
27.     End With
    
28.     cnn.Close
    
29.     Set rst = Nothing
    
30.     Set cnn = Nothing
    
31. End Sub

½Æ»s¥N½X