Excelデーモンインスタンス：Access VBA

Question

この問題は、現在多くの時間を費やしています。毎回アクセスを開始するコードを実行するたびに、ファイルの場所を読み込んだ後、そのファイルの場所をExcelで開き、変更して閉じます。私はこれが孤児を残していることが分かります。私は、インターネット上で提案されているすべての方法と可能な解決方法を試しましたが、何も助けてくれません。私のコードは以下の通りです。すべてのヘルプや提案は素晴らしいことだ：

Public Sub productdetailprinter() 

Dim i As Double 
Dim dbs As DAO.Database 
Dim recSet As Recordset 
Dim wb As Workbook 
Dim ws As Worksheet 
Dim tableName As String 
Dim recTable As Recordset 
Dim fld As DAO.Field 
Dim k As Integer 
Dim r As Integer 
Dim intformat As Integer 
Dim wrksht As Worksheet 
Dim wrkbk As Workbook 
Dim filelocation As String 
Dim xl As Excel.Application 


Set xl = CreateObject("Excel.Application") 
xl.Visible = True 

Set dbs = CurrentDb 
Set recSet = dbs.OpenRecordset("tbl_formList") 
Set wrkbk = xl.Workbooks.Open("<location>") 
Set wrksht = wrkbk.Worksheets("databaselinks") 
filelocation = wrksht.Range("C5").Value 

wrkbk.Close 
xl.Quit 
Set wrksht = Nothing 
Set wrkbk = Nothing 
Set xl = Nothing 
Set xl = CreateObject("Excel.Application") 
xl.Visible = True 
xl.Workbooks.Application.DisplayAlerts = False 
xl.Workbooks.Application.AskToUpdateLinks = False 
Set wb = xl.Workbooks.Open(filelocation & "\product_detail.xlsx") 
Set ws = wb.Worksheets("details") 
xl.Workbooks.Application.AskToUpdateLinks = True 
xl.Workbooks.Application.DisplayAlerts = True 

ws.Range("B3", Range("B3").End(xlDown)).Select 
xl.Selection.Clear 
ws.Range("C3", Range("C3").End(xlDown)).Select 
xl.Selection.Clear 
ws.Range("D3", Range("D3").End(xlDown)).Select 
xl.Selection.Clear 

i = ws.Columns("B").End(xlDown).Row 
i = i + 1 
Do Until recSet.EOF 

'code lines 

recSet.MoveNext 
Loop 

ws.Save 
wb.Close 
xl.Quit 
Set xl = Nothing 
Set ws = Nothing 
Set wb = Nothing 
recTable.Close 
recSet.Close 

End Sub 

Answer 1

あなたは正確に逆の順序でオブジェクトを閉じる必要があります。

' Also: 
Dim rng As Excel.Range 

Set xl = CreateObject("Excel.Application") 
xl.Visible = True 

Set wrkbk = xl.Workbooks.Open("<location>") 
Set wrksht = wrkbk.Worksheets("databaselinks") 
Set rng = wrksht.Range("C5") 
filelocation = rng.Value 

Set rng = Nothing 
Set wrksht = Nothing 
wrkbk.Close 
Set wrkbk = Nothing 
xl.Quit 
Set xl = Nothing 

これは私にテストされ、動作します：

Public Sub EditWorkSheet() 

    Dim xls  As Excel.Application 
    Dim wkb  As Excel.Workbook 
    Dim wks  As Excel.Worksheet 
    Dim rng  As Excel.Range 

    Dim Column As Integer 

    Set xls = New Excel.Application 
    Set wkb = xls.Workbooks.Open("c:\test\test.xlsx") 
    Set wks = wkb.Worksheets(1) 

    Set rng = wks.Range("C5") 
    rng.Value = 4 

    wkb.Close True, "c:\test\test1.xlsx" 

    Set rng = Nothing 
    Set wks = Nothing 
    Set wkb = Nothing 

    xls.Quit 

    Set xls = Nothing 

End Sub 

Answer 2

をいただき、ありがとうございます提案された解決策。これで4時間を過ごした後、私は範囲を参照していた方法でvbaが満足していないことに気付きました。

ws.Range（ "B3"、レンジ（ "B3"）。終了（xlDown））。 を選択するには、 ws.Range（ws.Range（ "B3"）として参照する必要があり、ws.Range（」 B3 "）。End（xlDown））。選択

これは魅力的なように機能します。Excelのインスタンスが終了し、それ以上のエラーはありません。 これで、誰かが時間を節約できることを願っています。

は