编写一个MATLAB程序，弹出选择框选择一个excel文件，从该文件的Sheet1的中选取C5到S21的数值，通过B5到B21和C4到S4作为插值变量，然后将这些数据扩展为一个新的33x33矩阵，并将结果写入Sheet2？

在MATLAB中，你可以使用`uigetfile`函数弹出文件选择框，`xlsread`函数读取Excel文件，以及`meshgrid`、`interp2`和`writetable`等功能来完成这个任务。以下是一个示例程序：

% 弹出文件选择框
[filename, pathname] = uigetfile({'*.xlsx'}, 'Select an Excel file');
if isequal(filename, 0) || isequal(pathname, 0) % 用户取消选择
    return
end
file = fullfile(pathname, filename);

% 读取Sheet1的特定范围
sheetName = 'Sheet1'; % 工作表名称
range = 'C5:S21'; % 需要的单元格范围
rawData = xlsread(fullfile(file, sheetName), range);

% 检查数据维度并转换为矩阵
[numRows, numCols] = size(rawData);
data = reshape(rawData, [numCols, numRows]);

% 设置插值变量
xBounds = rawData(:, 'B5:B21'); % B列数据
yBounds = rawData('C4:S4'); % C列数据

% 创建网格
[xGrid, yGrid] = meshgrid(yBounds, xBounds);
[x, y] = squeeze([xBounds(:), yBounds(:)]); % 展开为一维向量

% 插值扩展数据
zNew = interp2(x, y, data, xGrid, yGrid, 'linear');

% 检查新矩阵是否为33x33大小，如果不是则调整
if size(zNew) ~= [33, 33]
    error('Output matrix does not have the expected dimensions');
end

% 判断Sheet2是否存在，如果不存在则创建
sheetNameNew = 'Sheet2'; % 新工作表名称
if ~isSheet(fullfile(file, sheetNameNew))
    newSheet = addsheet(file);
end

% 将结果写入新的Sheet2
newData = table(zNew, 'VariableNames', {'InterpolatedValues'});
writetable(newData, fullfile(file, sheetNameNew), 'WriteMode', 'append');

% 显示消息
disp(['Results saved to Sheet2 in ', fullfile(pathname, filename)]);