ลองทำแบบนี้ได้ครับ
ใช้ LINE Business ID https://manager.line.biz/
แล้วทำ https://developers.line.biz/ นำค่ามาใส่ใน code นี้ครับ

Sub SendLineMessage()
    Dim http As Object
    Dim url As String
    Dim postData As String
    Dim channelAccessToken As String
   
    ' กำหนด URL สำหรับ LINE API
    url = "https://api.line.me/v2/bot/message/push"
   
    ' ใส่ Channel Access Token ของคุณ
    channelAccessToken = "Channel access token (long-lived)"
   
    ' JSON Data สำหรับ Push Message
    postData = "{""to"":""Your user ID""," & _
               """messages"":[{""type"":""text"",""text"":""Hello from VBA!""}]}"

    ' สร้าง HTTP Request
    Set http = CreateObject("Microsoft.XMLHTTP")
   
    ' เปิดการเชื่อมต่อและกำหนด Method เป็น POST
    http.Open "POST", url, False
   
    ' ตั้งค่า Request Header
    http.setRequestHeader "Content-Type", "application/json"
    http.setRequestHeader "Authorization", "Bearer " & channelAccessToken
   
    ' ส่งข้อมูล JSON
    http.Send postData
   
    ' ตรวจสอบสถานะการส่งข้อมูล
    If http.Status = 200 Then
        MsgBox "Message sent successfully!", vbInformation
    Else
        MsgBox "Error: " & http.Status & " - " & http.responseText, vbCritical
    End If
   
    ' ปิด Object
    Set http = Nothing
End Sub


ลองค้นหาข้อมูลการทำ วิธีเปิดใช้งาน Messaging API ให้กับ LINE OA ไม่ให้มีปัญหาในอนาคต จะมีวิธีทำขั้นตอนนี้

ขอดูภาพที่ใช้หน้าไหนแล้วมี Error นี่หน่อยครับคิดตามมองภาพไม่ออก

Dim ctl As Control
For Each ctl In Me.Controls
    If (ctl.ControlType = acTextBox) Then
        ctl.Value = Null
    End If
Next ctl

ลองใช้แบบนี้ครับ

DoCmd.TransferSpreadsheet _
        TransferType:=acImport, _
        SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _
        TableName:="myNewTable", _
        FileName:="C:\Users\Gord\Desktop\foo.xlsx", _
        HasFieldNames:=True

ที่มา :
https://stackoverflow.com/questions/34956548/import-excel-into-access-get-column-headers-dynamically

Windows อะไรครับ Office Version ไหน
ของผมเทสกับ Windows 10 , Office 2016 ก็ได้นะ ของผมสร้างไว้ที่นี่ครับ

ลองแบบนี้
DMax("norec","QueryName", "date >= " & Trim(Str(Year(strDate))) & "/1/1" & " and date <= " & Trim(Str(Year(strDate))) & "/12/31" & "")

เพิ่มเติม :)

https://ddc.moph.go.th/covid19-dashboard/?fbclid=IwAR2bte6_n8K-9rtynOiLsyRlb9nb-SKzANssssxR7yp_Rc_SHUsLeX0C-EY

ไปเห็นมาที่นี่ก็ใช้นะครับ เชื่อมต่อได้หลากหลายดาต้า
ส่วนผมใช้แสดงข้อมูล speed downtime , temp , on/off เครื่องจักร์ดึงดาต้าจาก ms sql server ที่ถูกส่งมาแบบ real time โดยทำที่  Tableau Desktop + Database ได้รายงานแล้ว Upload ขึ้น Server Tableau ดูผ่าน Web ได้เลย

ลองดูไฟล์นี้ครับผมลองทำตามที่แจ้งไป