error 1004 - unable to save file

[rickmeister]

dear, can someone help out please?

I am unable to save the file. I get following error 1004 document not saved

ActiveWorkbook.SaveAs Filename:=xlsname, FileFormat:=xlOpenXMLWorkbookMacroEnabled, ConflictResolution:=xlLocalSessionChanges

Option Explicit
Sub Upgrade()
Application.DisplayAlerts = False
Dim tempSheet As Worksheet
Dim ws As Worksheet
Dim wb As Workbook
Dim FileToOpen As String
Dim Sheet1 As Worksheet
Dim wb2 As Workbook
Dim total As Integer
Dim xlsname As String

Application.DisplayAlerts = False


Set wb = ActiveWorkbook ' Or ThisWorkbook, or Workbooks("filename.xlsx"), etc.
Set tempSheet = wb.Sheets.Add
Application.DisplayAlerts = False
For Each ws In wb.Worksheets
    Application.DisplayAlerts = False
    If ws.Name <> tempSheet.Name Then
        ws.Delete
    End If
    Application.DisplayAlerts = False
Next

'Now open the other workbook for which the sheets need to be copied:
FileToOpen = Application.GetOpenFilename

If FileToOpen = Empty Then
    MsgBox "No File Specified.", vbExclamation, "ERROR"
    Exit Sub
Else
    Set wb2 = Workbooks.Open(Filename:=FileToOpen)

   For Each Sheet1 In wb2.Sheets
   
        With Sheet1.UsedRange
            Sheet1.Copy after:=wb.Sheets(wb.Sheets.Count)
            End With
    Next Sheet1

End If
'remove tempsheet
tempSheet.Delete

'close copied content file (filetoopen)
wb2.Close

' save generated file as new file
xlsname = Application.GetSaveAsFilename & "xlsm"

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=xlsname, FileFormat:=xlOpenXMLWorkbookMacroEnabled, ConflictResolution:=xlLocalSessionChanges

Set wb = ActiveWorkbook
ActiveWorkbook.Close False

End Sub

[davesexcel]

In no way did I test the code, but I see

& "xlsm"

Would it not be

 & ".xlsm"

[rickmeister]

still not working, getting same error 1004 document not saved...

[bakerman2]

Try this way.

xlsname = Application.GetSaveAsFilename
xlsname = xlsname & "xlsm"

Also you switch off DisplayAlerts 4 times. Where do you switch it back on again???

[rickmeister]

when I set the display alert to true - i get following error message : there isn't enough memory to complete this action. Try using less data or closing other applications. T o increase memory availability consider: using a 64 bit version of microsoft excel or adding memory to your device

so that's the reason why the document cannot be saved , but how to solve this one?

[rickmeister]

Could it be I need to copy only rows with data rather and full sheets? I entered though Sheet1.Usedrange... How would I need to adapt the code to use less memory?

[rickmeister]

solved - if I clear content of the sheet and copy the content I do not get the error msg.