=IF(B13=(B13-WEEKDAY(B13,3)+6),SUMIFS(I7:I13,B7:B13,"<="&B13,B7:B13,">="&B13-6),"")

Public Sub bookBfCose()
If Worksheets.Count > 3 And Left(ThisWorkbook.Name, 5) <> "Last_" Then
    Call MakeBkFolder
    ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & _
    "\backup\Last_Reports_Session_From_" & Format(Now(), "dd-mm-yyyy-hh-nn-ss") & ".xls"
End If
        ActiveWorkbook.Save
        ActiveWorkbook.Close savechanges:=False
   
    ChangeInterface True
    Application.Quit
End Sub

Do Until EOF(1)
    Line Input #1, textline
    
    text = Split(textline, DELIMITER)
    With Sheets(1)
        .Cells(i, 1).Value = Int(text(0))
        .Range("A" & i & "").NumberFormat = "0"
    End With
        i = i + 1
    
Loop

    Select Case CLng(Split(Application.Version, ".")(0))
    Case Is < 12
        strSQL = "Select F1 from [" & Sheets(2).Name & "$] where F1=""" & rstTXT(0).Value & """;"
   Case Is >= 12
        strSQL = "Select F1 from [" & Sheets(2).Name & "$] where F1=" & rstTXT(0).Value & ";"
    End Select
 Else
  GoTo 111
 End If
    
    
    'rst01.CursorLocation = 3
     rst01.Open strSQL, cn, adOpenKeyset, adLockPessimistic

    If rst01.RecordCount = 0 Then
        r = 3
        Rows(r).Insert Shift:=xlDown
        Cells(r, 1).Value = rstTXT(0).Value
    End If
    rst01.Close

Dim rstTXT As Object
Dim strSQL01 As String, GetmyFile As String
Dim sCon
Dim cn As Object    '  As ADODB.Connection
Set cn = CreateObject("ADODB.Connection") ' as New ADODB.Connection
'Dim cn As New ADODB.Connection
Set rstTXT = CreateObject("ADODB.Recordset") ' as New ADODB.Recordset
Dim myFile As String, text As Variant, textline As String, SetingF As String
Const DELIMITER As String = vbTab

i = 1
myFile = ""

ChDir ThisWorkbook.Path
myFile = Application.GetOpenFilename("Data Files (*.dat), *.dat")

'If FileExists(myFile) = True Then Open myFile For Input As #1

  
  
#If Win64 Then
#If VBA7 Then
sCon = "Driver=Microsoft Access Text Driver (*.txt, *.csv);Dbq=" & Left$(myFile, InStrRev(myFile, "\")) _
& ";Extensions=asc,csv,tab,txt;"
#Else
sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" & Left$(myFile, InStrRev(myFile, "\")) & """" _
& ";Extended Properties=""text;HDR=No;FMT=Delimited"";"
#End If
#Else
sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" & Left$(myFile, InStrRev(myFile, "\")) & """" _
& ";Extended Properties=""text;HDR=No;FMT=Delimited"";"
#End If

cn.Open sCon


If Not cn.State = 1 Then Exit Sub



'select only Empl ID
GetmyFile = Mid(myFile, InStrRev(myFile, "\") + 1)

strSQL01 = "Select Distinct F1 from [" & GetmyFile & "] group by F1;"
rstTXT.CursorLocation = 3
rstTXT.Open strSQL01, cn, adOpenKeyset, adLockPessimistic

For i = 1 To rstTXT.RecordCount
    
    MsgBox "ok", vbOKOnly

Next i
End Sub

Sub ForTable(end_rng)
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$E$" & end_rng & "")).Name = "Table1"
        'No go in 2003
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight20"
End Sub

Dim rstDAO As Object
Dim strSQL01 As String,  strSQL As String
Dim sCon$
Dim cn As Object    '  As ADODB.Connection
Dim rs1 As Object   '  As ADODB.Recordset
Dim rs31 As Object   '  As ADODB.Recordset
Set cn = CreateObject("ADODB.Connection") ' as New ADODB.Connection
'Dim cn As New ADODB.Connection
Set rstDAO = CreateObject("ADODB.Recordset") ' as New ADODB.Recordset
Set rs1 = CreateObject("ADODB.Recordset")
Set rs31 = CreateObject("ADODB.Recordset")

 With Application
        .ScreenUpdating = False
End With

sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
& ";Extended Properties=""Excel 8.0;IMEX=1;HDR=No"";"

cn.Open sCon

If Not cn.State = 1 Then Exit Function

'save current sheet name
strSQL = "[" & ActiveSheet.Name & "$]"
strSQL01 = "Select DISTINCT F1 from " & strSQL & ""
rstDAO.Open strSQL01, cn

Dim cn As Object    ' As ADODB.Connection
Dim rs1 As Object   ' As ADODB.Recordset
Set cn = CreateObject("ADODB.Connection") ' as New ADODB.Connection
Set rstDAO = CreateObject("ADODB.Recordset") ' as New ADODB.Recordset

 strSQL = "CREATE VIEW MyTableView AS SELECT DISTINCT pid FROM rstADO;"
    With cn
        .Open
        .Execute strSQL
    End With

   ' change range here
    Set rangetoexport = Worksheets("Blad1").Range("$A:$J")
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    ' change dir here
    datef = Format(Date, "dd-mm-yy")
    timef = Format(Time(), "-hh-mm-ss")
   
    Set jsonfile = fs.CreateTextFile(ActiveWorkbook.Path & "\" & datef & timef & ".json", True)