エクセルのマクロでこんな事って出来ますか？

質問

エクセルのマクロの事で質問です。

例えば

エクセルには

A1氏名,B1住所,C1TEL

があったとして、マクロを使って次のフォーム（エクセルではない別の物）に貼り付ける事は可能でしょうか？

１・氏名を記入
「・・・・・」
２・住所を記入
「・・・・・」
３・TELを記入
「・・・・・」

ちなみに私のエクセルの知識はあまりなく、試しにマクロの記録を使ってやってみたのですが、全くの失敗でした。

そこで、皆様のお力をお借りしたく質問をしています。

よろしくお願いします。

回答No.9

iriyak · ベストアンサー

FFFtp のテキストフィールドへの入力ならば下記回答で紹介された UWSC で実現可能です。以下は、サンプルです。

siraku さんの適用したいソフトウェアでも同様の方式が適用できるかどうか切り分けてみてください。適用可ならば後はエクセルブックのデータを読み込む手続きを考えればよいでしょう。UWSC 掲示板 (参考URL) やこちらにも質問が投函されていますので検索して参考にしてください。

dim wid;

message("1. FFFtpを起動します...");
EXEC("C:\Program Files\ffftp\FFFTP.exe");

message("2. 新規ホストボタンを押下します...");

wid = GETID("ホスト一覧");
if wid = -1 then terminate("ホスト一覧ウインドウが見つかりませんでした。")

CLKITEM(wid, "新規ホスト"); // 新規ホストボタンを押下する

wid = GETID("ホストの設定");
if wid = -1 then terminate("ホストの設定ウインドウが見つかりませんでした。")

message("3. 各フィールドを設定します...");

SENDSTR(wid, "EXAMPLE dot com", 1); // "ホストの設定名(T)"
SENDSTR(wid, "www.example.com", 2); // "ホスト名（アドレス）(N)"
SENDSTR(wid, "anonymous", 3); // "ユーザ名(U)"
CLKITEM(wid, "anonymous", CLK_BTN); // "anonymous"
SENDSTR(wid, "user@example.com", 4); // "パスワード/パスフレーズ(P)"
SENDSTR(wid, "/", 5); // "ローカルの初期フォルダ(L)"
SENDSTR(wid, "/", 6); // "ホストの初期フォルダ(R)"

message("4. 入力を終えました! (UWSC スクリプトを終了します...)");

procedure terminate(s)
　　FUKIDASI("処理を中断します (Exit...)");
　　SLEEP(3);
　　EXITEXIT;
fend

procedure message(s)
　　FUKIDASI(s);
　　SLEEP(1);
fend

参考URL：

http://www3.bigcosmic.com/board/s/board.cgi?id=umiumi