| 投稿日 | ： 2004/09/21(Tue) 15:08 |
| 投稿者 | ： サマ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Excelが開放されない（注意事項は全て試しました） |
はじめまして。
既存のExcelファイルの1列目(A列)のデータを
コンボボックスの値として取得する際に、
取得はうまくいくのですが、
最後にExcelが開放されずにタスクに残ってしまいます。
どうすればよいでしょうか？
環境：win2k、VB6、Excel2002、IE6
Private Sub Form_Load()
On Error Resume Next
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim i
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("\\PC_name\File_name.xls")
Set xlSheet = xlBook.Worksheets(1)
i = 1
With xlSheet.Cells
Do
Combo1.AddItem .Item(i, 1).Value
i = i + 1
Loop Until .Item(i, 1).Value = ""
End With
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub