VB6からExcelのPasteSpecialﾒｿﾞｯﾄを実行するとExcelﾌﾟﾛｾｽが解放されない。

[teraman]

初めて投稿させていただきます。
VB6でExcelを制御するﾌﾟﾛｸﾞﾗﾑを作成していますが、
ｴｸｾﾙｱﾌﾟﾘｹｰｼｮﾝｵﾌﾞｼﾞｪｸﾄのPasteSpecialﾒｿﾞｯﾄ を実行したあと、
Excelを閉じるとExcelﾌﾟﾛｾｽが残ったままで解放されません。
どのように解決したらよいか教えていただけないでしょうか？

VB6でのｽｸﾘﾌﾟﾄｻﾝﾌﾟﾙは以下の例の通りです。

' ｺﾏﾝﾄﾞ１でExcelﾌﾞｯｸを開きます。
' ｺﾏﾝﾄﾞ2でPasteSpecial を実行します。（このステップを実行しない場合問題ない。）
' ｺﾏﾝﾄﾞ3でExcelを閉じます。

Option Explicit
'ｴｸｾﾙｵﾌﾞｼﾞｪｸﾄ
Private xlNewApp As Excel.Application
Private xlNewBook As Excel.Workbook
Private xlNewSheet As Excel.Worksheet

Private Sub Command1_Click()
Set xlNewApp = New Excel.Application
xlNewApp.Visible = True
xlNewApp.WindowState = xlNormal
xlNewApp.DisplayAlerts = False
Set xlNewBook = xlNewApp.Workbooks.Open("C:\A.xls")
xlNewBook.SaveAs "C:\B.xls"
End Sub

Private Sub Command2_Click()
Set xlNewSheet = xlNewBook.Sheets("Sheet1")
xlNewSheet.Range("A1:E5").Copy
'--------------------------------------------------
'この処理を実行すると、EXCELﾌﾟﾛｾｽが解放されない問題がある。
xlNewSheet.Cells(10, 10).PasteSpecial Paste:=xlPasteFormats
'---------------------------------------------------
xlNewApp.CutCopyMode = False
End Sub

Private Sub Command3_Click()
xlNewBook.SaveAs "C:\B.xls"
xlNewApp.Quit
Set xlNewApp = Nothing
Set xlNewBook = Nothing
Set xlNewSheet = Nothing
End Sub

[Kaoru Kodaka]

$B$+$*$/(B $B$G$9!#(B

$B!tH>3Q%+%J$O;_$a$^$7$g$&!#(B

On Wed, 1 Jun 2005 00:38:01 -0700

Post by teraman
Private Sub Command1_Click()
Set xlNewApp = New Excel.Application
xlNewApp.Visible = True
xlNewApp.WindowState = xlNormal
xlNewApp.DisplayAlerts = False
Set xlNewBook = xlNewApp.Workbooks.Open("C:\A.xls")
xlNewBook.SaveAs "C:\B.xls"
End Sub
xlNewBook.SaveAs "C:\B.xls"

$B",(B $B$N9T$r%3%a%s%H%"%&%H$7$F$_$F$/$@$5$$!#(B

---
MVP kaok = MVP.ChangeMvpCategory("for C# 2004-2005.");
kaok.Web = "http://www.antoine.st/";