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('转换完毕');



雷达卡



京公网安备 11010802022788号







