投稿日 | : 2003/01/22(Wed) 15:37 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 続エクセルが残る |
新規プロジェクトで下記のサンプルだけを試して下さい。
問題なければコメントを解除して確認して下さい。
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("てすと用ファイル名 フルパスで")
' For i = 1 To xlBook.Worksheets.Count
' Combo1.AddItem xlBook.Worksheets(i).Name
' Next i
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
それでだめなら他の機種で試して見る
Excelを入れ替える