Генератор СМО

function optiwrite(OFQM, fname, shname)
nFlows = size(OFQM)[3]    
XLSX.openxlsx(fname, mode="w") do xf
    sheet_name1 = string(shname, "1")
    XLSX.rename!(xf[1], sheet_name1)
    data1 = OFQM[:, :, 1]
    for i in 1:size(data1, 1)
        for j in 1:size(data1, 2)
            xf[1][i, j] = data1[i, j]
        end
    end
    
    for n in 2:nFlows
        sheet_name = string(shname, "$n")
        sheet = XLSX.addsheet!(xf, sheet_name)
        data = OFQM[:, :, n]
        for i in 1:size(data, 1)
            for j in 1:size(data, 2)
                sheet[i, j] = data[i, j]
            end
        end
    end
end
end