VB6.0用掲示板の過去のログ(No.1)－VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/01/23(Thu) 09:42 |
| 投稿者 | ： まさと |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 続-エクセルデータをMSFlexGrid上に |
こんにちは。
①昨日行っていたExcelのファイル名を指示して
②シート名を読込み
③選択したシートの内容をMSFlexGridに書き込む
処理ですが、
Dim xlApp As excel.Application
Dim xlBook As excel.Workbook
CommonDialog1.Filter = "Excelファイ|*.xls|"
CommonDialog1.ShowOpen
intFileName = CommonDialog1.FileName
Text1.Text = intFileName
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(intFileName)
For i = 1 To xlApp.Worksheets.Count
Combo1.AddItem xlApp.Worksheets(i).Name
Next i
DoEvents
xlBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
を実行した場合、パソコンによってEXCEL.EXEがタスク内で解放されていない現象があります。
解決策等をご存知の方が折られましたら教えていただけないでしょうか？
よろしくお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）