VB与EXCEL.doc

各位朋友，我现在急求一段vb中将数据导出Excel的代码，有没有不用连接或调用函数实现该功能的代码啊？拜托各位帮帮忙吧！将不胜感激！ 问题点数：0、回复次数：2 1楼? zleia ? (zleia) ?回复于?2005-06-07 13:25:02 ?得分 0 Private ? Sub ? Form_Load() ? ? Dim ? cnn ? As ? New ? ADODB.Connection ? ? Dim ? str ? As ? String ? ? str ? = ? App.Path ? ? \book1.xls ? ? str ? = ? Provider=Microsoft.Jet.OLEDB.4.0;Data ? Source= ? ? str ? ? ;Extended ? Properties=Excel ? 8.0;HDR=Yes;IMEX=1 ? ? str ? = ? Provider=Microsoft.Jet.OLEDB.4.0;Data ? Source=C:\123.xls;Extended ? Properties=Excel ? 8.0;HDR=Yes;IMEX=1 ? ? HDR=Yes; ? indicates ? that ? the ? first ? row ? contains ? columnnames, ? not ? data ? ? IMEX=1; ? tells ? the ? driver ? to ? always ? read ? intermixed ? data ? columns ? as ? text ? TIP! ? SQL ? syntax: ? SELECT ? * ? FROM ? [sheet1$] ? - ? i.e. ? worksheet ? name ? followed ? by ? a ? $ ? and ? wrapped ? in ? [ ? ] ? brackets. ? ? cnn.Open ? str ? ? Dim ? rs ? As ? New ? ADODB.Recordset ? ? rs.Open ? SELECT ? * ? FROM ? [sheet1$], ? cnn, ? adOpenStatic, ? adLockReadOnly ? ? While ? Not ? rs.EOF ? ? ? ? ? ? Combo1.AddItem ? rs.Fields(0).Value ? ? rs.Fields(1).Value ? ? ? ? ? ? rs.MoveNext ? ? Wend ? ? Set ? DataGrid1.DataSource ? = ? rs ? ? End ? Sub ? ? Top 2楼? qhdwyl ? (沉默的人) ?回复于?2005-07-05 18:15:42 ?得分 0 把 ? datagrid ? 里的导出excel 请问：给定一组数据的坐标（Xi,Yi）,如何用VB画出光滑的曲线啊？有人用过曲线拟合画曲线吗？有相应的算法或程序吗？我是VB新手，恳请高人指点一二。项目急催！ 作者：jzyray????? 发表时间：2005-7-15 21:34:00??? 画点的效果不如画短距离直线，但是都有一个共同点，为了平滑，都很慢。 作者：ganymebe????? 发表时间：2005-7-16 8:14:00??? 　Private Sub Form_Paint()????Dim xt As Integer????For i = 0 To 5000????????PSet (i, 1200), vbRed 在对像的指定位置(x,y),按确定的像素颜色画点????Next i????For xt = 0 To 5000????????PSet (xt, 300 * Cos(xt * 3.1415926 / 1800) + 600 * Sin(3 * xt * 3.1415926 / 1800) + 1200), vbBlue????????Next xt????????Print Tab(17); 数学曲线End Sub 　 作者：Brianna2005????? 发表时间：2005-7-17 21:48:00??? 　第4楼?? 楼上的，谢谢了，按照你们的提示我编了一些小程序，运行还不错！多谢！只不过我要编的那个程序还要求曲线很光滑，不打算用VB控件，要确定坐标，用最小二乘法进行曲线拟合！继续努力中，期待更多的帮助！ 　 作者：Brianna2005???