Sub excell()
. n/ M7 T ]0 h; ]6 ^Dim x, y As Variant
0 \0 Q, G9 m3 t& w* g& c' t4 iDim Excel As Excel.Application
$ {3 b; R4 B$ y, N- b& {" m. PDim ExcelSheet As Object
& O" s: b' E0 m3 \ U' ]0 VDim ExcelWorkbook As Object
6 A% a5 g. j" ?( Q- vSet ExcelWorkbook = Excel.Workbooks.Open("d:\基础数据.xls") '
2 E. j' n5 l8 P" r3 {Set ExcelWorkbook.Visible = True
4 X: w$ |; F# L; K$ XSet ExcelSheet = ExcelWorkbook.Worksheets("基础数据") '
+ P. F3 ^( S$ \& Y# DExcelSheet.Activate '
+ Y7 i' x: H* Px(0) = 0: x(1) = 0: x(2) = 0) R+ G0 E6 Q2 p. ]" \5 A: e
For i = 1 To 50
) r* ?! b2 ~4 q" r y(0) = ExcelSheet.cells(i, 1).Value1 v. t. w+ b( U, q1 r' X& B! U
y(1) = ExcelSheet.cells(i, 2).Value4 z u# v" |8 L( [
y(2) = 0
0 F6 c4 O/ _7 g* m Call ThisDrawing.ModelSpace.AddLine(x(i), y(i))* n |# W5 ]# s2 r
y = x
" s! M/ E4 G/ n" JNext
7 E% o# H, I' s: v1 G9 eEnd Sub
1 n) i4 V! A1 S……………………………………………………………………
( I; n+ k2 x* R2 f2 J我的本意是从excel文件（50行、2列）中读取数据，分别作为横纵坐标，Z坐标赋值为0，然后画线
% {+ ~0 x% q( U. z/ Z x4 q程序不报错，也没反应，不知为何？ |
发表于 2010-5-27 11:20