怎样将matlab中的数据导入到excel中-vb数据导入excel,如何将数据导入excel

使用OLE对象；
在控件中选OLD图标，再选择:Create From File（从文件建立）,直接指向您的文件即可；

可以用dlmwrite('data.xls',A) A表示数值矩阵，此命令的意思是将矩阵A中数据保存到data文件中，文件为excel。
但有时将来MATLAB数据导入到excel时出错，数据形式不自对，有时是对的，这个我遇到过，我在这个还有个方法，你可以借鉴下，分两步走，第一先zd将MATLAB数据保存到txt文档，即dlmwrite('data.txt',A) ，然后打开excel文件打开文件，将txt文档数据导入excel文件中即可。
要将数据从excel读入内存，就要把excel当成数据库。
我一般用ado的方法。具体有四步：
1、在工程->参考里将microsoft activex data object和microsoft excel xx.0 object library勾上
2、连接数据库
3、读取数据
4、关闭连接
后面三步如下程序：
Public Function init_create_conection(Data_path As String)
Dim cnn_quest_poolStr As String, SQL As String
dim cnn_quest_pool As New ADODB.Connection
dim rs_quest_pool As New ADODB.Recordset

'验证路径
If (Dir(Data_path) = "") Then
init_create_conection = 0
Exit Function
End If
'指定数据所在的路径和名称。
mySheet = "sheet1"
myWbName = Data_path
'连接工作簿
cnn_quest_poolStr = "Provider=microsoft.jet.oledb.4.0;" _
& "Extended Properties=Excel 8.0;" _
& "Data Source=" & myWbName
cnn_quest_pool.Open cnn_quest_poolStr
If (cnn_quest_pool.State <> 1) Then
init_create_conection = 0
Exit Function
End If
'连接sheet1.recordset
'设置e5a48de588b6e799bee5baa6337查询SQL语句
SQL = "select * from [" & mySheet & "$] "
rs_quest_pool.Open SQL, cnn_quest_pool, 1, adLockOptimistic
If (rs_quest_pool.State <> 1) Then
init_create_conection = 0
Exit Function
End If
rs_quest_pool.UpdateBatch adAffectAll
rs_quest_pool.Close
Set rs_quest_pool = Nothing
end sub

在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“MicrosoftExcel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。

因为EXCEL是以层次结构组织对象e69da5e6ba90e799bee5baa6e997aee7ad94330的，其对象模型中含有许多不同的对象元素。
第一层：Application对象，即Excel本身；
第二层：workbooks对象集，指Excel的工作簿文件
第三层：worksheets对象集，表示的是Excel的一个工作表；
第四层：Cells和Range对象，指向Excel工作表中的单元格。

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表

Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Open("D:\data.xls") '打开已经存在的data.xls工件簿文件
xlapp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlsheet = xlbook.Worksheets(1) '设置活动工作表''
''~~~当前工作簿的第一个表,这里也可以换成“表名”比如“Sheet1”

【数组部分自行定义】

将表中某个单元格中的值赋值给一个变量，比如数组中的一个元素
arr(1,1)=xlsheet.Range("B2").Value
……
最后关闭：
xlbook.Close

xlapp.quit
然后把三个对象 Set成 nothing