การดึงค่าจาก Excel range name มาแสดงใน Word

[godman]

สวัสดีครับ
ผมสนใจที่จะดึงข้อมูลจาก Excel มาใส่ใน Word โดยใช้ VB ดังนี้
แต่ติด Error ที่ ตรง DAO Dataabse แต่ผมก็ไปเลือก Microsoft Dao ทั้งสองไฟล์แล้ว แต่ก็ไม่ทราบว่าติดปัญหาเรื่องอะไร ผมอยากนำมาวางใน File Word ครับ ข้อมูลอยู่ใน Excel ชื่อว่า myDatabase

Code: Select all

Dim db As DAO.Database 
Dim rs As DAO.Recordset 

Set db = OpenDatabase("C:\Test\Book1.xls", False, False, "Excel 8.0") 
Set rs = db.OpenRecordset("SELECT * FROM `myDatabase`") 

While Not rs.EOF 
    MsgBox rs.Fields(0).Value 
    rs.MoveNext 
Wend 

rs.Close 
db.Close 

Set rs = Nothing 
Set db = Nothing

[snasui]

ได้ทำการ Add Microsoft DAO 3.5+ Library เข้ามาแลัวยังครับ

[godman]

Added แล้วครับ ทั้งสองไฟล์ จริงๆ ก็ผมเข้าไป Tick ที่ช่อง ว่า Microsoft DAO เลย

[snasui]

Added แล้วครับ ทั้งสองไฟล์ จริงๆ ก็ผมเข้าไป Tick ที่ช่อง ว่า Microsoft DAO เลย

Add เฉพาะไฟล์ Word ก็พอแล้วครับ

ผมเปิดไฟล์แล้วไม่พบว่ามาการแนบ Add Reference Microsoft DAO 3.5+ Library ปกติหาก Add ไว้แล้วจะต้องผูกติดกับไฟล์มาด้วยครับ หากเปิดไฟล์ Word ขึ้นมาไม่ทราบว่าใน Reference มี DAO ถูกเลือกและไม่เป็น Missing ใช่หรือไม่ครับ

[godman]

ขอบคุณครับ จะลองดูใหม่ ได้ผลยังไงแล้วจะแจ้งให้ทราบครับ