Dim strFile As String
    strFile = Dir( "d:\temp\*.xls" )
    Do Until strFile =  ""
        Dim wbname As String
        wbname = " d:\ПЛАН\ " & strFile
        x.Workbooks.Open wbname
        x.Visible = False

        Dim ws As Worksheet
        wsi = 0 
        For Each ws In x.Worksheets
            'Debug.Print ws.Name
            wsi = wsi +  1 
            wsname(wsi) = ws.Name
        Next ws
        x.Workbooks(strFile).Close SaveChanges:=False

        Dim ii As Long
        For ii =  1  To wsi
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,  "_plan_2004_temp ",  wbname, False, wsname(ii) & " !A:AE"
        Next ii

      strFile = Dir


    Loop