|
is i,j,channel:integer;
* d: p8 c0 C1 t: ]8 _5 ndo. {1 x, U8 B8 L3 V/ C$ ~
: @- M4 o/ }! `7 b( H
channel:=ddeconnect("excel","sheet1");--顯示連線,第一格代表連線到excel文件上,第二格代表連到sheet1這個活頁夾
" M) }, V; N; k; o, H" A% W, a5 }1 k- D5 k1 Z0 ^
for i:=1 to 列的最大數 loop F+ f+ y8 n* i$ r
* g2 @2 B3 Y- W. f. R1 G, A
for j:=1 to 欄的最大數 loop
' w$ R; D1 B9 g7 Q) m& a" q 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即可,)& w9 V8 s; `$ x" j' ~8 B! `
next;
" ?6 f2 \9 n% o0 Y; i next;- K$ T8 n$ |2 }! h- x
end;3 |- ~0 @; n1 k) L. L$ G
' J; N: j2 ?& X) }, a
[ 本帖最后由 fans0390 于 2008-8-26 20:42 编辑 ] |
评分
-
查看全部评分
|