matlab 数据如何写入excel指定位置?
matlab数据如何写入excel指定位置?循环每次生成一个数据,指定存储在A1,下一次要存储在A2,能否用循环控制range呢?没看明白。不能运行...
matlab 数据如何写入excel指定位置?
循环每次生成一个数据,指定存储在A1,下一次要存储在A2,能否用循环控制range呢?
没看明白。不能运行 展开
循环每次生成一个数据,指定存储在A1,下一次要存储在A2,能否用循环控制range呢?
没看明白。不能运行 展开
5个回答
展开全部
在这个目录C:\Program Files\MATLAB\R2009a\下建一个名为Area.xls的表格,关闭。
注意一定要让扩展名显示 然后再命令窗口运行
header=cell(1,2);
header{1,1}='filename';header{1,2}='Lissajous figure Area';
xlswrite('C:\Program Files\MATLAB\R2009a\Area.xls',header,'A','A1:B1');
Area1=0;ki=1
for i=1:5
Area1=Area1+i;ki=ki+1;
cellnames=['A',num2str(ki),':B',num2str(ki)]
tileH=['c25',num2str(ki)];
data{1,1}=tileH;data{1,2}=Area1;
xlswrite('C:\Program Files\MATLAB\R2009a\Area.xls',data,'A',cellnames);
end
注意一定要让扩展名显示 然后再命令窗口运行
header=cell(1,2);
header{1,1}='filename';header{1,2}='Lissajous figure Area';
xlswrite('C:\Program Files\MATLAB\R2009a\Area.xls',header,'A','A1:B1');
Area1=0;ki=1
for i=1:5
Area1=Area1+i;ki=ki+1;
cellnames=['A',num2str(ki),':B',num2str(ki)]
tileH=['c25',num2str(ki)];
data{1,1}=tileH;data{1,2}=Area1;
xlswrite('C:\Program Files\MATLAB\R2009a\Area.xls',data,'A',cellnames);
end
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你可以每次循环把这些数据先放到一个矩阵里 然后一起写入xls中,xlswrite(Data,‘.xls’,‘A1:B2’);这里A1:B2就是制定区域
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用EXCEL中的VBA可以实现
Sub CzName()
Dim XlSheet As Worksheet
Dim MCol As Integer, MRow As Integer
Dim MenName As String, QzName As String
Set XlSheet = ActiveSheet '定义当前工作表为活动工作表
'查找名字所在列号,并选中该字段
For Each cel In XlSheet.UsedRange.Rows(1).Cells
If cel.Value = "名字" Then
MCol = cel.Column
XlSheet.Rows(1).Columns(MCol).Select
End If
Next
'弹出对话框输入要查找的名字
MenName = InputBox("请输入您要查找的名字:", , "")
For Each sht In XlSheet.UsedRange.Columns(MCol).Cells
QzName = sht.Value
If QzName = MenName Then
MRow = sht.Row
XlSheet.Rows(MRow).Columns(MCol).Select
End If
Next
'查找不以输入信息时系统自动增加一行将输入信息赋值给单元格
If ActiveCell.Value <> MenName Then
XlSheet.Cells(XlSheet.UsedRange.Rows.Count + 1, MCol).Value = MenName
End If
End Sub
Sub CzName()
Dim XlSheet As Worksheet
Dim MCol As Integer, MRow As Integer
Dim MenName As String, QzName As String
Set XlSheet = ActiveSheet '定义当前工作表为活动工作表
'查找名字所在列号,并选中该字段
For Each cel In XlSheet.UsedRange.Rows(1).Cells
If cel.Value = "名字" Then
MCol = cel.Column
XlSheet.Rows(1).Columns(MCol).Select
End If
Next
'弹出对话框输入要查找的名字
MenName = InputBox("请输入您要查找的名字:", , "")
For Each sht In XlSheet.UsedRange.Columns(MCol).Cells
QzName = sht.Value
If QzName = MenName Then
MRow = sht.Row
XlSheet.Rows(MRow).Columns(MCol).Select
End If
Next
'查找不以输入信息时系统自动增加一行将输入信息赋值给单元格
If ActiveCell.Value <> MenName Then
XlSheet.Cells(XlSheet.UsedRange.Rows.Count + 1, MCol).Value = MenName
End If
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
按说是可以的,你把数据发过来,我写个程序。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询