tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル エクセルのプレビューから元のVB画面に戻る方法
投稿日: 2011/06/07(Tue) 19:32
投稿者あさがお44
環境 WinXP エクセル2007 VB6.0
コードをまず書きます。


    Screen.MousePointer = 11
    Me.Enabled = False

    'データセット
    
    Me.Show        
    
    Set AppExcel = CreateObject("EXCEL.Application")
    AppExcel.Visible = False
    Set xlBook = AppExcel.Workbooks.Open(FILE_NM)
    retL = KY_SetXLAP(AppExcel)                        
    Set xlSheet = AppExcel.Worksheets(1)
    xlSheet.SELECT
    
    '帳票作成
    
    '保存
    xlBook.Save

    'プレビュー
    AppExcel.Visible = True
    xlSheet.PrintPreview
    AppExcel.Visible = False
    xlBook.Close
    Set xlSheet = Nothing
    Set xlBook = Nothing
    
    'エクセルの終了
    AppExcel.Quit
    Set AppExcel = Nothing
    
    Me.Enabled = True
    Me.A_CMB.SetFocus
    Screen.MousePointer = 0


上記プログラムの一部ですが、VBからエクセルを作成してプレビュー画面を表示しています。そして終了するとVBに帰ってきます。
それは出来ているのですが、問題は帰ってきた時にVBの元の画面以外の画面が表示される事です。
例えば、エクスプローラーからEXEをクリックしてこのPGを立ち上げたとしますよね。
それでこのPGの画面からいろいろ設定してプレビューのボタンを押して上記の処理を行ったとします。帰ってきた時にPGの画面になってほしいのにエクスプローラーの画面に戻ってきます。どうすればPGの画面に戻す事が出来るでしょうか?
よろしくお願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。