最高の仕事、Qiita Jobsで見つけませんか？詳しくはこちら
sato_kensuke@sato_kensuke
記事の情報
編集履歴編集リクエスト一覧LGTMしたユーザ一覧Markdown で本文を見る
問題がある記事を報告する

VBScript -- ものすごく簡単に、Windows API を呼び出す

VBScriptvbs
この記事は最終更新日から1年以上が経過しています。

※唯一、一番の考慮点は、下記の「JJCCJ」のみで、それ以外は非常にカンタンです。

下記の「JJCCJ」の意味は、それぞれの引数の型を指定するそうですが、詳しくは公式ヘルプ(エクセル側)をご覧くださいませ。

※エクセルの無い環境では動作しません。ご注意ください。

Kantan.vbs
Dim excel
Set excel = CreateObject("Excel.Application")
Dim strMacro
strMacro = "CALL('user32', 'MessageBoxA', 'JJCCJ', 0, 'Msg画面が描画・完了しましたら、OKを押してください。', 'Windows API in VBS', 0)"
strMacro = Replace(strMacro, "'", """")
excel.ExecuteExcel4Macro(strMacro)

※動作確認環境 : Win7 Pro

編集リクエスト
1
sato_kensuke
佐藤 健介@sato_kensuke
ユーザー登録して、Qiitaをもっと便利に使ってみませんか。
  1. あなたにマッチした記事をお届けします
    ユーザーやタグをフォローすることで、あなたが興味を持つ技術分野の情報をまとめてキャッチアップできます
  2. 便利な情報をあとで効率的に読み返せます
    気に入った記事を「ストック」することで、あとからすぐに検索できます
コメント
この記事にコメントはありません。
あなたもコメントしてみませんか :)
すでにアカウントを持っている方は
ユーザーは見つかりませんでした