excel無法用可用資源完成此任務

Question

當我試圖將其中一個工作表中的數據複製到使用EXCEL 2007，WINDOWS 7中的以下代碼的新工作表中時，我面臨着錯誤「excel無法完成這項任務包含可用的資源，選擇更少的數據或關閉其他應用程序「。

當我關閉所有其他應用程序時，它顯示相同的消息。如何解決這個問題？請指教。

With ActiveSheet 
    .Range("A1").Select 
    .UsedRange.SpecialCells(xlCellTypeVisible).Copy 

End With 

With ThisWorkbook 
    Set ws = .Worksheets.Add(After:=.Sheets(.Sheets.count)) 
    NewSheet = ActiveSheet.Name 
End With 


With ActiveSheet 
    .Range("A1").Select 

    Selection.PasteSpecial Paste:=xlPasteColumnWidths 
    Selection.PasteSpecial xlPasteAll 
    .Range("A1").Select 

End With 

當我保存的XLS爲.xls的（97-2003），其工作的罰款。但我想運行更多的數據比65k

Answer 1

我測試你的代碼在一個新創建的Excel文檔，並複製80K行到一個新的工作表。 您的代碼工作...

但我做了它作爲宏子例程並運行多次檢查。

但你說過你保存過一次你的文檔作爲xls。也許你也受到了限制。

請創建一個新的Excel文檔，並始終將其保存爲xlsx ...