Sub excell()
% n! \7 x- m2 R$ ^3 `Dim x, y As Variant
' F0 ?# Y0 J2 O( h2 C" Z7 r5 {: nDim Excel As Excel.Application
. G$ b @4 _3 QDim ExcelSheet As Object0 |4 Z) `! K3 G) t9 h# h) M
Dim ExcelWorkbook As Object
, i% z/ S0 i* t8 A& z9 h7 jSet ExcelWorkbook = Excel.Workbooks.Open("d:\基础数据.xls") '
- d+ k5 Q$ ^4 ]Set ExcelWorkbook.Visible = True
- P4 G( G8 B5 H0 Q6 }8 |Set ExcelSheet = ExcelWorkbook.Worksheets("基础数据") '
: T2 }, q! N7 u I0 F; `" _( kExcelSheet.Activate '; O' _/ _, e9 @
x(0) = 0: x(1) = 0: x(2) = 0
, k( I8 Y1 t0 E, lFor i = 1 To 50
- G! T1 h% T I; h6 b" i: `* k y(0) = ExcelSheet.cells(i, 1).Value" X# O- g- T5 M4 C( V
y(1) = ExcelSheet.cells(i, 2).Value# }' z! x; F$ `8 O
y(2) = 07 H0 o) i' x0 B k; Q1 [1 G
Call ThisDrawing.ModelSpace.AddLine(x(i), y(i))3 C; R0 h- A9 Z. W
y = x, b- Q0 B% C; N4 s! F+ k& Y6 h. V
Next) h8 U6 G5 `8 L( f( E% i
End Sub6 Z9 a' f- \* p, O5 a
……………………………………………………………………- Q: ]# \3 \* X/ X; d2 c/ |
我的本意是从excel文件（50行、2列）中读取数据，分别作为横纵坐标，Z坐标赋值为0，然后画线
- Z2 {8 J/ l6 k. {4 ?) p8 |& L程序不报错，也没反应，不知为何？ |
发表于 2010-5-27 11:20