• ベストアンサー

VB6 からEXCEL起動をブロックする方法

VB6を使用してEXCELを開き色々コントロールするプログラムを作成したのですが、EXCELをプログラムからでなく、単独で起動してしまうとVB6から開いたEXCELのコントロールに悪影響を与えてしまうようです。 そこで、VB6で作成するプログラムの中にEXCELを単独で起動出来ないようにブロックするコードを入れられないかと考えています。 良い方法がありましたらご教授下さい。

質問者が選んだベストアンサー

  • ベストアンサー
  • piroin654
  • ベストアンサー率75% (692/917)
回答No.1

以下のサイトの回答はどうですか。 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1119740501

ken_yosi0211
質問者

お礼

早速の回答ありがとうございます。 ご紹介のところのソースだけをコピーして試してみましたが、実行時にエラーが出て確認出来ませんでした。（hwndLast = GetNextWindow(Application.hWnd, GW_HWNDLAST)のところで実行時エラー　オブジェクトが必要です） API関連はほとんど無知の領域なのでエラーを消す方法もよくわからず。 このソースを使えば確実に他で起動されようとしているExcelを検知するサンプルなんてのはどこかにないものでしょうか。。。

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

関連するQ&A

  • VBからEXCELを起動する

    VBよりExcelを起動するプログラムで困っています。 １．VBよりGetObject関数でTest.xlsを開く ２．Test.xls内のAuto_Openマクロでパラメータファイルをよみ、そこに指定されているエクセルファイルを新しいブックでを開く ということをしたいのですが(「マクロを有効にする」のダイアログは表示されてもかまわないです)、何故かTest.xlsが開いたと思ったらすぐ閉じてしまいます(Excel自体は終了してないですべてのワークシートが閉じた状態)。 Auto_Openマクロは走ってるようなのですが、ついでにCloseマクロも走ってしまいます。 ちなみにTest.xlsを単体で動かしたときは問題なく動くのです・・・。 以前はVB4＋Excel95の環境でAPI(CreateProcess)を使用し同作業を行っていたのですが、そのAPIが長いファイル名のスペース(OFFICEがある「Program File」のスペース)を認識しないそうで、この方法が使えないということでGetObjectを使用してみたのですが・・・。 何か根本的な間違いをしているのか、それともコードにエラーがあるのかさっぱりわからずお手上げです。 うまく疑問点を説明できているか不安なんですが、わかる方、どうかご指導願います。 よろしくお願いします。 ---------------------------------------- ＯＳは、Windows 2000 アプリケーションは、Excel 2000 です ----------------------------------------

  • VB6.0 で CSVファイルをＥＸＣＥＬで起動

    ＶＢ初心者です。 質問内容なのですが、 ＶＢで「ドライブ／ディレクトリ／ファイルリストボックス」を用いて、ファイルボックスから表示されたファイルをクリックしてＣＳＶファイルをＥＸＣＥＬで起動したいプログラムを作成したいのですが、 ＣＳＶファイルをクリックしたときにＥＸＣＥＬで起動する部分のプログラムがわかりません。 言葉足らずの部分が多々あるかと思いますが、手が空いたときにでも、御教授を宜しくお願い致します。

  • ＶＢでのＥｘｃｅｌ操作

    VB6.0を使用してExcelを操作するプログラムを作成しています。 Excelブックを全画面表示させて、右側に小さめのフォームを表 示させるのですが、Excelブックの方をクリック（アクティブ） したときにもフォームがExcelの手前に見えている状態にさせる にはどうしたらよいのでしょうか？ いろいろ試みましたが、どうしてもフォームが後ろにいってしま います・・・。

  • VBからExcelに書き込む方法

    こんにちは。VB6.0(SP5),Excel2000,Win2000でVBの勉強をしています。 VBでコマンドボタンを押した時に、テキストボックスのデータを、Excelに書き込みたいと思っています。 特定のExcelに書き込むことは「GetObject」で出来たのですが、名前がわからない場合はどうしたらよいのでしょうか？ ※ExcelはVBから起動したものではなく、人が任意のファイルを起動しています。Excelの名前はわかっていません(任意なので、何かわかりません） このような場合に、VBから書き込むのは可能なのでしょうか？ よろしくお願いします。

  • EXCELマクロでVB6.0のコードを使う方法

    OSはWin XP Home, EXCEL2002を使用しています。 又、開発ツールはVB6.0とVB.Netの両方を持っています（持っているだけで、ほとんど使ったことはありません）。 現在、EXCELでマクロを作っているのですが、足りない機能があり、知り合いから「自由に使っていいよ」という事でVB6.0のソースコードをもらいました。 このソースコードは単体で動かすと、自分の欲しい機能が全て含まれています。これをうまくエクセルマクロに取り込める方法はないでしょうか？ 受け取ったソースコードを私が理解できれば、EXCELで動くように書き換えられるのですが、内容が難しいため実行不可能な状況です。 何かいいアドバイスがあればお願いいたします。

  • VBでExcelが起動されているか知りたい

    環境 winXP Office2000 Excel VB6.0 sp5 VBからExcelが起動されているか知りたいのです。 【状況１】 [a.xls]を起動している状態で下記を実行すると問題なく起動が確認できます。 【状況２】 [a.xls][b.xls]を起動してて[b.xls]が前面にある場合は下記を実行しても[a.xls]を探せません。 またウインドウを最大化にしていない場合も"Microsoft Excel -"という文言がいらない？せいか探せません。 [FindWindowEx]を使用すればできるのかと思いましたがイマイチ使い方が分からず困っています。 よろしくお願いします。 'sampleソース--------------------------------------------- hwnd = FindWindow("XLMAIN", "Microsoft Excel - a.xls") If hwnd = 0 Then Msgbox(" 0 は、Excel が起動していないことを示します。") Else Msgbox(" 起動中") End If 'sampleソース---------------------------------------------

  • VBからExcelが起動しません

    Ｅｘｃｅｌファイルを開くプログラムをＶＢで作成したのですが １つのパソコンだけ実行時エラー5が発生してＥｘｃｅｌを起動できません どなたかお助けください プログラムはこんなかんじです WKPATH = "D:\Program Files\Microsoft Office\Office\EXCEL.EXE " & "　c:\a.xls" exl = Shell(WKPATH, 1) ちなみにエラーが発生するパソコンはNT4.0sp6です

  • VB.NETのリソース内のEXCELを開く方法

    環境 　WindowsXpPro VB2008EE Excel2007 VB.NETのリソースに登録したExcelファイルをプログラム中から開く(呼び出す)コードを探しているのですが、なかなか見当たりません。 MSDNも探しましたが、探し方が悪いのか見つかりません。 My.Resources.ResourceManager.GetObjectなどを使うのでしょうか？ いずれにせようまくいきません。 御存じのかたがいらっしゃいましたらぜひ教えてください。 よろしくお願いいたします。

  • VBによるEXCELの書き込み

    お世話になっております VB2010でのEXCEL書き込みで質問です 今、VB2010で、EXCELに書き込む処理を行っています EXCELの参照を追加はせず、Object型にEXCELをセットして、EXCEL参照がなくても使用できるようになっています 問題は、VB2010でEXCELでファイルを書き込み中にスタートメニュー等からEXCELを開き、そこから他のEXCELファイルを開くとVBで実行中のEXCELも開いてしまい、そのVB2010での実行中のEXCELを閉じるとVBの方でエラーが起きてしまいます VB2010で使用するEXCELを、スタートメニューから開いたEXCELが使用しないようにすむ方法はありますでしょうか

  • VBからＥｘｃｅｌのアクティブセルの位置を知る方法

    VB6でExcel2000のワークシートを操作するプログラムを作成しています。次のようなことをやりたいと思ってます。 (1)Excelのワークシートを開く (2)ワークシートの1点をクリックして、アクティブセルとする。（例えばA1) (3)VBのプログラムのボタンを押すと、アクティブセルを基点に３×３を選択範囲とする。 そこで次のようなプログラムを書いてみました。 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = GetObject(, "Excel.Application") If Err.Number Then MsgBox "Excel が起動されていません。" Err.Clear Else ' MsgBox "Excel はすでに起動中です。" Set xlBook = xlApp.Workbooks.Item(1) Set xlSheet = xlBook.Worksheets.Item(1) 　　　　'アクティブセルを取得する 　　　　'アクティブセルを３ｘ３に拡張する計算 xlSheet.Range("3x3に拡張した範囲").Select Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End If しかし、アクティブセルを取得する方法がわかりません。誰か教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する