自動化ツールUWSC使いよ集まれ24

2021/07/07(水) 11:17:44.59

Windowsの作業を自動化するツール
フリーソフト版とシェアウェア版の2種類がある
・UWSC Free版　Ver5.3.0.2
http://www.uwsc.info/uwsc5302.zip
・UWSC Pro　Ver5.3.0.2　（スレ建て時点で、現在シェアレジはできません。）
http://www.uwsc.info/uwscpro5302.exe　

●UWSC 掲示板（※作成依頼掲示版ではありません）
　質問の際には自力で作ったスクリプトを晒すか、具体的な解らない場所を提示すること
　上級者が常駐、たまに作者も現れるため過去ログには有益情報の宝庫
http://www3.rocketbbs.com/13/bbs.cgi?id=umiumi
http://www3.rocketbbs.com/601/siromasa.html

●UWSC - Wikipedia
http://ja.wikipedia.org/wiki/UWSC

●使い方・基礎解説学習サイト
http://uwsc.g.hatena.ne.jp/cx20/20100131/1264938584
http://www.confrage.com/uwsc/
http://necro.jp/dev/uwsc/
http://canal22.org/
http://big.tm.land.to/handbook/uwsc.htm
http://www.game-rev.com/review/gameut/uwsc.html

●スクリプトテンプレサイト
http://scripts.web.fc2.com/
http://nem.symphonic-net.com/uwsct/0610uwsct.html
http://iriyak.adam.ne.jp/uwsc.html
※前スレ
自動化ツールUWSC使いよ集まれ23
https://egg.5ch.net/test/read.cgi/software/1600515815/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/09/07(火) 00:35:07.26

>>183
であれば

>>180
の代わりに

ShowOnTaskbar(FALSE)
SLEEP(5)

とかにして起動時に気になるちらつきが
なければ使えるかなと

2021/09/07(火) 01:31:11.06

この方法でも結局は起動時にタスクバーボタンは一瞬表示されてしまうので
>>174と同じ効果と考えていいんでしょうか
まあ一瞬表示されるのを我慢さえすれば後は消えた状態になるので消す方法が分かっただけでも助かりました
色々お手数おかけしました。ありがとうございました

2021/09/07(火) 13:43:34.25

UWSCでグラフィックが描ければ良いのにな
取得データのグラフを出したり
ゲームも作れたりしそう

2021/09/07(火) 13:59:14.94

>>186
UWSCで、ExcelとかGIMPとか操作してる人もいっぱい居るねんで
おれはやったことないけど

2021/09/07(火) 15:12:05.69

作成したexeにファイルをドラッグ＆ドロップして、パスを起動オプションとして使いたいのだけど、
ファイルのパスに半角文字が含まれていると、起動オプションが分割されてしまうのを防ぐ方法ってある？
　
例）"C:\Program Files (x86)\Microsoft Office\新しいテキストドキュメント.txt"のファイルをD&Dすると
起動オプションが「C:\Program」になってしまいます

2021/09/07(火) 15:28:28.89

>>188
uwsc側で繋げる

2021/09/07(火) 15:39:42.91

自己解決しました

2021/09/07(火) 16:06:55.94

>>186
EXCELにデータ送ってグラフ作成くらいなら難しくない

2021/09/07(火) 16:11:29.54

そういうのグラフィック描くって言わないような

2021/09/07(火) 18:28:10.66

絵を描くdll読み込んでそいつに描かせた場合はどっち？

2021/09/08(水) 22:02:25.75

>>177の訂正版
※行頭スペースを全角にしています
// このUWSCスクリプトを実行中のタスクバーへの表示状態を変更
// タスクバーに表示 True 非表示 False を設定する
// パラメータなし(bShow＝-1)の場合は表示状態かどうか返す
FUNCTION ShowOnTaskbar(bShow = -1)
　DIM idUWSC = GETID(GET_THISUWSC_WIN,,0.1)
　DIM exstyleUWSC = GetWindowLongA(IDTOHND(idUWSC), GWL_EXSTYLE)
　IFB -1=bShow THEN
　　IFB STATUS(idUWSC, ST_VISIBLE) THEN
　　　IFB WS_EX_TOOLWINDOW = (exstyleUWSC and WS_EX_TOOLWINDOW) THEN
　　　　RESULT = FALSE
　　　ELSE
　　　　RESULT = TRUE
　　　ENDIF
　　ELSE
　　　RESULT = FALSE
　　ENDIF
　ELSE
　　IFB bShow THEN
　　　exstyleUWSC = exstyleUWSC and ($FFFFFFFF XOR WS_EX_TOOLWINDOW)
　　　exstyleUWSC = exstyleUWSC or WS_EX_APPWINDOW
　　ELSE
　　　exstyleUWSC = exstyleUWSC and ($FFFFFFFF XOR WS_EX_APPWINDOW)
　　　exstyleUWSC = exstyleUWSC or WS_EX_TOOLWINDOW
　　ENDIF
　　ShowWindow(IDTOHND(idUWSC), SW_HIDE)
　　SetWindowLongA(IDTOHND(idUWSC), GWL_EXSTYLE, exstyleUWSC)
　　ShowWindow(IDTOHND(idUWSC), SW_SHOW)
　　RESULT = exstyleUWSC
　ENDIF
FEND

2021/09/08(水) 22:49:46.29

すみません
>>177
は意図通りになってませんでした
他人がみれば意図不明に見えたと思います
177がタスクバーから消えたのはウィンドウが非表示になっていたためであって
本来やりたかったのは拡張スタイルをWS_EX_TOOLWINDOWにすることによって
タスクバーから消すということです

>>194 に訂正版を置きます
UWSC自体ではわかりにくいですが
　DIM idUWSC = GETID(GET_THISUWSC_WIN,,0.1)
の部分でメモ帳や専ブラを指定すればそのタスクバーボタンが消えます
(システムメニュー表示に右クリックが必要になるなどの変化もあります
タスクバーボタンを消したまま最小化するともとのサイズに戻す方法がなくなるので注意
もちろんその状態でもWS_EX_TOOLWINDOWを外してやれば操作可能になります)
そういう使い方をしたい場合は
FUNCTION ShowOnTaskbar(idWnd, bShow = -1)
のようにパラメータで指定する方がよいとは思いますが

>>185
訂正版を使ったとしても起動時にタスクバーボタンが表示される問題は
回避できないとは思いますが一応訂正しておきます

2021/09/09(木) 06:45:38.88

>>195
最初に求めていたものとは違ったものの、ちょうどタスクバーボタンを消して使いたいソフトがあったので思わぬ収穫でした
ありがたく使わせていただきます

2021/09/09(木) 14:13:48.71

>>192
Excelはペイントツールだから…
https://twitter.com/i/events/860198368030580737
https://twitter.com/5chan_nel (5ch newer account)

2021/09/10(金) 19:45:55.96

下記スクリプトでTEST＝0と1で動作が変わります
原因分かる方いらっしゃいますか？

あらかじめメモ帳に適当な文字列を入力して
数文字選択状態にして下記を実行

TEST=0

gid = GETID("メモ帳")
x2 = STATUS(gid,ST_X)
y2 = STATUS(gid,ST_Y)

if TEST then
MMV(x2+10,y2+200)
BTN(CLICK)
else
BTN(CLICK,x2+10,y2+200)
endif

2021/09/10(金) 20:27:41.26

>>31では
>>198はどういうつもりのスクリプトなの？
なんで0と1で動作が同じになると思うの？

**198** (ﾜｯﾁｮｲ e6c0-wHYb) · 2021/09/10(金) 20:43:13.46

>199

MMV(x2+10,y2+200)
BTN(CLICK)
だと文字列選択状態が解除される（つまりwindow内をクリックしてる）のに

BTN(CLICK,x2+10,y2+200)
だと文字列選択されたままです

2021/09/10(金) 20:51:36.53

>>200
TRUEとFALSEの分岐で同じ動作だと思ってるのに結果が違うのは何故かって話か
勘違いしてた
BTN(CLICK)って使い方あってるの？

**198** (ﾜｯﾁｮｲ e6c0-wHYb) · 2021/09/10(金) 21:05:34.55

>201

ありがとうございます

BTN関数の使い方間違ってました
BTN(LEFT,CLICK,x2+10,y2+200)
とLEFTを入れる事で意図した動作になりました

思い込みって怖いですね
はずかしい・・

2021/09/10(金) 23:57:30.77

話にならない

2021/09/11(土) 11:35:49.30

なぜか自己完結してるなら、めんどいから突っ込まない

2021/09/12(日) 16:18:07.06

uwscを使うと

以下のように20～30分おきに「UWSCは動作を停止しました」と出る
https://i.imgur.com/wfbVEEX.jpg
↓
デバッグを押す
↓
[14896]UWSC.exeでハンドルされていないWin32の例外が発生しました
https://i.imgur.com/ncQlxQb.jpg
↓
デバッガーを起動する
↓
ハンドルされていない例外
ハンドルされていない例外が0x76575F35(gdi32full.dll)で発生しました
(UWSC.exe内):0xC0000005:場所0x000A0E00への書き込み中にアクセス違反が発生しました。
https://i.imgur.com/4ecXyvm.jpg

と、ここで詰みました
アドバイスをお願いします

プログラミングの知識皆無の状態からマクロを作った人間なので正直何をどうすればいいかさっぱりでして
ちなみにマクロは複数作ったのですが、callを多用するものだけでこのエラーが発生してそれ以外は10時間問題なく稼働しています

2021/09/12(日) 18:50:31.00

同じuwsファイルを何回もcallしてるなら使い方がおかしいのでは

2021/09/12(日) 21:04:41.77

CALLを極力使わないように書き換える方が簡単

2021/09/13(月) 00:30:45.85

何十年前のプログラムの知識しかないけど
CALLの説明見た瞬間

2021/09/13(月) 00:34:10.97

>>208
C言語のincldueと同じだなって理解した
ファイルの先頭で呼び出したい関数が書かれてるファイルを読み込むだけに使ってるから
途中でCALL書いてるだけでも気持ち悪いのに
ループの中に入れてるやつとかちょっと頭どうかしてる

2021/09/13(月) 03:05:25.95

FOPEN
FGETは
FCLOSEしないと64回読み込みでエラーになる

2021/09/13(月) 10:01:21.15

>>209
公式のサンプルでそういう使い方が載ってるから、作者的にはアリなんだろうが、個人的には無しだとは思う
http://web.archive.org/web/20180428070202/http://www.uwsc.info/sample.html#N1

2021/09/13(月) 10:09:31.68

何らかのハンドルを解放しないスクリプトをcallし続けてるのかもね
連続callよりも呼び出された内容に問題がある可能性

2021/09/13(月) 11:19:30.03

>>211
ループで呼ぶサンプルもあるのか…
それ自体は問題ないのね

2021/09/13(月) 11:41:00.43

phpのrequireとincludeみたいなもんかな
使うならしっかり仕様を意識して使い分けないとね

2021/09/16(木) 15:50:42.64

ＰＣ操作中にどのアプリケーションを操作中でも、
そのアプリケーション上でＵＷＳＣランチメニューから
キーボードのアプリケーションキーをクリックさせたいのですが
うまくいきません。
最初に acw で対象のウィンドウを指定するパターンではなく
ＵＷＳＣランチメニュー起動直前の状態から問答無用でこのキーを押す！
と言うのはどう記述すればよいのでしょうか？

2021/09/16(木) 16:03:47.77

ランチメニューには実行したいスクリプトを設定してあるんだよね？
であればUWSCが起動してる状態なら他のアプリケーションを操作中でも
HotKeyを押せばランチメニュー開くでしょ

2021/09/16(木) 16:31:11.43

>>216
コメントありがとうございます、ランチメニューの起動はできてます
エクセルやらメーラーやらのアプリケーション毎にスクリプトを分けず、
単一のスクリプトでどんなアプリケーションに対しても特定の動きをさせたいです
具体的にはアプリケーションキーの無いノートＰＣでいちいちshift＋f10を
手押ししたくない状況です
単に kbd〜を記述しただけでは何の反応もないのは acw で対象のアプリケーションを
定義できていないせいだと思い「ランチメニュー起動直前のアクティブウィンドウを
自動的に取得しろ」みたいな命令があれば知りたいです。
もしくは最初の書き込み通り「対象アプリケーションの定義なしのままで
ランチメニュー起動直前のアクティブウィンドウ上でこのキー押して」と言う
記述が可能ならそれでもよいのかな？と言う状況です

2021/09/16(木) 17:13:55.90

//ランチメニューを無理に使わない
//F1、F2、F3キーでランチメニューのようにスクリプトを実行する
//終了はESCキー

SETHOTKEY(VK_ESC,,"終了処理")
SETHOTKEY(VK_F1,,"F1")
SETHOTKEY(VK_F2,,"F2")
SETHOTKEY(VK_F3,,"F3")

WHILE TRUE
　SLEEP(1)
WEND

PROCEDURE 終了処理()
　EXITEXIT
FEND

PROCEDURE F1()
　CALL a.uws
FEND

PROCEDURE F2()
　CALL b.uws
FEND

PROCEDURE F3()
　CALL c.uws
FEND

2021/09/16(木) 19:43:48.60

、、、使ったことない命令ばっかりでワクワクします！
明日早速是非試してみます、ありがとうございました！

2021/09/16(木) 19:43:49.37

、、、使ったことない命令ばっかりでワクワクします！
明日早速是非試してみます、ありがとうございました！

2021/09/22(水) 18:27:45.46

BlueStacksというエミュで、固定座標をバックグラウンドでずっとクリックしたいのだけど、
上手くいきません
MOUSEORG(GETID("BlueStacks"),MORG_DIRECT)
WHILE TRUE
　sleep(10)
　BTN(LEFT,CLICK,107,710)
WEND

何か方法はありますか？

因みにMORG_DIRECTを止めると正常に動作するけど、
フロントウィンドウになってしまうし、マウスも取られてしまうので他の作業が出来なくなります。

2021/09/22(水) 18:53:40.13

どう上手くいかないのか

2021/09/22(水) 18:59:49.20

>>221
フロントウインドウ以外をマウスでクリックするって正気？

2021/09/22(水) 20:22:48.56

//BlueStacksを使ってないからわからんけど、MORG_BACKを書けば良いはず

MOUSEORG(GETID("BlueStacks"),MORG_DIRECT,MORG_BACK)
WHILE TRUE
　BTN(LEFT,CLICK,107,710,10000)
WEND

2021/09/22(水) 20:32:13.92

バックグラウンドでブルスタ操作が出来なくて
結局nox_adbを使ったな

2021/09/22(水) 21:03:43.28

Androidエミュの質問うんざり
答えなくていいよ
どうせbot作ってんだろ？

2021/09/23(木) 02:12:20.16

>>224
ダメでした
>>225
そういうことですか
>>226
殺すぞザコ

2021/09/23(木) 04:45:22.80

(不正に集めた)paypayで報酬払うのでゲームのbot作ってください
みたいな

2021/09/23(木) 09:09:37.94

>>227
ｗｗｗ

2021/09/23(木) 09:55:48.44

例のQiitaの記事見てここ来てるんだろうけどさぁ
泥エミュの自動操作したいなら他言語でやったほうがいいよ

2021/09/23(木) 10:51:01.02

殺すとか軽々に言う言葉じゃない
死はそんなに軽いもんなのか？

2021/09/23(木) 11:31:46.79

俺達とは住む世界が違う
彼にとって人の命のやり取りは日常なんだ

2021/09/27(月) 22:01:35.27

MSGBOX("STOP")

とすると、OKボタンを押すまで停止してるけど、20秒放置で自動的にOKを押した状態にするような方法は無いですか？
常に様子を見てられるわけでも無いので、自動化したいです

2021/09/27(月) 22:19:24.07

MSGBOXの直前でMSGBOX停止用のスレッドを走らせて
時間が過ぎたらボタンを押させるスレッドを終了
メッセージボックスがなくなっていたらそのままスレッドを終了

いちばん手っ取り早いのは
SLCTBOX()をMSGBOX（）の代りに使う

2021/09/28(火) 02:08:42.26

printを使う

2021/09/28(火) 02:53:16.94

wsh.Popup を呼ぶ

2021/09/28(火) 12:23:54.95

//SLCTBOXを使った方が簡単

SELECT SLCTBOX(SLCT_BTN,20,,"STOP");SELEND

//ボタンの種類
//0［OK］
//1［OK］［キャンセル］
//2［中止］「再試行］「無視］
//3［はい］［いいえ］［キャンセル］
//4［いいえ］
//5［再試行］［キャンセル］

//アイコンの種類
//0 アイコン非表示
//16「STOP」アイコン
//32「?」アイコン
//48「!」アイコン
//64「i」アイコン

//ボタンの種類+アイコンの種類で指定

objShell = CREATEOLEOBJ("WScript.Shell")
objShell.Popup("STOP",20,"STOP TEST",0 + 0)

SLEEP(10)

2021/09/28(火) 12:32:10.77

クロームであるURLを開かせたいねんけど

exec("cmd /c start http://URL";)やと新規タブになってまうやん？今のタブでURLを開かせる方法ってあるかな？

2021/09/28(火) 12:50:42.89

SENDSTR(0,"https://www.google.co.jp/";)
SCKEY(GETID("Chrome"),VK_CTRL,L)
SCKEY(GETID("Chrome"),VK_CTRL,V)
SCKEY(GETID("Chrome"),VK_RETURN)

2021/09/29(水) 03:06:06.21

2行でいい

SENDSTR(0,"https://www.google.co.jp/";)
SCKEY(GETID("Chrome"),VK_CTRL,VK_L,VK_V,VK_RETURN)

2021/10/01(金) 14:12:00.13

前出のUWSC止まりますマンとは別人です。
13時間位動かしてると以前もUWSCが止まるときがあります。UWSCを動かしている間はUWSCの中で何かが溜まり続けているのでしょうか？

13時間UWSCを動かし続けた状態でcallで何か呼び出した瞬間に「UWSCは動作を停止しました」と出るときがあります。
呼び出したのは、
表示済みのエクセルをアクティブ→画面の前面に持ってきてセルを2回クリック
するスクリプトです。

対策として中で何かが滞っていてその状態で無理にスクリプトを呼び出そうとしているのかと思い、sleepをこまめに入れました。

それでも今後どうしても直らないなら、UWSCと似たソフトウェアで定期的にUWSCを停止し、UWSCを再起動させようかと思っています。

2021/10/01(金) 15:18:48.64

>>241
自分はRestart On Crashと言う常駐アプリに再起動時にメールするbatを指定して使ってる
終了させるのはUWSCではなく、不調な連携アプリ側で、UWSCが巻き込まれて固まるのを防ぐ
更に念の為にUWSCのタスクでウォッチドッグタイマーみたいなのも組み入れて、何週間でも大丈夫

こんな板でも「他所で……」が出るのか

2021/10/01(金) 15:58:02.36

callじゃなくて、doscmdで呼び出してみたら？
時間はかかるけど、問題の切り分けにはなる

2021/10/01(金) 16:34:02.61

>>241
CALLで呼び出さない仕様にすれば解決

2021/10/01(金) 19:26:53.84

CALLってそこにスクリプトを挿入するだけっぽいからそれ自体が原因で落ちることはないと思う

俺がたまにハマるのは関数から関数呼び出す形でループさせてて
終了してない関数が溜まってメモリ不足

2021/10/01(金) 20:35:41.89

メモリリークが開放されない仕様があると

2021/10/01(金) 21:11:39.59

>>246
>>245 はスタックオーバーフロー
使い終わった開放されるべきメモリーが開放されないままになってしまうのがメモリーリーク

2021/10/01(金) 22:40:24.94

uwsc ってedgeを扱えますか？

2021/10/02(土) 04:57:44.13

>>242-248
ありがとうございます。またご報告します。

2021/10/02(土) 11:31:08.16

>>248
Chromeと同じように普通に扱える

2021/10/05(火) 09:10:24.76

変数Xの値が1の時は0、0の時は1に反転させるスマートな書き方はありますか？
IF文とかでごちゃごちゃ書くのは出来ますが、きれいに見えない・・・

2021/10/05(火) 09:18:47.48

mod でも使えばいいのでは
あとはbit反転とか

2021/10/05(火) 09:43:48.68

X = 　X+1　mod 2

**名無しさん＠お腹いっぱい。** (JP 0H47-2jfQ) · 2021/10/05(火) 09:50:06.75

x =1-x

2021/10/05(火) 10:24:54.20

>>254
スマートやな

いずれもxが0、1以外来ない前提だけど

2021/10/05(火) 11:18:53.77

提示された前提条件の通りです

2021/10/05(火) 12:23:16.10

当然だけどあなたに言ってるわけではないよ
質問者への確認だな

2021/10/05(火) 13:19:57.02

1と0の時だけしか書いてないし、それ以外は知らんでOKだな。

2021/10/05(火) 14:05:09.04

>>254
採用します
難しく考えすぎでした

>>255
0、1以外は使いません

dim X = 55

IFB X >= 50 and X <= 60;msgbox ("50以上60未満です。");ENDIF

をandを使わずに書けますか？

2021/10/05(火) 14:58:29.16

abs(X-55) >= 5 とか
X<50 or X>60 とか

というか、60以下では？

2021/10/05(火) 14:59:37.31

その否定を取る必要あったな

2021/10/05(火) 22:11:29.51

サブルーチンが使えるなら条件によって何もせずreturnさせる手が使えて便利なんだよね
行数は増えるけどネストは減るから見通しが格段に良くなる

2021/10/05(火) 23:55:16.49

>>260-261
いけずぅｗ

2021/10/06(水) 16:55:35.42

>>262
サブルーチン化しました

dim X = 55

IFB 以上以下判定(50,X,60);msgbox ("50以上60未満です。");ENDIF

FUNCTION 以上以下判定(x,y,z)
RESULT = (x <= y and y <= z)
FEND

2021/10/06(水) 18:07:04.85

どうしても速度稼ぎたいとかの事情あるんじゃなきゃ、素直に書いたほうがいいと思いますよ
>>254みたいなコード、後になってみたら何をやってるのかちょっと悩んでしまう
素直に書くと長くなってこれまたわからなくなるってなら、やっぱ関数化

2021/10/06(水) 18:31:01.43

そもそもbooleanは使えないの？

2021/10/06(水) 18:47:04.84

主が何をしたいのか目的がよくわからんね
以下と未満の違いも理解できてなさそうだし

2021/10/06(水) 18:48:00.93

>>265
結局それなんだよね
高速化を目的としないならわかりやすく書くのが鉄則

2021/10/06(水) 18:55:18.18

>>264
以上以下判定使ってるのにメッセージが以上未満なのがスゲー気になる

2021/10/06(水) 20:26:45.66

>>265
コメントで説明書いておくから問題なし

>>267
知り合いに頼まれたツールの一部分を簡略化して書きたいと思っただけ
以下と未満の違いは依頼者がそういう仕様で以上、以下と言ってるから別に気にしない
金払ってくれるのに以下と未満がどうたらと突っ込み入れるのは無粋というものだ

>>269
安くない金払ってくれるなら細けぇ事は気にしない

2021/10/06(水) 20:42:00.11

なんか威勢がいいな笑
その割には技術が、、、
まず数学センスを鍛えるといいぞ。数学センスがあればプログラムは簡単に理解できる。

2021/10/06(水) 21:13:09.66

なんだ、技術不足のセミプロが苦し紛れに質問してきたって話か

2021/10/06(水) 21:35:41.26

金取るレベルではないな

2021/10/06(水) 21:44:15.34

俺らに払うべきレベルやな

2021/10/06(水) 22:50:18.20

UWSC固有の問題ではなくプログラム初心者の質問する時点でだいぶヤバい
パズル解くみたいなものだから面白がって答えてる奴多いけど

2021/10/06(水) 23:12:38.62

大体、and, or, not は論理回路の最小単位なので、andがある論理をandなしで記述はできないんだよな。

2021/10/06(水) 23:57:46.30

windows11 で IE なくなるの？

2021/10/07(木) 01:21:50.10

>>276
nand若しくはnorだけで記述は可能すよ

2021/10/07(木) 09:56:47.03

nor nand関数ってありましたっけ？

2021/10/07(木) 10:58:02.29

たぶんあるでしょ
ないのに突然言い出すやつがいたらアスペか拗らせたオタクだ

2021/10/07(木) 11:45:50.31

これでいいのかな？

a = FALSE
b = FALSE
PRINT !(a OR b)
PRINT !(a AND b)

2021/10/07(木) 12:18:20.37

ちなみに、and は使ったらあかんで
元々の発端は　and を使いたくないなので

2021/10/10(日) 17:26:50.17

一次元配列をエクセルに一気に書き込みたいのですが

XLSETDATA(Excel,data,"A1")

とすると、data[1]は、A1に書き込まれるのですが、data[2]はB1に書き込まれてしまいます。
この配列を列ではなくて行に（A2～）書き込む方法はありますか？

今は、ループを使って
XLSETDATA(Excel, data[ i ], data"A" + i)
でチマチマと対処しているのですが、1万以上のデータなので、出来れば一気に書き込みたいです。