Excel+Link实现Excel与Matlab混合编程(3)

使用mlopen（）函数启动Matlab，

使用mlevalstring(\载入matlab自带的数据文件census，其中包含矩阵cdate和pop。 使用mlgetmatrix(\，\，将Matlab空间的矩阵cdata写入到工作表中以E1开始的位置； mlgetmatrix(\，\；将Matlab空间的矩阵pop写入到工作表中以F1开始的位置； 运行结果如下图所示：

mlputmatrix(\，E1:E21) mlputmatrix(\，F1:F21)

将E1到E21中的数据以及F1到F21中的数据分别写入到Matlab空间的矩阵变量x和y中。 mlevalstring(\mlevalstring(\，s2]=polyfit(z，y，2)\mlevalstring(\，de12]=polyval(p2，z，s2)\根据所给的数据拟合多项式并进行偏差计算。 mlevalstring(\，y，'+'，x，pop2，'g-'，… x，pop2+2*del2，'r:'，x，pop2-2*del2，'r:')\

绘出离散点、拟合曲线图及偏差曲线图，结果如下图示：

mlclose（）； 关闭Matlab。

例2：在宏中使用Excel Link

新建一个Excel工作表，打开Visual Basic编辑器，操作如下图示：

然后在工程管理器中插入模块，如下图：

在模块代码区域写下如下代码，如下图：

Function excellinktest() MLOpen

mlevalstring \mlgetmatrix \， \mlgetmatrix \， \

mlputmatrix \， Range(\mlputmatrix \， Range(\Matlabrequest

mlevalstring \mlevalstring \，s2]=polyfit(z，y，2)\mlevalstring \，del2]=polyval(p2，z，s2)\

mlevalstring \，y，'+'，x，pop2，'g-'，x，pop2+2*del2，'r:'，x，pop2-2*del2，'r:')\End Function

选中模块1，在“工具”菜单，“引用”选项，如下图示。

弹出引用对话框，选择Excel Link，如下图:

确定后，即可运行该程序，结果与例1相同。