|
is i,j,channel:integer;' `, Z# I4 q$ H4 E; E
do
: E B2 E6 M/ J* w( [' _
* Y6 B! g6 E# C' _' Achannel:=ddeconnect("excel","sheet1");--顯示連線,第一格代表連線到excel文件上,第二格代表連到sheet1這個活頁夾" ^7 \& D, e# G& v) o; ~) m4 ?3 B
2 y) r& u; W R- G; l
for i:=1 to 列的最大數 loop/ x2 X! J: z7 \& b: D# K4 M( m
# {' e( E1 L8 y3 J, R for j:=1 to 欄的最大數 loop8 d' C0 s" T, I! j+ t6 r
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即可,)
$ b/ f. l" N$ N! n+ d" H2 f: w% E. S next;
( ]: N4 W: m8 W m2 W. U( N next;
$ E6 q$ N6 E( }+ r1 w, A end;; K# e, u% t0 v" O* [
/ S8 v( O+ }8 w5 }( p9 r[ 本帖最后由 fans0390 于 2008-8-26 20:42 编辑 ] |
评分
-
查看全部评分
|