Matlab：色のセルがExcelで色付けされたときに奇妙なファイルが作成されました

Question

このコードは、与えられたrgbでJ1セルの色を付ける必要があります。

row_number_excel = 1; 
representative_red = 205; 
representative_green = 211; 
representative_blue = 201; 
headers = {'J'}; 
rgb = [representative_red representative_green representative_blue]; %# if you have 0 to 1 values  multiply by 255 and round 
clr = rgb * [1 256 256^2]'; %# convert to long number Excel understands 
pwd = 'D:\grapes\main'; 
e = actxserver ('Excel.Application'); % open Activex server 
filename = fullfile(pwd,'example.xls'); %# full path required 
if exist(filename,'file') 
    ewb = e.Workbooks.Open(filename); %# open the file 
else 
    error('File does not exist.') %# or create a new file 
end 
esh = ewb.ActiveSheet; 
for c = 1:row_number_excel 
    str = num2str(row_number_excel); 
    esh.Range(strcat(headers{1},str)).Interior.Color = clr; 
end 
ewb.Save 
ewb.Close(false) 
e.Quit 

このコードを実行しようとしましたが、セルは指定されたrgbとは異なる色で塗りつぶされました。 2回目にコードを実行すると、ディレクトリに「2E60F720」という名前のファイルが作成されました。そのタイプは 'file'です。その後、プログラムが実行され、実行され、タスクマネージャーが「EXCEL.EXE」を停止するまで停止しませんでした。 MATLABは私にこのことを書いた後：

"??? Error: The remote procedure call failed. 
Error in ==> test1 at 212 ewb. 
Close(false);" 

を誰かが私を助けてくださいことができますか？ 私は画面をキャプチャしました。左側では、プログラムはまだ実行されています、右側では、これは私のディレクトリです。私は作成されたファイルに印をつけました。 ありがとうございます！私の質問を解決し

解決策は以下のとおりです。@yukする

row_number_excel = 1; 
representative_red = 205; 
representative_green = 211; 
representative_blue = 201; 
headers = {'J'}; 
rgb = [representative_red representative_green representative_blue]; %# if you have 0 to 1 values   multiply by 255 and round 
clr = rgb * [1 256 256^2]'; %# convert to long number Excel understands 
pwd = 'D:\grapes\main'; 
e = actxserver ('Excel.Application'); % open Activex server 
filename = fullfile(pwd,'example.xls'); %# full path required 
if exist(filename,'file') 
    ewb = e.Workbooks.Open(filename); %# open the file 
else 
    error('File does not exist.') %# or create a new file 
end 
esh = ewb.ActiveSheet; 
for c = 1:row_number_excel 
    str = num2str(row_number_excel); 
    esh.Range(strcat(headers{1},str)).Interior.Color = clr; 
end 
xlWorkbookDefault = 51; %# it's the Excel constant, not sure how to pass it other way 
ewb.SaveAs(fullfile(pwd,'example2'), xlWorkbookDefault) 
ewb.Close(false) 
e.Quit 

感謝！

Answer 1

トラブルラインはファイルをewb.Saveで保存しています。

ファイルは実際には古い形式（Excel 2003）で、実際のRGBカラーをサポートしているかどうかはわかりませんが、その理由が考えられます。

ファイルを新しい名前と最新の形式で保存することをおすすめします。

xlWorkbookDefault = 51; %# it's the Excel constant, not sure how to pass it other way 
ewb.SaveAs(fullfile(pwd,'example2'), xlWorkbookDefault) 
ewb.Close(false) 
e.Quit 

の