错误使用 xlswrite输入参数太多。

% 定义文本文件所在的目录
folder = 'D:\数据转excel'; % 修改为你的文本文件目录
 
% 获取文件夹中所有.txt文件
txtFiles = dir(fullfile(folder, '*.txt'));
 
% 创建一个空的Excel文件
excelFile = fullfile(folder, 'database.xlsx');
if exist(excelFile, 'file')
    delete(excelFile);
end
fid = fopen(excelFile, 'w');
fclose(fid);
 
% 遍历每个文本文件，并将它们写入Excel文件
for k = 1:length(txtFiles)
    txtFile = fullfile(folder, txtFiles(k).name);
    data = readtable(txtFile);
    
    % 将表写入Excel文件的新工作表中
    xlswrite(excelFile, data, k, 'Sheet', k);
end