Access query缓存统计信息和最佳执行计划，以便引擎优化UNION+联接。尽管如此，请使用从.SQL文件读取路由或将SQL字符串保存在Excel单元格中，并引用StrQuery=WorksheetsmySheet.RangeA1。需要说明的是，此解

---

Access query缓存统计信息和最佳执行计划，以便引擎优化UNION+联接。尽管如此，请使用从.SQL文件读取路由或将SQL字符串保存在Excel单元格中，并引用StrQuery=WorksheetsmySheet.RangeA1。需要说明的是，此解决方案显示了两种方法：1从.sql读取，2检索存储访问查询。

  ID      Date       Timestamp    Time Event Type   Time Event Type Desc.   ...
 ----- ----------- ------------- ----------------- ----------------------- -----
  123   10/5/2020    8:05:00 AM          P10               Clock In         ...
  123   10/5/2020   11:00:00 AM          P15               Meal Start       ...
  123   10/5/2020   11:30:00 PM          P25               Meal End         ...
  123   10/5/2020    6:30:00 PM          P20               Cock Out         ...
  ...      ...          ...              ...                 ...                      

  ID      Date      Scheduled Start   Scheduled End   ...   
 ----- ----------- ----------------- --------------- -----
  123   10/5/2020      8:00:00 AM      6:00:00 PM     ...
  123   10/6/2020     10:00:00 AM      4:00:00 PM     ...
  123   10/7/2020      9:00:00 AM      4:00:00 PM     ...
  123   10/8/2020     12:00:00 AM     12:00:00 AM     ...
  123   10/9/2020     12:00:00 PM      7:00:00 PM     ...
  124   10/5/2020      9:00:00 AM      4:00:00 PM     ...
  ...      ...            ...             ...       

sql_query = _
        "SELECT [a].[ID], FORMAT([a].[Date], 'mm/dd/yyyy'), " & _
            "FORMAT([b].[Scheduled Start], 'hh:mm:ss AM/PM'), " & _
            "FORMAT(MIN(CDATE([a].[Timestamp])),'hh:mm:ss AM/PM') AS [Clock In Time], " & _
            "FORMAT([b].[Scheduled End], 'hh:mm:ss AM/PM'), " & _
            "FORMAT(MAX(CDATE([a].[Timestamp])),'hh:mm:ss AM/PM') AS [Clock Out Time] " & _
        "FROM [CLOCKINREPORT#csv] AS [a] " & _
        "LEFT JOIN [SCHEDULEREPORT#csv] AS [b] " & _
        "ON [a].[ID] = [b].[ID] AND [b].[Date] = [a].[Date] " & _
        "WHERE ([a].[Date] BETWEEN #" & Format(sWeekPer, "yyyy-mm-dd") & "# AND #" & Format(eWeekPer, "yyyy-mm-dd") & _
            "#) AND ([a].[Time Event Type] = 'P10' OR [a].[Time Event Type] = 'P20')" & _
        "GROUP BY [a].[ID], [a].[Date], [b].[Scheduled Start], [b].[Scheduled End] "

  ID      Date      Scheduled Start   Clock In Time   Scheduled End    Clock Out Time   ...   
 ----- ----------- ----------------- --------------- ---------------  ----------------
  123   10/5/2020     8:00:00 AM       8:05:00 AM      6:00:00 PM        6:30:00 PM     ...
  ...      ...            ...             ...             ...               ...

  ID      Date      Scheduled Start   Clock In Time   Scheduled End    Clock Out Time   ...   
 ----- ----------- ----------------- --------------- ---------------  ----------------
  123   10/5/2020     8:00:00 AM       8:05:00 AM      6:00:00 PM        6:30:00 PM     ...
  123   10/6/2020    10:00:00 AM          NULL         4:00:00 PM           NULL        ...
  ...      ...            ...             ...             ...               ...