' Функция "собирает" xlsx-файл по пути 
переданным параметром из временной папки
Private Sub BuildData(ByVal sPathFolderData As String)
' Сборка файла - 7z.exe -tzip a c:\test.xlsx c:\22\*.* -r
Dim ProcessID As Long
Dim ProcessHandle As Long

On Error GoTo labErr
' Если в пути пробелы - окавычиваем путь
If InStr(1, sPathFolderData, " ", vbTextCompare) <> 0 Then
    sPathFolderData = """" & sPathFolderData & """"
End If
ProcessID = Shell("7z -tzip a " & sPathFolderData & " " & sPathTempFolder & "\*.* -r", vbHide)
ProcessHandle = OpenProcess(SYNCHRONIZE, True, ProcessID)
WaitForSingleObject ProcessHandle, -1&
CloseHandle ProcessHandle
DoEvents
Exit Sub
labErr:
ErrorOutput "Ошибка при сборке " & sPathFolderData & " " & Err.Description

End Sub