Sub Макрос1()
'
' Макрос1 Макрос
'

'
    With ActiveWorkbook.Connections("192.168.10.3_SQL2012 mfc-project ActionTypes") _
        .OLEDBConnection
        .BackgroundQuery = True
        .CommandText = Array( _
       "SELECT CONVERT(date,ac.dt) AS дата, --убрал часы и минуты из DATETIME ac.customer AS Заявитель, srv.caption AS услуга," & _
    "org.full_caption AS ОГВ,tip.caption AS тип FROM dbo.Actions AS ac, dbo.Services AS srv, dbo.Organizations AS org, dbo.ActionTypes AS tip" & _
    "WHERE ac.is_deleted = 'false' AND srv.ID = ac.service_id AND org.ID = srv.org_id AND tip.ID = ac.type_id AND ac.customer like '" _
    & [A1].Value & _
    "' GROUP BY CONVERT(date,ac.dt)," & _
    "srv.caption , org.full_caption, tip.caption, ac.customer "
        .CommandType = xlCmdSql
        .Connection = Array( _
        "OLEDB;Provider=SQLOLEDB.1;Password=read;Persist Security Info=True;User ID=readonly;Initial Catalog=mfc-project;Data Source=192.168.10" _
        , _
        ".3\SQL2012;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=ADMIN;Use Encryption for Data=False;T" _
        , "ag with column collation when possible=False")
        .RefreshOnFileOpen = False
        .SavePassword = True
        .SourceConnectionFile = ""
        .SourceDataFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
    End With
    With ActiveWorkbook.Connections("192.168.10.3_SQL2012 mfc-project ActionTypes")
        .Name = "192.168.10.3_SQL2012 mfc-project ActionTypes"
        .Description = ""
    End With
    ActiveWorkbook.RefreshAll
End Sub

SELECT
CONVERT(date,ac.dt) AS дата, --убрал часы и минуты из DATETIME
ac.customer AS Заявитель,
srv.caption AS услуга, 
org.full_caption AS ОГВ, 
tip.caption AS тип
FROM dbo.Actions AS ac, dbo.Services AS srv, dbo.Organizations AS org, dbo.ActionTypes AS tip
WHERE
ac.is_deleted = 'false'
AND
srv.id = ac.service_id
AND
org.id = srv.org_id
AND 
tip.id = ac.type_id
AND
ac.customer like '?'
GROUP BY CONVERT(date,ac.dt),
srv.caption ,
org.full_caption,
tip.caption ,
ac.customer