การดึงค่าจาก Excel range name มาแสดงใน Word
Posted: Sun Feb 17, 2013 8:44 am
สวัสดีครับ
ผมสนใจที่จะดึงข้อมูลจาก Excel มาใส่ใน Word โดยใช้ VB ดังนี้
แต่ติด Error ที่ ตรง DAO Dataabse แต่ผมก็ไปเลือก Microsoft Dao ทั้งสองไฟล์แล้ว แต่ก็ไม่ทราบว่าติดปัญหาเรื่องอะไร ผมอยากนำมาวางใน File Word ครับ ข้อมูลอยู่ใน Excel ชื่อว่า myDatabase
ผมสนใจที่จะดึงข้อมูลจาก 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
ได้ทำการ Add