没有合适的资源?快使用搜索试试~ 我知道了~
matlab与word,excel无缝连接.docx
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 88 浏览量
2022-11-13
00:51:47
上传
评论
收藏 33KB DOCX 举报
温馨提示
试读
3页
。。。
资源推荐
资源详情
资源评论
问题:如何将图片自动导入Excel 或 Word 文件中,换句话说,就是怎样用matlab 生成带有
图片的 Excel 和 Word 文档,对此,我分别写了下面两个小程序,并在 matlab2008a 中经过
了测试。
1. 用 matlab 生成带有图片的 Excel 文档
function ceshi_Excel
%设定测试 Excel 文件名和路径
filespec_user=[pwd '\测试.xls'];
%判断 Excel 是否已经打开,若已打开,就在打开的Excel 中进行操作,
%否则就打开 Excel
try
Excel=actxGetRunningServer('Excel.Application');
catch
Excel = actxserver('Excel.Application');
end;
%设置 Excel 属性为可见
set(Excel, 'Visible', 1);
%返回 Excel 工作簿句柄
Workbooks = Excel.Workbooks;
%若测试文件存在,打开该测试文件,否则,新建一个工作簿,并保存,文件名为测试.Excel
if exist(filespec_user,'file');
Workbook = invoke(Workbooks,'Open',filespec_user);
else
Workbook = invoke(Workbooks, 'Add');
Workbook.SaveAs(filespec_user);
end
%返回工作表句柄
Sheets = Excel.ActiveWorkBook.Sheets;
%返回第一个表格句柄
sheet1 = get(Sheets, 'Item', 1);
%激活第一个表格
invoke(sheet1, 'Activate');
%如果当前工作表中有图形存在,通过循环将图形全部删除
Shapes=Excel.ActiveSheet.Shapes;
if Shapes.Count~=0;
for i=1:Shapes.Count;
Shapes.Item(1).Delete;
end;
end;
%随机产生标准正态分布随机数,画直方图,并设置图形属性
zft=figure('units','normalized','position',...
资源评论
xxpr_ybgg
- 粉丝: 6481
- 资源: 3万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功