VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/06/25(Wed) 15:40
投稿者： こうじ
Ｅメール：
ＵＲＬ：
タイトル： EXCEL処理について

お世話になります。
二つほど質問があります。

1) VBにてEXCELの計算式を使用したい為、計算式が入力されたブックをコピーして、
  コピーしたブックを裏(非表示)で起動しています。

   起動後にコピー元ブックを起動すると、何故かコピーされたブックも表示されてしまいます。
  (全然関係ないブックを起動しても、コピーされたブックが表示されてしまう時がある。。。)

2) 上記の質問に関連するかもしれませんが、
  画面終了時にブックも終了しているのですが、全然関係ないブックも終了されてしまいます。

上記の現象の対処方法はありませんか？？
よろしくお願いします。

--------------------
環境 Windows2000 SP3
　　 VB6.0 SP5
　　 EXCEL2000 SP3
--------------------
'*** Form_Loadイベントにて *********************************
    ' Excelオブジェクトを作成
    Set xlApp = CreateObject("Excel.Application")
    ' Excelオリジナルファイル名
    strOrgFileNm = App.Path & "\" & "EXP.xls"
    ' TEMPディレクトリ取得
    strTempDir = Environ("TMP")

    ' 対象ファイル名作成
    strCopyFileNm = strTempDir & "\EXP_001.xls"

    ' オリジナルExcelからコピー
    FileCopy strOrgFileNm, strCopyFileNm
    ' コピー先ワークブックオープン
    Set xlBook = xlApp.Workbooks.Open(strCopyExcelFileName)

    ' ワークシートオープン
    Set xlSheet1 = xlBook.Worksheets(1)
    ' ワークシートオープン
    Set xlSheet2 = xlBook.Worksheets(2)
'***********************************************************

'*** Form_UnLoadイベントにて ********************************
    ' 変更を保存しない
    xlApp.DisplayAlerts = False
    Call xlBook.Close(False)
    ' Excelを終了
    xlApp.Quit
    ' オブジェクトの開放
    Set xlSheet1 = Nothing
    Set xlSheet2 = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
'***********************************************************

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -