Excel-fil lukkes ikke efter TransferSpreadsheet.

hvilken kode bruger du til at hente data!~)

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "t_temp", sti, no, ugedag & "!I25:I25"

Måske kan du gøre vha følgende modul:

Option Compare Database
Option Explicit

Public Sub TranferExcelWorkSheet(strSource As String, _
            strSheet As String, strTable As String)
'Requires a Reference to to Excel
'Requires this ErrorHandler
'Usage: Call TranferExcelWorkSheet("C:\2.xls", "Sheet3", "tblTest")
On Error GoTo ErrorHandler
Dim msExcel As Excel.Application
    Set msExcel = GetObject(Class:="Excel.Application")
    'msExcel.Visible = True 'If you want to see whats going on for testing
    msExcel.Visible = False
    msExcel.Workbooks.Open strSource
    ' What worksheet(tab) do you want active
    msExcel.Worksheets(strSheet).Activate
    ' OR -- not sure which is correct, both work!
    'msExcel.Sheets(strSheet).Activate
   
'You may need this first
'Save the current layout! Excel always remembers the last tab used.
    '    msExcel.ActiveWorkbook.Save
'You may need to close, to import data.
'You need to test this
    '    msExcel.ActiveWorkbook.Close
   
    ' Transfer the worksheet
'    DoCmd.TransferSpreadsheet acImport, 8, strTable, strSource, True, ""
    'Close the workbook
    msExcel.ActiveWorkbook.Close
    ' Close / Exit Excel
    msExcel.Quit
    Set msExcel = Nothing

Exit_TranferExcelWorkSheet:
Exit Sub

ErrorHandler:
    ' Create Excel for the first time if it is not active
    If Err.Number = 429 Then
        Set msExcel = CreateObject("Excel.Application")
        Err.Clear ' Clear Err object in case error occurred.
        Resume
    Else
    MsgBox Err.Number & " " & Err.Description, vbCritical, "Error"
    End If
    Resume Exit_TranferExcelWorkSheet

End Sub

eller...

Dim ExcelApp As Object
Dim Wbk As Object

Set ExcelApp = CreateObject("excel.application")
Set Wbk = ExcelApp.Workbooks.Open "Din.xls"


Kode


Wbk.Close
ExcelApp.Quit
Set Wbk=Nothing
Set ExcelApp=Nothing

weekend!~)

Jeg er bange for det !!!!

Ja, sorry. Jeg prøver det på mandag når jeg kommer på arbejde. Håber det er ok :)

I får point for ulejligheden, men jeg er ikke helt sikker på at det var løsningen jeg søgte.

Jeg har rimeligt meget kode som skal laves om hvis jeg skal gøre det som I foreslår, og det kan jeg desværre ikke få tid til i øjeblikket.

Det er da lidt ringe at en funktion som transferSpreadsheet bare efterlader filen åben.

Jeg kan da ikke se andet, end at du kan bruge subben blot du udvider med ugedag & "!I25:I25" som du sætter ind parameterlisten sm f.eks. en range ???

Begge svar lukker efter transaktionen msExcel.ActiveWorkbook.Close/Wbk.Close

Henrik