将excel中的数据显示在vb程序界面上并绘制图形如何实现

用录制宏可以实现这个功能。开始录制后，自己先用数据拟合一条曲线，把所有的功能都尝试变，比如画网格，图形线条等等。然后你就可以改变代码中的一部分，比如数据所在区域，图形title，图形格式等，只要是你刚才录制过程中应用过的。这样你就可以完成自动数据拟合啦。我当年就这么做的。

首先，工程－引用 microsoft Excel 11.0 )bject Library

然后代码如下：

Dim xlApp As Object

Dim xlBook As Object

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Add

With xlApp

xlApp.Visible = False

.Rows(1).Font.Bold = True '设置第一行为粗体

.Cells(10, 10).Value＝"姓名"

.Application.Visible = True

End With

Set xlApp = Nothing

Set xlBook = Nothing

如想了解其他 *** 作excel的代码，可以在excel中，点击菜单的 工具——宏——录制新宏。

然后你手动对excel *** 作， *** 作完成后停止录制。再点击 工具——宏——visual basic编辑器，找到刚才录制的宏，就可以看到刚才对excel所做的 *** 作对应的vb代码了。

---