CREATE TABLE #NELIKVID (ARTIC VARCHAR(20), PRIH INT, RASH INT)
INSERT INTO #NELIKVID(ARTIC,PRIH,RASH)
SELECT a.COD_ARTIC, DATEDIFF(day,max(CASE WHEN b.TYPDOCM_PR='Р'
THEN b.DATE_PREDM ELSE 0 END),DATEADD(DAY,DATEDIFF(DAY,0,GETDATE()),0)),
DATEDIFF(day,max(CASE WHEN b.TYPDOCM_PR='П'
THEN b.DATE_PREDM ELSE 0 END),DATEADD(DAY,DATEDIFF(DAY,0,GETDATE()),0))
FROM dbname.dbo.SCL_ARTC as a, dbname.dbo.SCL_MOVE as b
WHERE (a.ID_SCLAD=b.ID_SCLAD And a.ID_SCLAD=9) AND (a.COD_ARTIC=b.NAME_PREDM) AND (b.STND_UCHET=1)
AND (a.KON_KOLCH>0) AND (select DATEDIFF(day,max(CASE WHEN b.TYPDOCM_PR='Р' 
THEN b.DATE_PREDM ELSE 0 END),DATEADD(DAY,DATEDIFF(DAY,0,GETDATE()),0)) 
FROM SCL_ARTC as a, SCL_MOVE as b)<1
GROUP BY a.COD_ARTIC
ORDER BY a.COD_ARTIC
SELECT ARTIC AS 'Артикул',
CASE WHEN PRIH<RASH THEN PRIH ELSE RASH END as 'нет движения дней'
FROM #NELIKVID WHERE PRIH > 200 AND RASH > 200

CREATE TABLE #tablica ....
INSERT INTO #tablica .....
SELECT ... FROM ... as a, ... as b
WHERE ....
GROUP BY ...
ORDER BY ...
SELECT ... FROM #tablica WHERE ....

    Workbooks.Add
    Run "Personal.xls!Макрос1"
        <...Макрос1 начинается...>
        <...сам макрос...>
        ActiveWorkbook.SaveAs FileName:= "путь\имя.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
        ActiveWindow.Close
        <...Макрос1 закончился...>
    Workbooks.Add
    Run "Personal.xls!Макрос2"
        <...Макрос2 начинается...>
        FileName = "путь\имя2.csv"
        Open FileName For Output As #1
        ...
        Close #1
        Close
        ActiveWindow.Close
        <...Макрос2 закончился...>
    Workbooks.Add
    Run "Personal.xls!Макрос3"
        <...Макрос3 начинается...>
        FileName = "путь\имя3.csv"
        Open FileName For Output As #1
        Close #1
        Close
        ActiveWindow.Close
        <...Макрос3 закончился...>
    sName = "Автоматика.xls"
•    Workbooks(sName).Close

    Workbooks.Add
    Range("A1").Select
    Run "Personal.xls!Макрос1"
    Workbooks.Add
    Range("A1").Select
    Run "Personal.xls!Макрос2"
    Workbooks.Add
    Range("A1").Select
    Run "Personal.xls!Макрос3"
    sName = "Обновление прайсов.xls"
    Workbooks(sName).Close
    sName = "Книга4.xls"
    Workbooks(sName).Close

If stroka = 1 Then ActiveChart.SetSourceData Source:=Sheets("t1").Range("A1:E1"), PlotBy:=xlRows

ActiveChart.SetSourceData Source:=Sheets("t1").Range(Cells(stroka, 1), Cells(stroka, 5)), PlotBy:=xlRows

ActiveChart.SetSourceData Source:=Sheets("t1").Range(diapaz), PlotBy:=xlRows

Sub Макрос2()
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\formula.txt", Destination:=Range("B2"))
        .Name = "formula"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1251
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierNone
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Sub ПримерИспользования()
    СсылкаНаФайл$ = "http://excelvba.ru/sites/default/files/3.jpg"
    ПутьДляСохранения$ = "C:\ПЖиВ.jpg"
    ' скачиваем файл из интернета
    DownloadFile СсылкаНаФайл$, ПутьДляСохранения$
    ' открываем скачанный файл
    CreateObject("wscript.shell").Run """" & ПутьДляСохранения$ & """"
End Sub

Function DownloadFile(ByVal URL$, ByVal LocalPath$) As Boolean
    ' Функция скачивает файл по ссылке URL$
    ' и сохраняет его под именем LocalPath$
    Dim XMLHTTP, ADOStream, FileName
    On Error Resume Next: Kill LocalPath$
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", Replace(URL$, "\", "/"), "False"
    XMLHTTP.send
    If XMLHTTP.statustext = "OK" Then
        Set ADOStream = CreateObject("ADODB.Stream")
        ADOStream.Type = 1: ADOStream.Open
        ADOStream.Write XMLHTTP.responseBody
        ADOStream.SaveToFile LocalPath$, 2
        ADOStream.Close: Set ADOStream = Nothing
        DownloadFile = True
    Else
        'MsgBox "Не удаётся скачать файл " & XMLHTTP.statustext
    End If
    Set XMLHTTP = Nothing
End Function

Set XMLHTTP = CreateObject("Microsoft.XMLHTTP";)
XMLHTTP.Open "GET", Replace("[URL=http://site.ru/files/file.zip]http://site.ru/files/file.zip[/URL]", "\", "/";), "False"
XMLHTTP.send
If XMLHTTP.statustext = "OK" Then
Set ADOStream = CreateObject("ADODB.Stream";)
ADOStream.Type = 1: ADOStream.Open
ADOStream.Write XMLHTTP.responseBody
ADOStream.SaveToFile "C:\Users\MyUser\Desktop\zagotovka\1\file.zip", 2
ADOStream.Close: Set ADOStream = Nothing
DownloadFile = True
Else
MsgBox "Не удаётся скачать файл" & XMLHTTP.statustext
End If
Set XMLHTTP = Nothing