Excel not closing files

• Remove From My Forums

• Вопрос

• I work on a network and sometimes move from building to buiding or work from home.  When I try to open files sometimes I get the message that the file is already opened by another user…but that isn’t true. I think excel is not closing my files down
  properly because the network still thinks they are open. Also, excel is taking 100% of processing space just to open a file, sometimes for a few seconds, sometimes more, but many times, excel won’t open because there is not enough space to open a small spreadsheet. 
  it’s been blamed on my spreadsheets and large spreadsheets, too many formulas, but it will blow up sometimes just opening a small file also. 

  Please help me fix this.  I have been making sure that I shut down when I go from one building to another or leave for home.  but I am till getting this message.  Once I have opened and  closed about 4 or 5 files, I know pretty soon it
  is going to deny being able to handle any more work.

2

• Remove From My Forums

• Question

• I am creating a workbook using Transferspreadsheet in MS Access 2010 VBA  Running under Windows 7 Enterprise. I am removing the headings from the workbook and copying a new row of headings with specific formating from another workbook
  When I close the workbook in VBA and then try to open the workbook in Windows Explorer I get a message that the file is open. It is not clear what is causing the file to remain open. Here is my code:

  Private Sub cmdTemplate_Click()
      Dim varFile As Variant
      Dim strvarFile As String
      Dim strRange As String
      Dim strName As String
      Dim strNewCol As String
      Dim strLastCol As String
      Dim strRangeOrigCols As String
      Dim strRangeDestCols As String
      Dim strPath As String
      Dim strFullPath As String
      Dim xlApp As Excel.Application
      Dim xlWB1 As Excel.Workbook
      Dim xlWB2 As Excel.Workbook
      Dim wk1 As Worksheet
      Dim wk2 As Worksheet
      Dim rData As Range
      Dim rData1 As Range
      Dim rData2 As Range
      Dim intLastCol As Integer
      Dim intCol As Integer
      Dim lst As Long
      Dim lngColumn As Long
      Dim bolFiletoProcess As Boolean

      strPath = «J:ServiceMB EnrollmentENROLLMENTIREProd»
      strName = Dir(strPath, vbNormal)
      strFullPath = strPath & strName

      ‘turn off alerts for query verification
      DoCmd.Hourglass True
      DoCmd.SetWarnings False

      bolFiletoProcess = False

      Do While strName <> «»
          If strName <> «CMS Universe Templates.xls» Then
              Kill (strFullPath)
          End If
          strName = Dir
          strFullPath = strPath & strName

         
      Loop

     
       If IsNull(Me.txtFrom) Or IsNull(Me.txtTo) Then
          MsgBox «Please select a date range», vbOKOnly, «Queries»
          Me.txtFrom.SetFocus
      Else

         
          varFile = «J:ServiceMB EnrollmentENROLLMENTIREProdCMS Universe Template_» & Format(Date, «mmddyyyy»)

         
          DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
                  «qryCMSUniverseTemplate», varFile

         
          strvarFile = varFile & «.XLS»
          ‘Open workbook that was the results of Transferspreadsheet
          Set xlWB1 = Workbooks.Open(strvarFile, , False)

        
         Set wk1 = xlWB1.Worksheets(«qryCMSUniverseTemplate»)

        
         wk1.Activate
         strName = ActiveSheet.Name
         Rows(«1:1»).Select
         strName = ActiveSheet.Name
         intLastCol = xlLastCol(strName)
         strLastCol = ColumnNumberToLetter(intLastCol)
         ‘Delete current headings
         Selection.Delete Shift:=xlUp
         ‘Insert new line for headings from CMS Universe Template
         Rows(«1:1»).Select
         Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

        
         Set rData1 = xlWB1.Sheets(«qryCMSUniverseTemplate»).Range(«A1:AH1»)

        
        ‘Open CMS Universe Templates that has column headings
         Set xlWB2 = Workbooks.Open(«J:ServiceMB EnrollmentENROLLMENTGAugustIRE DatabaseDevelopmentCMS Universe Templates.xls», , False)

        
        
         Set wk2 = xlWB2.Worksheets(«IRE»)
         wk2.Activate

        
         For intCol = 1 To intLastCol
              strNewCol = ColumnNumberToLetter(intCol)
              strRangeOrigCols = strNewCol & «2» & «:» & strNewCol & «2»
              strRangeDestCols = strNewCol & «1» & «:» & strNewCol & «1»
              xlWB2.Worksheets(«IRE»).Range(strRangeOrigCols).Copy _
                  Destination:=xlWB1.Worksheets(«qryCMSUniverseTemplate»).Range(strRangeDestCols)
         Next intCol

        
         DoEvents

        
         xlWB2.Close

        
         Set xlWB2 = Nothing

        
         wk1.Activate
         xlWB1.Save
         xlWB1.Close

       
         Set xlWB1 = Nothing

        
         MsgBox «Done», vbOKOnly, «Create Template»

   
      End If

     
      DoCmd.Hourglass False
      DoCmd.SetWarnings True

     
     
  End Sub