• 締切済み

「VBS」について教えてください

教えてください EXEで起こしたアプリのスクリーンにID　AA　ent　password　BB　entでログインし　そのアプリの機能で　time　ent　で時間をスクリーンに表示そのスクリーン又は座標を指定してコピーしそれを決まったbook1.XLSのSheet１にペースト　次にtime２で違うスクリーンを表示そのスクリーン又は座標を指定してコピーしそれを決まったbook1.XLSのSheet２にペースト　 こんな事させる事できますか？

みんなの回答

  • notnot
  • ベストアンサー率47% (4848/10262)
回答No.1

ウィンドウへのキー入力のシミュレーションが出来るので、その範囲で可能です。 マウス操作が必要ならできません。他のマクロツールを使う必要があります。フリーソフトでもあります。 サンプルは、 set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "calc" WScript.Sleep 100 WshShell.AppActivate "Calculator" WScript.Sleep 100 WshShell.SendKeys "1{+}" WScript.Sleep 500 WshShell.SendKeys "2" WScript.Sleep 500 WshShell.SendKeys "~" WScript.Sleep 500 WshShell.SendKeys "*3" WScript.Sleep 500 WshShell.SendKeys "~" WScript.Sleep 2500

jin-104
質問者

補足

他の事でSENDKEYSは使って上手くいったのですが　この場合は駄目でした　Macro実行中なのでSendkeysまで行かない様なのですが 例えば反応がない場合Sendkeysとか前に断われるのでしょうか？ 何分始めたばかりで変な質問かもしれませんが宜しくお願いします

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • エクセルマクロ　コピー元と貼り付け先を指定してコピー＆ペーストを実行するマクロ

    単刀直入にやりたいことを述べます。 Cドライブと仮定します。３つのBOOKがあります。 それぞれ ----- BOOK1.xls「○○Sheet」・・・（実行するファイル） 　　A 1　BOOK2.xls「△△Sheet」・・・（コピーするファイル名の指定です） 2　A2:E2・・・（コピーするセル範囲の指定） 3　BOOK3.xls「□□Sheet」・・・（貼り付け先のファイル名の指定です） 4　A5・・・（貼り付け先のセルの指定） ----- BOOK2.xls「△△Sheet」・・・（コピー元ファイル） 　 ＡＢＣＤＥ 1　あいうえお 2　かきくけこ 3　・・・・・ ----- BOOK3.xls「□□Sheet」・・・（貼り付け先のファイル） 　 ＡＢＣＤＥ 1　・・・・・ 2　かきくけこ・・・（貼り付け） 3　・・・・・ ----- ＞やりたいこと BOOK1.xls「○○Sheet」のA1のセルの値とA2セルの値を参照し、 その該当BOOKのセル範囲（BOOK2.xls「△△Sheet」のA2:E2）をコピーして、 BOOK1.xls「○○Sheet」のA3のセルの値と、A4セルの値を参照し、 その該当BOOKのセル範囲（BOOK3.xls「□□Sheet」のA5）へペーストする。 別のブックの指定したセルの値を別のブックの指定したセルへ貼り付けるだけなんですが、 以前関数を使って似たような事をしようとしたのですが、うまくいかなかったので、マクロならできるのでしょうか。 よろしくお願いします。（ちなみにエクセル2000又は2003です）

  • Excel VBA別ブックのシートをコピーするには

    Excel2010のVBAで別ブックのシートをコピーしてくる方法 Excelファイル(C:\test\BOOK2.xls)のシート名が TESTというシートを自分のExcelファイル(C:\doc\BOOK1.xls)に コピーするにはどのように記述すればよいのでしょうか。 ・コピー先:自分のExcelファイル(C:\doc\BOOK1.xls) 　VBAのコードがあるファイルです ・コピー元:C:\test\BOOK2.xlsのTESTシート 　なお、TESTシートを持つ同じ名前(BOOK2.xls)のファイルが 　別フォルダにもあります 　 Workbooks( )の引数にファイル名(BOOK2.xls)は指定できるのですが、 フルパス名(C:\test\BOOK2.xls)で指定できないので困っています。

  • 同一フォルダ内のBOOK2.xlsを自動的にマクロで開く方法

    同一フォルダ内のBOOK2.xlsを自動的にマクロで開く方法を教えてください。 ファイルが置いてある場所はネットワーク上にあります。 Workbooks.Open ("\\PC2\フォルダ1\BOOK2.xls") という指示をしたのですがエラーが表示されてしまいます。 行いたいことは現在開いているBOOK1.xls（置いてある場所【\\PC2\フォルダ1】でBOOK2.xlsと同じ） にBOOK2.xlsの一部の内容をコピーしたいのです。 ですので同じフォルダ内のBOOK2.xlsという指定があるとできるのかなっと思いました。 そのような指定の仕方があれば教えてください。 また、無いのであれば、他の方法などありましたら教えてください。 ↓現在のマクロ Workbooks.Open ("\\PC2\フォルダ1\BOOK2.xls") Workbooks("BOOK2.xls").Sheets("Sheet1").Range("A1:AP2").copy Destination:=Workbooks("BOOK1.xls").Sheets(1).Range("DQ1" & R)

  • 他のブックからシートをコピーする

    ExcelVBA勉強中の者です。 他のブックのsheet1をコピーし、使用中のブックのsheet1にペーストする事を目的に ネットの情報を参考に以下のコードを作成しました。 Sub test() Dim book1 As Workbook '変数book1をワークブック型で宣言 Dim book2 As Workbook '変数book2をワークブック型で宣言 Set book1 = Application.ActiveWorkbook 'アクティブになっているブックをbook1へセット Application.ScreenUpdating = False '画面の更新を止める '↓アドレスのブックを開く事までbook2にセット（ReadOnly:=Trueで読み込み専用） Set book2 = Application.Workbooks.Open("C:\Documents and Settings\AAA\デスクトップ\他のブック.xls", ReadOnly:=True) book2.Sheets("Sheet1").Copy after:=book1.Worksheets("sheet1") Set book1 = Nothing '変数book1を開放 book2.Close SaveChanges:=False 'book2を閉じる（SaveChanges:=Falseで保存せずに終了） Application.ScreenUpdating = True '画面の更新を再開する Set book2 = Nothing '変数book2を開放 End Sub 動作としては上手くいったのですが、 book2.Sheets("Sheet1").Copy after:=book1.Worksheets("sheet1") の部分でペースト先を変数book1のsheet1と指定しているにも関わらず sheet1(2)という新しいシートが作成され、そちらへペーストしてしまいます。 思うに「コピーしたシートを挿入する」という動作であると思われますが、 これをペーストするという表記が出来ず困っております。 お手数お掛けしますがどなたかご助力お願い致します。 *Excelのバージョンは2002を使用しております。

  • （F2：G10）コピ→ペ、（F11：G19）コピ→ペ…

    初心者です。やりたいことは、 book１シート１の範囲（F2：G10）をコピーし、book２のシート"1"にペースト、 book１シート１の範囲（F11：G19）をコピーし、book２のシート"2"にペースト、 ・・・・ というのを30回繰り返すことです。 30回似たようなコードを書けばよいのですが、面倒だし、また勉強のためにも、変数を使って短く書きたいと思ってます。 わからないのが、(1)上記のように規則的に変わる範囲の指定or選択orコピーの方法と、(2)シートの指定方法です。 (1)については、セル１個ならできるのですが、範囲になるとわかりません。 (2)については、tryしてないです。シート名が半角英数で規則的に名づけられてる場合、sheet("変数").Activateで動いてくれるのでしょうか？？ よろしくお願いします。

  • 他のブックから任意のシートをコピーするVBA

    以下についてお手数ですがご教示いただけませんでしょうか。 【前提条件】 　BOOK1.xlsとBOOK2.xlsが同じフォルダにあります。 【行いたいこと】 　BOOK1.xlsで、 　1.BOOK2.xlsを選んで、 　2.BOOK2.xlsに存在するするシート名を選択させ、 　3.選択したBOOK2.xlsの任意のシートをBOOK1.xlsにコピーする 　

  • Bookの参照をはずした形式でペーストする方法　エクセル

    以下２つのファイルがあります。 □Book1 　Sheet1 　　A1セル　=Sheet2!A1 　Sheet2 　　A1セル　1 □Book2 　Sheet1 　　A1セル　=[Book1]Sheet2!A1 　Sheet2 　　A1セル　2 Book2,Sheet1,A1セルは、 Book1,Sheet1,A1セルをコピーペーストした結果です。 この状態では、Book2,Sheet1,A1セルには"1"が表示されます。 Book2,Sheet1,A1セルに"2"を表示するために、 Book1,Sheet1,A1セルのコピーを Book2,Sheet1,A1セルに"=Sheet2!A1"としてペーストで入力したいのですが、 普通にペーストしたときは、上記の結果、 「形式を選択して貼り付け」→「数式」としても同じ結果となってしまいます。 どのようにすれば、Bookの参照をはずした形式でペーストできるのでしょうか。 よろしくお願いします。 Excel2003

  • bookからbookへの数式のコピーについて教えてください

    bookからbookへの数式のコピーについて ？？BookのSheet1のセルにSheet2を参照にした数式が入っています =2+Sheet2!$A8 これを！！BookのSheet1のセルにコピーすると =2+[Book1.xls]Sheet2!$A8 こうなりました コピーしたセルは11,475セルあります [Book1.xls]をすべて消したいのですが、簡単な方法はありますか？

  • 同じ位置にタイムラインのコピーペースト

    同じ位置にタイムラインのコピーペースト タイムラインのコピーペーストでいつも困るんですが 「ここからここまで」と自分の欲しいレイヤーとタイムラインを 選択して「編集」→「タイムライン」→「フレームをコピー」をして 違うシーンなんかに「編集」→「タイムライン」→「フレームのペースト」をするんですが 必ずステージの位置からX座標もY座標も半分づつズレてオブジェクトがペーストされます。 同じ位置にペーストして欲しいのに・・・ なのでいつもオブジェクトをチマチマ移動させて元の位置に修正しているんですが 時間が無い時や動きが多いときにはイラッときてしまいます。 「基準点」も左上とかに合わせてるんですが、私が見当違いの事をしているだけだと 思います。 どなた様か同じ位置にタイムラインをペーストさせる方法をご指南して頂けますでしょうか。 よろしくお願いいたします

  • excel vba

    テーブル情報に基づきシートをコピーするＶＢＡマクロを記述したい。 ＥｘｃｅｌのBook111のSheet1に次のような データが入っています。 （１、２）セルにｎ=3という数字が入っているものとします。 その数値に合わせて、この場合は３なので Sub Sample01() Workbooks("Book3.xls").Worksheets("booksheet3").Copy After:=Workbooks("Book111.xls").Sheet（1) End Sub のようなつまり、booksheet3なるシートをBook111(固定なＢＯＯＫ)にコピーしようとしています。 このようなことをＶＢＡで書くにはどうすればいいのでしょうか。 ただしBook名とシート名はあくまでデータの値にもとづいたデータをもってくることになります。 要するに間接参照したデータに基づき処理するのをどのように記述するかという質問です。 Ａ列 Ｂ列 1 回数 ｎ=3 2 　 　 3 　 　 4 Book1.xls book1sheet ←n=1 5 Book2.xls book2sheet ←n=2 6 Book3.xls book3sheet ←n=3 7 Book4.xls book4sheet 8 Book5.xls book5sheet 9 Book6.xls book6sheet ←n=6 10 Abc,xls Defsheet ←n=7

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する