|
|
is i,j,channel:integer;
, m4 |0 L& t2 c. R8 kdo
; M: J+ O( S L {4 k: s5 u b) U/ @
channel:=ddeconnect("excel","sheet1");--顯示連線,第一格代表連線到excel文件上,第二格代表連到sheet1這個活頁夾# H p$ N0 J, T, Q2 |5 ?
" [, d# _, z! E' s5 g9 T8 j7 a! mfor i:=1 to 列的最大數 loop
3 |$ i! P0 o4 W( G( Y1 O
& \) P: m I5 |5 E1 a" _ for j:=1 to 欄的最大數 loop
6 V" O$ ]9 l5 q. u3 p4 v ddepoke(channel,"r"+to_str(i)+"c"+to_str(j),to_str(tablefile[j,i]),1000);--第一個代表將資料送到channel裡(用ddeconnect連線)第二個"r"代表列,+to_str(j)是指從第j列開始+"c"代表欄,+to_str(i)是表示第i欄,to_str(tablefile[j,i]指的是從tablefile第j欄第i列的資料傳送到channel裡,1000代表每毫秒的暫停時間不用管設1000即可,)5 V# x7 m2 X/ F1 }, s
next;
; |/ }. e( F7 G. ?% H" b% U7 z next;+ h: c. ^* h( n1 }6 O. ~+ Q8 S6 @5 x
end;
5 U0 M3 E! \& D* Z7 q
; e0 E- X m/ M4 d! w7 _; t[ 本帖最后由 fans0390 于 2008-8-26 20:42 编辑 ] |
评分
-
查看全部评分
|