|
|
is i,j,channel:integer;* q8 J* D! v" R2 m/ J% L
do& B* v7 a, d4 I2 r' F2 _
s: R* F) s' j0 M
channel:=ddeconnect("excel","sheet1");--顯示連線,第一格代表連線到excel文件上,第二格代表連到sheet1這個活頁夾
% I, r/ f- B( Z. _$ ?% s# [% o. b0 K- S) L- p3 @) @; X
for i:=1 to 列的最大數 loop# D0 L# E. R+ F" m7 Z: C8 F
* o0 X4 b, Y0 t3 m
for j:=1 to 欄的最大數 loop3 U; n. q7 m' n" Z
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即可,): I4 F/ S& U$ S( P; E
next;- ?0 F( s: V9 X# m$ U8 ^
next;
5 p; O1 h0 K1 ? f end;
U9 `9 f0 J+ j, t' q
, p2 u! i& ~. T4 ^[ 本帖最后由 fans0390 于 2008-8-26 20:42 编辑 ] |
评分
-
查看全部评分
|