怎么vb中调用excel表格中的数据绘制曲线

[xuanxuan1981]

vb中怎么调用excel表格中的数据绘制曲线？例如
0.61 0.83
0.63 0.85
0.52 0.86
0.31 0.87
0.20 0.87
0.14 0.88
这组数据，我想用此组数据来绘制一曲线，请问如何做？
能否给发一个这方面的代码，谢谢了。

[of123]

这是两个问题：
1 如何将 Excel 中的数据提取出来。
我建议用 ADO 数据库引擎读入记录集。因为 Excel 是 Jet 引擎支持的外部数据库。

Dim cn As New ADODB.Connection, rs As New ADODB.Recordset

cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\somepath\filename.xls;Extended Properties=""Excel 8.0;HDR=No"""
rs.Open "SELECT * FROM [Sheet1$]", cn

2 如何用取得的数据画图

方法也很多。例如用 Picture 控件：
x1 = rs.Fields(0) * Picture1.Width
y1 = rs.Fields(1) * Picture1.Height

rs.MoveNext

Do Until rs.EOF
Picture1.Line (x1, y1)-(rs.Fields(0) * Picture1.Width, rs.Fields(1) * Picture1.Height)
x1 = rs.Fields(0) * Picture1.Width
y1 = rs.Fields(1) * Picture1.Height
rs.MoveNext
Loop

[QQ342151559]

谢谢.楼上的,最近正在为Excel数据变为图表烦恼呢...

[xuanxuan1981]

补充一下，在打开excel文件的时候，我还需要来选择excel文件，并不是单纯的某个指定excel文件。

[xuanxuan1981]

补充一下，就是我在打开excel的时候，并不是单纯的打开某个指定的文件。

[xuanxuan1981]

补充一下，我做的时候需要打开excel文件，并不是单纯的打开某一个指定位置的文件