ลองไปแกะดูครับ แต่ต้องไปแอด Micorsoft Excel Object Library ก่อนด้วยนะครับ

   Dim appExcel As Excel.Application
   Dim wbk As Excel.Workbook
   Dim wks As Excel.Worksheet
   Dim sOutput As String
   Dim strExportFileName As String
   
   strExportFileName = "\Sheet1.xls"
   
   sOutput = CurrentProject.Path & strExportFileName     
   Set appExcel = Excel.Application
   Set wbk = appExcel.Workbooks.Open(sOutput)
   Set wks = appExcel.Worksheets(1)

MsgBox wks.Cells(1, 1).Value


   Set wks = Nothing
   Set wbk = Nothing
   Set appExcel = Nothing

แอด Micorsoft Excel Object Library ทำยังไงครับ
ช่วยบอกวิธีด้วยครับ

ไปที่หน้า Visual Basic แล้วเลือกเมนูบาร์ที่ชื่อว่า Tools เลือก Reference
จากนั้นเลือกหา Microsoft Excel Object Library ติ๊กถูกแล้วกด OK

ว่างๆ เลยลองไปถามอากู๋ (หัวหน้าไม่อยู่... อิอิ) ดูว่ามีวิธีเขียนโค้ดใส่ Object Library ลงใน Access
แบบอัตโนมัติมั๊ย เผื่อใครจะสนใจเอาไปใช้ ไปที่นี่เลยครับ

http://msaccesstips.com/2009/03/ms-access-and-reference-library/

ขอบคุณอาจารย์มากครับ
ยังไม่ได้เลยครับ รบกวนอาจารย์ยกตัวอย่างให้ดูด้วยครับ

ยังไม่ได้!

คือไม่ได้ในขั้นตอนไหนครับ
- ขั้นตอนการเพิ่มไลบรารี่
- หรือขั้นตอนการตรวจสอบคอลัมน์ใน excel

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

ไลบรารี่ ที่ให้เพิ่มคือ ไลบรารี่ของ Excel นะครับ
มันจะขึ้นต้นด้วยคำว่า Microsoft Excel ...... ตัวนั้นแหละครับ ให้เพิ่มเข้ามา