タイトル : エクセルのプレビューから元の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の画面に戻す事が出来るでしょうか? よろしくお願いします。 |