[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/08/09(Tue) 18:56
投稿者名:いしよし
Eメール:
URL :
タイトル:
[既存のエクセルファイルを開く]がうまく開かない
[環境]VB6.0(SP6)/ エクセル:2000 / OS:XP

はじめまして
VBからエクセルの作業が慣れてないので質問させてください。
VBでエクセルのファイルをコピーして、そのファイルを開く作業をしています。
こちらのサンプル集を参考に作成させて頂きましたが
[xlApp.Visible = True]のところでエクセルを表示させているのですが
おかしな表示がされます。(セルの部分が真っ暗でデータの表示がありません。)
デバックするのにもちゃんと表示させたいのですが、どのようにしたらよいでしょうか?

参照設定に[Microsoft Excel 9.0 Object Library]
          [Microsoft Office 11.0 Object Library]
をチェックをしています。

////////////////////////////////////////////////////
Private Sub cmdRun_Click()
  Dim xlApp  As Excel.Application
  Dim xlBook  As Excel.Workbook
  Dim xlSheet As Excel.Worksheet
    
    Dim sFile As string
    Dim sFile_NEW As string

    sFile="c:\前月.xls"
    sFile_NEW ="c:\今月.xls"

    '前月のxlsファイルをコピーして今月のxlsを作る
    FileCopy sFile, sFile_NEW

  Set xlApp = CreateObject("Excel.Application")

  Set xlBook = xlApp.Workbooks.Open(sFile_NEW) 
  Set xlSheet = xlBook.Worksheets(1)  
  xlApp.Visible = True  'Excelを表示

    〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
  〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

  '終了処理
  xlApp.Quit
  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing
End Sub

////////////////////////////////////////////////////

投稿時間:2005/08/10(Wed) 09:02
投稿者名:るしぇ
Eメール:
URL :
タイトル:
Re: [既存のエクセルファイルを開く]がうまく開かない
プロセスが残っているのでしょう。

タスクマネージャを立ち上げて[プロセス]タブの中から
EXCEL.EXE を全て終了させてから実行してみて下さい。

コードの書き方でプロセスが残ってしまう場合があります。
[VBからExcel及びWordを操作する時の注意事項]
hhttp://www.bcap.co.jp/hanafusa/VBHLP/caution.htm
[Excelが開放されない]
hhttp://www.bcap.co.jp/hanafusa/VBHLP/ExcelErr.htm
をもう一度ご確認下さい。

プログラムがエラーで落ちた場合などにもエクセルの
プロセスが残ってしまいます。タスクマネージャで
確認するクセを付けておきましょう。

投稿時間:2005/08/10(Wed) 09:29
投稿者名:いしよし
Eメール:
URL :
タイトル:
Re^2: [既存のエクセルファイルを開く]がうまく開かない
るしぇ様
回答をありがとうございました。
> プロセスが残っているのでしょう。
おっしゃるとおりプロセスにEXCEL.EXE が残っていた為でした。
注意事項等読んではいたのですが、再度注意していきたいと思います

ありがとうございました。