Matlab中使用Excel数据

% Open Excel, add workbook, change active worksheet, 

% get/put array, save, and close 

% First open an Excel Server 

%打開一個Excel操作物件

Excel = actxserver('Excel.Application'); 

%使Excel物件可見，即打開Excel視窗，實際應用時設置其為不可見的

set(Excel, 'Visible', 1); 

% Insert a new workbook 

%創建工作本組物件

Workbooks = Excel.Workbooks; 

%添加一個工作本

Workbook = invoke(Workbooks, 'Add'); 

% Make the second sheet active 

%獲取當前活躍工作本的表單組，一個工作本共有3個表單（sheets）

Sheets = Excel.ActiveWorkBook.Sheets; 

%獲取表單組中的一個表單

sheet2 = get(Sheets, 'Item', 2); 

%啟動該表單

invoke(sheet2, 'Activate'); 

% Get a handle to the active sheet 

%獲取當前活躍表單的控制碼

Activesheet = Excel.Activesheet; 

% Put a MATLAB array into Excel 

%向表單中寫入資料

A = [1 2; 3 4]; 

%設置寫到Excel中的範圍

ActivesheetRange = get(Activesheet,'Range','A1:B2'); 

%寫入

set(ActivesheetRange, 'Value', A); 

% Get back a range. It will be a cell array, 

% since the cell range can 

% contain different types of data.

%讀會資料塊

Range = get(Activesheet, 'Range', 'A1:B2'); 

%獲取資料

B = Range.value; 

% Convert to a double matrix. The cell array must contain only scalars. 

%B現在是符合矩陣，將其轉換成數值矩陣

B = reshape([B{:}], size(B)); 

% Now save the workbook 

%保存檔,可以寫絕對路徑，相對路徑總是保存在我的文件中

invoke(Workbook, 'SaveAs', 'myfile.xls'); 

% To avoid saving the workbook and being prompted to do so, 

% uncomment the following code. 

% Workbook.Saved = 1; 

% invoke(Workbook, 'Close'); 

% Quit Excel 

%退出Excel

invoke(Excel, 'Quit'); 

% End process 

%結束Excel進程

delete(Excel); 

function UserRange = ExcelRangeCalculate(data,begin)

% 計算資料矩陣所佔用的儲存格範圍

% UserRange = ExcelRangeCalculate(data,begin) 輸入參數data用來指定要寫入的

% 資料矩陣，begin用來指定寫入的初始位置（左上角位置）。

% Example：

% data = rand(5,3);

% UserRange = ExcelRangeCalculate(data,'A1')

%

if ~ischar(begin) || isempty(begin)

error('初始位置參數應為非空字串');

end

[m,n] = size(data);

begin = upper(begin);

Letter = begin(regexp(begin, '[A-Z]'));

id = begin(regexp(begin, '[0-9]'));

id = str2num(id);

if isempty(Letter)

Letter = 'A';

end

if isempty(id)

id = 1;

end

lastcol = dec2base27(base27dec(Letter)+n-1);

UserRange = [Letter,num2str(id),':',lastcol,num2str(id+m-1)];