Page 1 of 1
มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกับMsS
Posted: Fri Feb 22, 2013 11:42 am
by modllsj
สวัสดีครับผมเป็นมือใหม่ในการเขียน vba
ปัญหาของผมคือ ตอนนี้ผมมี table ใน MsSql เรียบร้อยและมีข้อมูลอยู่ในนั้น
ต้องการที่จะใช้ Excel ทำการดึงข้อมูลจาก table ที่มีมาใส่ใน Excel ครับ
โดยเมื่อเขียน Code ที่ใช้ในการเชื่อมต่อเสร็จแล้ว เกิดปัญหาดังภาพขึ้นครับ
ไม่ทราบว่าจะแก้ด้วยวิธีไหนครับอาจารย์หรือว่าcodeที่ผมเขียนมันผิดหลักครับ
รบกวนชี้แนะด้วยครับ
http://pic.free.in.th/id/fdc8458b930514 ... 457e9118ca
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 11:44 am
by snasui
แนบภาพมาที่ฟอรัมนี้เลยครับ
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 12:17 pm
by modllsj
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 12:21 pm
by snasui
Error ที่บรรทัดไหนครับ หากเป็นที่ SQL Statement ให้ใช้ Statement ง่าย ๆ ก่อนครับ ยังไม่ต้องใส่ Where หรือ อื่น ๆ
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 12:37 pm
by modllsj
error ตั้งแต่ Dim cn as ADODB.connection เลยครับ
error ที่ว่าคือ user-defined type not defined ซึ่งเหมือนกับว่า vba ใน excel ไม่รู้จัก ADODB.connection อะครับ
ไม่ทราบว่าต้องแก้ไขอย่างไร หรือ import reference อันไหนเข้ามาหรือเปล่าครับ
ปล.codeข้างต้น ใส่statement แค่เพียง select*from เองครับ
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 1:19 pm
by snasui
ต้อง Add Reference เข้ามาก่อนครับ โดยเข้า VBE > Tools > Reference > เลือก Microsoft ActiveX Data Objects 2.8 Library หรือสูงกว่า
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 4:26 pm
by modllsj
add reference ตามอาจารย์บอกแล้วก็ยัง error แบบเดิมอยู่ครับ T_T
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 4:58 pm
by snasui
สังเกตว่ามี Missing ด้านหน้าของค่าที่ลูกศรชี้ตามภาพหรือไม่ครับ
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 6:41 pm
by modllsj
Add reference ตัวที่อาจารย์ชี้แนะเรียบร้อยแล้วครับ ทำการ run code ไม่เกิด error ตัวเดิมแล้วครับ
แต่เกิด error ตัวใหม่ครับ มัน error ว่า type mismatch แทนครับ
รบกวนอาจารย์ชี้แนะทีครับ
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 7:04 pm
by modllsj
ตอนนี้ไม่ error แล้วครับ ทำการปรับเปลี่ยน code นิดหน่อย ก็ run ผ่านครับ
แต่มีบางส่วนยังไม่เข้าใจอยากขอคำชี้แนะครับ
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 7:20 pm
by modllsj
ปัญหาอย่างแรก : จากรูป อาจารย์จะเห็นได้ว่า Code ที่ทำการรันผ่านแล้วจะดึงข้อมูลมาจาก table ใน MsSql
แต่ว่า ได้มาเพียง Value ที่มีใน table กลับไม่ได้ชื่อของ Column มาเลยครับ
ซึ่งชื่อของ Column ควรจะอยู่ที่ตำแหน่ง A1,B1,C1 แล้ว Value ก็ไปอยู่ที่ตำแหน่ง A2,B2,C2 ครับ
อยากทราบวิธีการแก้ไขหรือคำชี้แนะครับ ^_^
ปัญหาที่สอง : จาก error ที่ฟ้องว่า
Type MisMatch นั่น ผมอยากทราบรายละเอียดในส่วนนี้ครับ
รบกวนอาจารย์ชี้แนะด้วยครับ
ปัญหาที่สาม : ในการสร้างในส่วน VBE เมื่อผมทำการเขียน code ขึ้นมาใน Module แล้ว เมื่อทำการบันทึกไฟล์
บางครั้งก็บันทึกแล้ว codeต่างๆยังคงอยู่ แต่บางครั้ง code ต่างๆกลับหายไป ไม่ทราบว่าผมต้องทำอย่างไรในส่วนไหนครับ
ปล.ในปัญหาที่สามนี้ ทุกครั้งที่ผมทำการ save จะมีข้อความว่า(ตามรูปครับ)
ซึ่งเมื่อกด Yes แล้ว บางทีมันก็ save ให้ บางทีก็ไม่ save ให้ครับ
ขอบพระคุณอาจารย์อย่างสูงครับ
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 10:45 pm
by snasui
กรณีต้องการ Field มาด้วยลองใช้ Code ด้านล่างเข้าไปช่วยครับ
Code: Select all
Dim fld As Field
Dim i As Integer
Dim FieldRange As Range
Set FieldRange = Range("A1")
For Each fld In rc.Fields
FieldRange.Offset(0, i).Value = fld.Name
i = i + 1
Next fld
สำหรับ Error Type MisMatch ช่วยจับภาพบรรทัดที่แสดง Error ด้วยครับ
การ Save File จะต้อง Save เป็นนามสกุล
.xlsm ถึงจะแนบ Code ได้ครับ หาก Save เป็น .xlsx จะไม่สามารถแนบ Macro ได้ครับ
Re: มีปัญหาเกี่ยวกับการเขียน code vba ในการเชื่อมต่อ excelกั
Posted: Fri Feb 22, 2013 10:54 pm
by modllsj
ขอบคุณครับอาจารย์ พรุ่งนี้ผมต้องไปต่างจังหวัด
คงจะกลับมานั่งเขียนใหม่ประมาณวันอังคารครับ
ขอขอบคุณในคำชี้แนะต่างๆครับ
ด้วยความเคารพ
modllsj
