ActiveX를 사용하여 Excel에서 Matlab으로 가져 오기

Question

대량의 파일을 처리하는 데 많은 시간이 걸리기 때문에 matlab에 .xls 파일 가져 오기를 최적화해야합니다. 현재 xlsread 스크립트는 다음과 같습니다.

scriptName = mfilename('fullpath'); 
[currentpath, filename, fileextension]= fileparts(scriptName);  
xlsnames = dir(fullfile(currentpath,'*.xls')); 
xlscount = length(xlsnames); 
xlsimportdata = zeros(7,6,xlscount); 

for k = 1:xlscount 
xlsimport = xlsread(xlsnames(k).name,'D31:I37'); 
xlsimportdata(:,1:size(xlsimport,2),k) = xlsimport; 
end 

처리가 필요한 약 10k 개의 파일이 처리됩니다. 현재 워크 스테이션에서 처리되는 파일 당 2 초, 약 5 시간 30 분이 소요됩니다.

나는 ActiveX가이 목적을 위해 사용될 수 있지만, 현재의 프로그래밍 기술을 훨씬 뛰어 넘으며 다른 곳에서 해결책을 찾을 수 없다는 것을 읽었습니다. 이걸 만드는 방법에 대한 도움을 주시면 감사하겠습니다.

ActiveX (또는 다른 제안 된 방법)를 사용하여 간단하게 수행 할 수있는 경우, 현재 'xlsnames (k, 1) .name'및 'xlsnames'에서 가져온 셀 D5 및 G3의 데이터에도 관심이 있습니다. xlsnames (K, 1) .date '

편집 : 솔루션

% Get path to .m script 
scriptName = mfilename('fullpath'); 
[currentpath, filename, fileextension]= fileparts(scriptName); 

% Generate list of .xls file data 
xlsnames = dir(fullfile(currentpath,'*.xls')); 
xlscount = length(xlsnames); 
SampleInfo = cell(xlscount,2); 
xlsimportdata = cell(7,6,xlscount); 

% Define xls data ranges to import 
SampleID = 'G3'; 
SampleRuntime = 'D5'; 
data_range = 'D31:I37'; 

% Initiate progression bar 
h = waitbar(0,'Initiating import...'); 

% Start actxserver 
exl = actxserver('excel.application'); 
exlWkbk = exl.Workbooks; 

for k = 1:xlscount 

    % Restart actxserver every 100 loops due limited system memory 
    if mod (k,100) == 0 
     exl.Quit 
     exl = actxserver('excel.application'); 
     exlWkbk = exl.Workbooks; 
    end 

    exlFile = exlWkbk.Open([dname filesep xlsnames(k).name]); 
    exlSheet1 = exlFile.Sheets.Item('Page 0'); 

    rngObj1 = exlSheet1.Range(SampleID); 
    xlsimport_ID = rngObj1.Value; 

    rngObj2 = exlSheet1.Range(SampleRuntime); 
    xlsimport_Runtime = rngObj2.Value; 

    rngObj3 = exlSheet1.Range(data_range); 
    xlsimport_data = rngObj3.Value; 

    SampleInfo(k,1) = {xlsimport_ID}; 
    SampleInfo(k,2) = {xlsimport_Runtime}; 
    xlsimportdata(:,:,k) = xlsimport_data; 

    % Progression bar updater 
    progress = round((k/xlscount) * 100); 

    importtext = sprintf('Importing %d of %d', k, xlscount); 
    waitbar(progress/100,h,sprintf(importtext)); 
    disp(['Import progress: ' num2str(k) '/' num2str(xlscount)]); 

end 
%close actxserver 
exl.Quit 

% Close progression bar 
close(h) 

Answer 1

이 사용 해보세요를 반영하기 위해 업데이트되었습니다. 저는 엑셀 엑셀 전문가가 아닙니다. 그러나, 내 작은 양의 테스트 XLS 파일 (3) 나를 위해이 작동합니다. 나는 결코 closeexlWkbk이 아니므로 메모리 사용량이 건물인지 또는 자동으로 정리 된 경우 자동으로 지워지는지 알고 있습니다. 유망한 것으로 보이는 거의 2.5 배의 속도 증가를보고 있습니다.

>> timeit(@getSomeXLS) 
ans = 
    1.8641 

>> timeit(@getSomeXLS_old) 
ans = 
    4.6192 

내가 얼마나 궁금해하니 많은 수의 엑셀 시트에이 의견이 있으면 의견을 남겨주세요.

function xlsimportdata = getSomeXLS() 

scriptName = mfilename('fullpath'); 
[currentpath, filename, fileextension]= fileparts(scriptName); 
xlsnames = dir(fullfile(currentpath,'*.xls')); 
xlscount = length(xlsnames); 
xlsimportdata = zeros(7,6,xlscount); 
exl = actxserver('excel.application'); 

exlWkbk = exl.Workbooks; 
dat_range = 'D31:I37'; 

for k = 1:xlscount 
    exlFile = exlWkbk.Open([currentpath filesep xlsnames(k).name]);  
    exlSheet1 = exlFile.Sheets.Item('Sheet1'); %Whatever your sheet is called. 
    rngObj = exlSheet1.Range(dat_range); 
    xlsimport = cell2mat(rngObj.Value); 
    xlsimportdata(:,:,k) = xlsimport; 
end 
exl.Quit