กระทู้เก่าบอร์ด อ.Yeadram
3,344 6
URL.หัวข้อ /
URL
มีตัวอย่างมาแจกครับ
พอดีได้รับอีเมล์ ให้ช่วยเขียนโค้ดให้ จากคุณครูศักดิ์ น่าน
โจทก์....
- มีข้อมูลชุดหนึ่งอยู่ใน Excel เป็นผลการทำแบบสำรวจ
- ต้องการได้ผลสรุปแบบรวดเร็ว แยกเป็นข้อๆ ไป ว่าข้อนี้ คนเลือกตัวเลือกไหน เท่าไหร่
- ในไฟล์ที่ผมอัพขึ้นนี้ มี 3 ไฟล์ นะครับถ้าเปิดเจอแล้วอาจจะเข้าใจโจทก์มากขึ้นครับ (pdf, excel, mdb)
ผมทำออกมาด้วย
- access เวอร์ชั่น 2002 (office XP)
- ใช้ไลบรารี่เพิ่ม ตัวเดียว คือ Microsoft DAO 3.6
แนวการคิดเพื่อแก้โจทก์
- ค้นหาไฟล์ excel ที่ต้องการ จากในเครื่องคอมพิวเตอร์
- นำเข้าข้อมูลดิบจากไฟล์นั้น ด้วยโค้ด
- ใช้คิวรี่ 5 ครั้ง (ตามจำนวนตัวเลือกสูงสุด)
- เอาทั้ง 5 คิวรี่ มา union กัน เหลือคิวรี่เดียว
- ทั้งหมดนั่นใช้โค้ดทั้งหมด โดยสั่งทำงานจากการเรียกใช้ แค่ครั้งเดียว
ใครสนใจลองดาวน์โหลดไปเล่นดูครับ
โจทก์....
- มีข้อมูลชุดหนึ่งอยู่ใน Excel เป็นผลการทำแบบสำรวจ
- ต้องการได้ผลสรุปแบบรวดเร็ว แยกเป็นข้อๆ ไป ว่าข้อนี้ คนเลือกตัวเลือกไหน เท่าไหร่
- ในไฟล์ที่ผมอัพขึ้นนี้ มี 3 ไฟล์ นะครับถ้าเปิดเจอแล้วอาจจะเข้าใจโจทก์มากขึ้นครับ (pdf, excel, mdb)
ผมทำออกมาด้วย
- access เวอร์ชั่น 2002 (office XP)
- ใช้ไลบรารี่เพิ่ม ตัวเดียว คือ Microsoft DAO 3.6
แนวการคิดเพื่อแก้โจทก์
- ค้นหาไฟล์ excel ที่ต้องการ จากในเครื่องคอมพิวเตอร์
- นำเข้าข้อมูลดิบจากไฟล์นั้น ด้วยโค้ด
- ใช้คิวรี่ 5 ครั้ง (ตามจำนวนตัวเลือกสูงสุด)
- เอาทั้ง 5 คิวรี่ มา union กัน เหลือคิวรี่เดียว
- ทั้งหมดนั่นใช้โค้ดทั้งหมด โดยสั่งทำงานจากการเรียกใช้ แค่ครั้งเดียว
ใครสนใจลองดาวน์โหลดไปเล่นดูครับ
6 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R00684
ขอบคุณครับ
2 @R15864
Code vba นำเข้า File excel แบบเลือก Sheet ของ Excel ก่อน แล้วนำเข้าเฉพาะ Sheet ที่เลือก มี Code ตัวอย่างหรือเปล่าครับ จะได้นำไปศึกษาและประยุกต์ใช้กับงานอื่นๆ.....Code ที่อาจารย์ yeadram ให้มา นำเข้า Excel ได้ครับ แต่เข้ามาแค่ sheet แรกเท่านั้น
3 @R15873
ตัวอย่าง
- สำหรับการ Import Excel แบบเลือกชื่อ Sheet ที่ต้องการ
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table1", "C:\Book1.xlsx", True, "Sheet8!"
- สำหรับการ Import Excel แบบเลือกชื่อ Sheet ที่ต้องการ และเลือกบางช่วงเซลเท่านั้น
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table1", "C:\Book1.xlsx", True, "Sheet8!B1:J27"
ประมาณนี้ครับ
- สำหรับการ Import Excel แบบเลือกชื่อ Sheet ที่ต้องการ
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table1", "C:\Book1.xlsx", True, "Sheet8!"
- สำหรับการ Import Excel แบบเลือกชื่อ Sheet ที่ต้องการ และเลือกบางช่วงเซลเท่านั้น
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table1", "C:\Book1.xlsx", True, "Sheet8!B1:J27"
ประมาณนี้ครับ
4 @R15883
ขอบคุณมากครับ....
5 @R15884
ผมได้ทดลองใช้แล้วครับ....
ของอาจารย์ yeadram ให้มาเป็นLink Data นำเข้าได้เฉพาะ Sheet แรกเท่านั้น : DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, tbMain, sql, True
นำของคุณ TTT มาประยุกต์ใช้ แบบเลือก Sheet : DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, tbMain, sql, True, "Sheet8!"
แค่เพิ่ม , "Sheet8!" ก้ได้ข้อมูลตามที่ต้องการ ทั้ง Import data และ Link data
ขอบพระคุณมากครับ...
ของอาจารย์ yeadram ให้มาเป็นLink Data นำเข้าได้เฉพาะ Sheet แรกเท่านั้น : DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, tbMain, sql, True
นำของคุณ TTT มาประยุกต์ใช้ แบบเลือก Sheet : DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, tbMain, sql, True, "Sheet8!"
แค่เพิ่ม , "Sheet8!" ก้ได้ข้อมูลตามที่ต้องการ ทั้ง Import data และ Link data
ขอบพระคุณมากครับ...
6 @R20809
สร้างให้นาฬิกาเดินตลอดเวลาในฟอรม ของ access 2010 ยังไงครับ โดยใช้ text box
เลือกแหล่งควบคุม =time() ครับ
คือ 22:10:25 มันหยุดนิ่งเฉยๆ อยากให้ เลขวินาทีเดิน ไปเรื่อยๆครับ
เลือกแหล่งควบคุม =time() ครับ
คือ 22:10:25 มันหยุดนิ่งเฉยๆ อยากให้ เลขวินาทีเดิน ไปเรื่อยๆครับ
Time: 0.2702s
