Sub excell()! p+ E0 _ w8 I! F3 p
Dim x, y As Variant7 ^6 Y2 C3 Q! R. p$ q. k
Dim Excel As Excel.Application+ v/ P9 i1 k+ l8 a$ d1 B1 }! f
Dim ExcelSheet As Object2 g6 e# Y: D" I+ [
Dim ExcelWorkbook As Object9 W4 {8 n* p8 f
Set ExcelWorkbook = Excel.Workbooks.Open("d:\基础数据.xls") '6 m* g; n1 P) i6 r$ j
Set ExcelWorkbook.Visible = True- C* e4 {3 o) G( i% x3 @
Set ExcelSheet = ExcelWorkbook.Worksheets("基础数据") '
* `7 d% }9 B0 v" L6 _+ V) dExcelSheet.Activate '
' S4 @1 \ A& y Kx(0) = 0: x(1) = 0: x(2) = 0
* _, C' I2 S4 d7 \) W9 TFor i = 1 To 50
) s n: O1 |3 {0 t- a: T- S y(0) = ExcelSheet.cells(i, 1).Value! |, E& [2 K$ M3 }* C
y(1) = ExcelSheet.cells(i, 2).Value$ o* u8 i- F6 t3 j. y- s( |
y(2) = 0
4 G1 o4 G0 _. A- u Call ThisDrawing.ModelSpace.AddLine(x(i), y(i))& e% c9 ?- k* B* e7 `
y = x
7 J1 ^- D! R$ w( g2 @+ gNext
& J7 V* p' B# Q0 @! pEnd Sub
* K& {, Y+ S: M% l……………………………………………………………………
. ~' g; b$ [; I% Z* |0 H我的本意是从excel文件（50行、2列）中读取数据，分别作为横纵坐标，Z坐标赋值为0，然后画线
6 i2 V. ^* T. k% P程序不报错，也没反应，不知为何？ |
发表于 2010-5-27 11:20