ลองใช้โค้ดข้างล่างนี้ดูครับ Sub LinkExcelSheet() Dim dbs As Database Dim tdf As TableDef Dim strLinkName As String, I As Integer, strSheet As String ' Open the Microsoft Access database. Set dbs = CurrentDb For I = 1 To 2 strLinkName = "Linked Sheet " & I strSheet = "Sheet" & I & "$" ' Create a TableDef object. Set tdf = dbs.CreateTableDef(strLinkName) ' Set the connection string to specify the source database type and the ' path to the workbook that contains the data you want to link. tdf.Connect = "Excel 8.0;DATABASE=c:\ชื่อไฟล์ Excel.xls" ' Set the SourceTableName property to the worksheet you want to access. tdf.SourceTableName = strSheet ' Append the TableDef object to the TableDefs collection to create a link. dbs.TableDefs.Append tdf Next I Set dbs = Nothing End Sub มันจะทำการ Link ไฟล์ของ Excel ทั้ง 2 Worksheet เข้ามาใน Access ให้ โดยตั้งชื่อตารางเป็น Linked Sheet 1 และ Linked Sheet 2 ลองปรับใช้ดูนะครับ ถ้าไม่ต้องการทำแบบนี้ ก็สามารถใช้คำสั่งผ่านทางเมนู File>Get External Data>Link Tables>เลือก File of Type ให้เป็น Microsoft Excel (*.xls) แล้วก็ค้นหาไฟล์ Excel เป้าหมาย จากนั้นก็ทำตามคำแนะนำในหน้าจอครับ