รบกวนชี้แนะโค๊ดดึงข้อมูลจาก access เข้า excel

[akekorn]

สวัสดีครับ สมาชิกทุกท่าน
ผมมีปัญหาในการเขียนโค๊ดดึงข้อมูลจาก access ไป excel โดยมีปัญหาที่ต้องการทราบ2ข้อ
1 จากโค๊ดดังกล่าวด้านล่าง จะเป็นโค๊ดที่ใช้กับ access version 2003 ลงไป หากจะใช้กับ version 2007 ขึ้นไปจะต้องแก้อะไรครับ
2 โค๊ดตัวอย่างนี้เรียกได้เฉพาะ field แต่ข้อมูลไม่สามารถเลือกมาได้ จะต้องเพิ่มโค้ดอะไรเข้าไปถึงจะใช้ได้ครับ

ขอบคุณครับ

Code: Select all

Private Sub connectDB()

Dim ADOconn  As New ADODB.Connection
Dim ADORecordSet As New Recordset
'constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\Northwind.mdb;"
Constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\Monthly\Cardlink\201410\cardbase201410.MDB;"
'ThisWorkbook.Path คือการเลือก path ที่ไฟด์ excel นี้อยู่
If ADOconn.State = adStateOpen Then ADOconn.Close
    ADOconn.ConnectionString = Constr
ADOconn.Open
'Sql = "Select * From Products"
Sql = "Select * From QUERY2"
ADORecordSet.ActiveConnection = ADOconn
ADORecordSet.Open Sql
    For i = 0 To ADORecordSet.Fields.Count - 1
            Sheet1.Cells(1, i + 1) = ADORecordSet.Fields(i).Name
         
    Next
   
End Sub

[snasui]

Connection String สำหรับ Excel 2007 ขึ้นไป ดูที่นี่ครับ https://www.connectionstrings.com/excel/

ดูตัวอย่างการวางข้อมูลตาม Link นี้ครับ http://stackoverflow.com/questions/9083 ... rom-access

[akekorn]

ขอบคุณครับผม