投稿日	： 2004/06/23(Wed) 17:33
投稿者	： くるりん
Ｅメール	：
ＵＲＬ	：
タイトル	： エクセルが開放されません（TT

こんばんわ、お世話になっております。
VBでDAOをつかってエクセルの表をアクセスの表へインサートするという作業をしております。
下記のコードで行っているのですが、メモリからエクセルが開放されません（TT


Public sqlstr As String
Dim work_que As DAO.QueryDef
'xls用
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As String
Dim xlsconnect As String

  With CommonDialog1
      .CancelError = True
      .Flags = cdlOFNPathMustExist Or cdlOFNFileMustExist
      .Filter = "xls,csvファイル(*.xls;*.csv)|*.xls;*.csv;|"
        
      .ShowOpen          '[ファイルを開く］ダイアログの表示
        
      '[開く]ボタンをクリックしたらファイルパス退避
      filepath = .FileName
      
  End With

  Set xlapp = CreateObject("Excel.Application")   'エクセルオブジェクトセット
  Set xlbook = xlapp.Workbooks.Open(filepath)     '対象ファイルオープン
  xlsheet = xlbook.Sheets(1).Name   '１個めのシート名
        
  xlsconnect = "[Excel 8.0;Database=" & filepath & "]."
      
  sqlstr = "Insert into MST " & "Select * from " & xlsconnect & "[" & xlsheet & "$]"
  Debug.Print sqlstr
  work_que.SQL = sqlstr
  work_que.Execute
        
  xlapp.Quit
  Set xlbook = Nothing
  Set xlapp = Nothing
'---------------------------------------------------------------------------------------

ここのExcel&Word関連、を見比べてみたのですがきちんと宣言されているはずなのに
Set xlapp = Nothing 以降に終了して、元のエクセルが開けずタスクマネージャーにExcelが残ってしまっています。

おかしいところのご指摘をお願いいたします

★ - エクセルが開放されません（TT - くるりん 06/23-17:33No.9400
• Re: エクセルが開放されません（TT - 花ちゃん 06/23-18:50 No.9402
  • ありがとうございました〜 - くるりん 06/24-11:20 No.9412