Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1219472
  • 博文数量: 124
  • 博客积分: 5772
  • 博客等级: 大校
  • 技术积分: 1647
  • 用 户 组: 普通用户
  • 注册时间: 2010-09-27 10:39
文章分类

全部博文(124)

文章存档

2020年(1)

2019年(1)

2018年(5)

2017年(2)

2016年(17)

2015年(3)

2014年(7)

2013年(11)

2012年(13)

2011年(30)

2010年(34)

分类: Windows平台

2014-09-01 07:56:20

以下是一段简单的代码

  1. %==========================================================================
  2. %Name: xls_w.m,
  3. %Desc: 对EXCEL文件的写操作
  4. %Parameter:
  5. %Return:
  6. %Author: yoyoba(stuyou@126.com)
  7. %Date: 2014-9-1
  8. %Modify: 2014-9-1
  9. %==========================================================================
  10. clear
  11. getfilename=inputdlg('请输入文件名(包括路径),例如:D:\mydata\data.xls');
  12.                    %输入要写入的XLS文件名称和路径
  13. a1={'第一列'}; %列标题
  14. b1={'第二列'}; %列标题
  15. c1={'第三列'}; %列标题
  16. data1=1:10;
  17. data2=11:20;
  18. data3=21:30;
  19. filename=getfilename{1,1}; %获取字符形式的文件名和路径
  20. s1=xlswrite(filename,a1,'sheet1','A1'); %把第一列标题写入A1单元格
  21. s2=xlswrite(filename,b1,'sheet1','B1');
  22. s3=xlswrite(filename,c1,'sheet1','C1');
  23. data1=data1'; %按列写入,需要对原始data转置
  24. data2=data2';
  25. data3=data3';
  26. s4=xlswrite(filename,data1,'sheet1','A2');
  27. s5=xlswrite(filename,data2,'sheet1','B2');
  28. s6=xlswrite(filename,data3,'sheet1','C2');
  29. if s1==1 && s2==1 && s3==1&&s4==1&& s5==1&&s6==1
  30.     str1='数据已经成功保存到:';
  31.     str=[str1,filename];
  32.     msgbox(str);
  33. else
  34.     msgbox('保存数据错误,请检查!');
  35. end
运行结果

xls_w.rar
阅读(1789) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~