投稿日 | : 2002/10/16(Wed) 22:01 |
投稿者 | : KENKEN |
Eメール | : |
URL | : |
タイトル | : Ecxel で解放後もメモリ上に残る現状について |
初めまして。いつも参考にさせて頂いてます。
早速質問なのですが、VBからEXCElを開きあらかじめ準備しているTextBoxに値を
書き込む処理を作っていましたところ、解放してもメモリ上に残ってしまいました。
そこで、TextBoxではなくセルに書き込む用にしてみたらOKでした。
となるとやっぱり TextBox に書き込む所がまずいと思うのですが、HPには省略系は
ダメとあるのですが、正しい書き方がわかりません。
どなたか分かる方教えてください。よろしくお願いいたします。
( Selection.Characters.Text がダメなのでしょうか???多分... )
(抜粋)
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Set xlsApp = New Excel.Application
Set xlsBook = xlsApp.Workbooks.Open("ファイル名)
Set xlsSheet = xlsBook.Worksheets("シート名")
xlsSheet.Unprotect ("PassWord")
xlsApp.DisplayAlerts = False
With xlsSheet
.Shapes("txtNendo").Select: Selection.Characters.Text = "年度です"
.Shapes("txtTitle").Select: Selection.Characters.Text = "タイトルです"
.Shapes("txtDate").Select: Selection.Characters.Text = "日付です"
End With
xlsSheet.Save
xlsApp.Quit
Set xlsSheet = Nothing
Set xlsBook = Nothing
Set xlsApp = Nothing