進口EXCELL數據到MS Access表

Question

IHAVE的EXCELL sheeet至極由程序產生這樣

我想導入成片的MS Access programme.how通過過濾數據來獲得這些數據輸入到相關的表格。

| DeptNo | DeptName | =>（部門表）

| StaffNo | StaffName | =>（staff table）

|部門編號|員工編號|工作日|周| =>（考勤表）

Answer 1

可以編寫一個程序概括爲 -

Revised on 3/25 late 
Dim WeAreInWorkDates As String 

For each row in worksheet 

    If ColA.value = Dept row then 
     WeAreInWorkDates = "NO" 'reset flag to false 
     get values 
     if these values don't already exist in DeptTable then 
      Insert new row into DeptTable 
     endif 

    elseIf ColA.value = Staff row then 
     WeAreInWorkDates = "NO" 'reset flag to false 
     get values 
     if these values don't already exist in StaffTable then 
      Insert new row into StaffTable 
     endif 

    elseIf ColA.value = "WorkDate" 
     bypass row 
     WeAreInWorkDates = "YES" ' set flag 

    elseIf ColA.value = "Summary" 
     bypass row 
     WeAreInWorkDates = "NO" 'reset flag to false 

    elseIf ColA.value = blanks 
     bypass row 

    elseIf WeAreInWorkDates = "YES" then   
     'get values from the row into local variables 
     Dim xxx 
     xxx = myXLS.Cells(nRow,nCol) ... etc 
     ' Prevent double posting of the XLS into the MDB tables 
     'if these values don't exist in AttendanceTable then 
     SET rst = db(Select * From AttendanceTable Where atKey = xxx(i.e. myLocalVars)) 
     if rst.BOF and rst.EOF then ' rst is empty, ergo not yet posted 
      Insert row in AttendanceTable 
     endif 

    else 
     display that we have an unknown row 
    endif