clc
clear;
path='F:\历史全息数据_样本(2013 2014年数据)\overview_all_data';%记得改成自己的路径
%把路径path中的xlsx文件批量转换为csv文件
%counts: 被处理的文件总数

%获取路径path中的所有xlsx文件信息

if path(end) ~= '\'
    path = [path, '\'];
end
dirs = dir([path, '*.csv']);
counts = length(dirs);

%打开Excel

he = actxserver('Excel.Application');
he.DefaultFilePath = path;
he.DisplayAlerts = 0;
las='F:\历史全息数据_样本(2013 2014年数据)\所有股票\';%记得改成自己的路径
%逐个处理xlsx文件
for i = 1:counts
    disp(['正在转换文件: ', dirs(i).name]);
    tic
    hw = he.WorkBooks.Open([path, dirs(i).name]);
    [pathname, basename, extname] = fileparts(dirs(i).name);
    filename = [las, basename, '.xls'];
    hw.SaveAs(filename);
    hw.Close;
    toc
end
he.Quit;
disp('转换完毕');