Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/matlab/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
matlab利用activex接口自动保存excel文件_Excel_Matlab_Activex - Fatal编程技术网

matlab利用activex接口自动保存excel文件

matlab利用activex接口自动保存excel文件,excel,matlab,activex,Excel,Matlab,Activex,我有一个matlab代码。运行程序后,创建了一个文件“example2.xlsx” 现在我有了下面的代码,我希望matlab用新的“example2.xlsx”替换当前的“example2.xlsx”(自动保存而不询问我是否要替换它): 您可以将Excel应用程序对象的DisplayAlerts属性设置为false,以阻止这些对话框出现 以下是代码的简化版本: e = actxserver ('Excel.Application'); % # open Activex server filena

我有一个matlab代码。运行程序后,创建了一个文件“example2.xlsx”

现在我有了下面的代码,我希望matlab用新的“example2.xlsx”替换当前的“example2.xlsx”(自动保存而不询问我是否要替换它):


您可以将Excel应用程序对象的DisplayAlerts属性设置为false,以阻止这些对话框出现

以下是代码的简化版本:

e = actxserver ('Excel.Application'); % # open Activex server
filename = fullfile(pwd,'example2.xlsx'); % # full path required
ewb = e.Workbooks.Open(filename); % # open the file
esh = ewb.ActiveSheet;

sheet1 = e.Worksheets.get('Item', 'Sheet1');
range1 = get(sheet1,'Range', 'A1');
range1.Value = 3;

set(e, 'DisplayAlerts', 0); % # Stop dialog!

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
e.delete
e = actxserver ('Excel.Application'); % # open Activex server
filename = fullfile(pwd,'example2.xlsx'); % # full path required
ewb = e.Workbooks.Open(filename); % # open the file
esh = ewb.ActiveSheet;

sheet1 = e.Worksheets.get('Item', 'Sheet1');
range1 = get(sheet1,'Range', 'A1');
range1.Value = 3;

set(e, 'DisplayAlerts', 0); % # Stop dialog!

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
e.delete