Dim ex
Dim wb
Dim ws
set ex = createobject("Microsoft Excel")
set wb = ex.workbook.open("c:\myjob.xls")
j = wb.worksheets
if j > 1 then
msgbox "ไฟล์นี้มีมากกว่า 1 ชีท")
end if
wb.close
set wb = nothing
set ex = nothing


ประมาณนี้ครับ ผมเขียนสด ไม่รู้เขียนตก สะกดผิดบ้างหรือเปล่านะ ลองเอาไป เช็คไปตรวจซ้ำอีกทีครับ

อาจารย์ครับ
ทดลองนำไปใช้แล้ว ขึ้นแถบสีเหลืองที่บรรทัด
set ex = createobject("Microsoft Excel")
ดังภาพที่แนบมาพร้อมนี้

ขออภัยครับ (ผมบอกแล้วว่าเขียนสด อิอิ)
ลองเช็คแล้ว เขียนผิดเขียนตก ไปหลายที่เหมือนกัน

    Dim ex
    Dim wb
    Set ex = CreateObject("Excel.application")    
    Set wb = ex.Workbooks.Open("c:\transcript.xlsx")
    MsgBox wb.Worksheets.Count
    wb.Close
    Set wb = Nothing
    Set ex = Nothing

เอาใหม่ เอาประมาณนี้นะครับ ลองดู

ลองแล้วครับอาจารย์
ขึ้นข้อความดังภาพครับ
รบกวนอาจารย์อีกครั้งครับ

ว้า อีกแล้วเหรอเนี่ย

งั้นไปเพิ่ม library ให้มันเลยก็แล้วกัน
ในหน้าต่าง VBA ไปที่เมนู Tools>references .. หาในลิสต์เอา ติ๊กเลือก microsoft excel .....
ลองดูอีกทีครับ

ยาฮู้วววว ใช้ Opera แล้วคล่องมือดีจัง (เพิ่งโหลดมาติดตั้ง เบื่อ FF, CHROME, IE แล้ว อิอิ อยากบอก)

ผมลองทำตามที่อาจารย์แนะนำ โดย
ไปที่เมนู Tools>references และ ติ๊กเลือก microsoft excell 14.0 object library
และลองใช้โค็ดเดิม ปรากฏผลดังภาพ
คงต้อง รบกวนอาจารย์อีกครั้งครับ