piglxm 发表于 2003-8-17 09:22:00

哪位大虾给个读取EXCEL数据的模块

fingerli 发表于 2004-8-6 17:06:00

我也需要这个，可是他们给的下面的这个没用


Private readexcel()<BR>                                               Dim ExcelApp As New Excel.Application<BR>                                               ExcelApp.Workbooks.Open "e:\lhs\cad\zksj.xls", , ReadOnly<BR>                                               Dim pt1(0 To 2) As Double, pt2(0 To 2) As Double<BR>                                               Dim Rad As Double<BR>                                               Dim i As Integer<BR>                                               i = 2<BR>                                               With ExcelApp.ActiveWorkbook.Worksheets("sheet1")<BR>                                               Do<BR>                                                       Select Case .Range("c" &amp; i)<BR>                                                                               Case "直线":<BR>                                                                                               pt1(0) = .Range("c" &amp; i)<BR>                                                                                               pt1(1) = .Range("d" &amp; i)<BR>                                                                                               pt1(2) = 0<BR>                                                                                               pt2(0) = .Range("e" &amp; i)<BR>                                                                                       pt2(1) = .Range("f" &amp; i)<BR>                                                                                               pt2(0) = 0<BR>                                                                                       ThisDrawing.ModelSpace.AddLine pt1, pt2<BR>                                                               Case "圆":<BR>                                                                                       pt1(0) = .Range("c" &amp; i)<BR>                                                                                       pt1(1) = .Range("d" &amp; i)<BR>                                                                                       pt1(2) = 0<BR>                                                                                       Rad = .Range("c" &amp; i)<BR>                                                                               ThisDrawing.ModelSpace.AddCircle pt1, Rad<BR>                                                       Case Else:<BR>                                                                                       Exit Do<BR>                                       End Select<BR>                                       i = i + 1<BR>                       Loop<BR>                       End With<BR>                       ExcelApp.Workbooks.Close<BR>                       ExcelApp.Quit<BR>                       ThisDrawing.Application.Update<BR>End Sub

mmmmmm 发表于 2004-8-6 23:24:00

<A href="http://www.ikozmos.com/" target="_blank" >www.ikozmos.com</A> for vlxls
页: [1]
查看完整版本: 哪位大虾给个读取EXCEL数据的模块