|
is i,j,channel:integer;
- a% C8 _. T$ @1 |" Q- h' Ldo
" r( { T! H; X- L. f
5 k- N- Z, Y$ d# _. a6 s3 ychannel:=ddeconnect("excel","sheet1");--顯示連線,第一格代表連線到excel文件上,第二格代表連到sheet1這個活頁夾' X& U3 f* i; R* U' H# K8 u/ w* s
3 M6 @( y' q; dfor i:=1 to 列的最大數 loop" ] k X* B& l$ R9 Q4 p! r/ z
5 G# u7 o) C# {% ?3 J3 t/ m
for j:=1 to 欄的最大數 loop
' ]! x" T% S; o- { 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即可,), W# ?/ G& d; `1 z
next;
* C+ V5 O0 J! F# f; [3 m next;1 x) s7 H8 E) w; A. k$ H
end;# J4 t3 w- G; c W
4 b; {; E3 G: {* p2 `[ 本帖最后由 fans0390 于 2008-8-26 20:42 编辑 ] |
评分
-
查看全部评分
|