投稿日 | : 2003/11/19(Wed) 14:44 |
投稿者 | : うに |
Eメール | : |
URL | : |
タイトル | : Re^4: Excelアプリ終了後マウスポインタが戻らない |
> ' Call Sub_Set_Values(WKO_ExcelSheet)
> 上記の部分をコメントアウトしても同じですか?
> 私の環境では事象がおきないのですが?
>
> コメントアウトしても同じなら新規のファイルでの
> 状況を再現できるコードを投稿して下さい。
以下のコードで再現しました。
もちろんのことながら、これらはプロジェクトの一部のコードにすぎません
ので他のモジュールとの関連に起因するかもしれませんね。
全てのコードを検証していただくわけにもまいりませんので、勝手ながら
この件はここで一度凍結させてください。
ご多忙の中、細かなご指摘ありがとうございました。
------------------------------------------------------------------------------
Sub sub()
Me.MousePointer = ccHourglass
Private WKO_ExcelAppl As Object 'EXCELアプリケーションオブジェクト
Private WKO_ExcelBook As Object 'EXCELブックオブジェクト
Private WKO_ExcelSheet As Object 'EXCELシートオブジェクト
Set WKO_ExcelAppl = CreateObject("Excel.Application")
Set WKO_ExcelBook = WKO_ExcelAppl.Workbooks.Add
Set WKO_ExcelSheet = WKO_ExcelBook.Worksheets(1)
'ワークシートへ値をセット
WKO_ExcelSheet.Cells(1, 1).Value = "TEST"
WKO_ExcelAppl.Visible = True
WKO_ExcelBook.PrintPreview
WKO_ExcelAppl.Visible = False
WKO_ExcelBook.SaveAs App.Path & "\Test.xls"
WKO_ExcelAppl.Quit
Set WKO_ExcelAppl = Nothing
Set WKO_ExcelBook = Nothing
Set WKO_ExcelSheet = Nothing
Me.MousePointer = ccDefault
End sub