Excel มีกี่ Sheet
กระทู้เก่าบอร์ด อ.Yeadram

 2,276   1
URL.หัวข้อ / URL
Excel มีกี่ Sheet

อยากรู้ว่า Excel ที่ต้องการ Import มีกี่ Sheet ต้องเขียน Code อย่างไรครับ

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R00832
เป็นผมจะเขียนเป็นฟังก์ชั่นครับ
- เพิ่มไลบรารี่ excel
- สร้างออปเจ็ค excel.application
- สั่งออปเจค ให้เปิด workbook อันนั้นมา
- แล้วค่อยสั่งนับชีท

Dim ex as excel.application
dim wk as wookbook
set ex=createobject("Excel.Application")
set wk = ex.workbook.open(.............)
j = wk.sheets.count

ประมาณนี้ครับ อันนี้ร่างสดผ่านเว็บเลยนะครับ ยังไม่ได้ตรวจทานผ่าน VBA ดีนัก ลองเอาไปเขียนผ่าน VBA ดูนะครับ ถ้าเพิ่มไลบรารี่เข้ามาแล้ว มันจะมี autolisting พวก พร็อพเพอตี้หรือเมธอด ของออปเจคให้ จะได้เขียนง่ายครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2789s