Snasui Excel Forum

Sub myDataMssql()
Dim ws As Worksheet
Dim qt As QueryTable

Set ws = ThisWorkbook.Worksheets("Mssql")
ws.Activate
Set qt = Nothing
Set ws = Nothing

cSql = "SELECT * FROM test" ' ตรงส่วนนึงดึงจาก view ยังไงค่ะ

Set qt = ws.QueryTables.Add( _
Connection:=cConn, _
Destination:=Range("A1"), _
sql:=cSql)

qt.Refresh

จาก cSql = "SELECT * FROM test"

ได้ลองเปลี่ยน test เป็นชื่อ View ที่ต้องการดึงข้อมูลแล้วยังครับ
นอกจากนี้ตัวแปร cConn กำหนดไว้ตรงไหน มีค่าเป็นอย่างไรครับ

สำหรับ Code การดึงข้อมูลจาก SQL ดูตัวอย่างได้ที่นี่ครับ http://www.mrexcel.com/forum/showthread ... er-via-VBA