Vẫn lỗi khó hiểu khi copy sheet

[concua]

Về giới hạn số lượng worksheet, các bác xem ở đây
2003: http://office.microsoft.com/en-us/excel/HP051992911033.aspx ;
2007: http://office.microsoft.com/en-us/excel/HP100738491033.aspx?pid=CH101030621033#WorksheetWorkbook;
đều là "Limited by available memory"
và giới hạn memory ở đây: http://www.decisionmodels.com/memlimitsc.htm

 

[longnh]

Cuối cùng thì cũng có trả lời. hĩ mà anh Hướng dùng gì nhiều sheet thế??

 

[hienhoa]

Bạn thử thêm 1 dòng lệnh để có thể dừng chương trình, tôi đã thử và kết quả tốt cụ thể như sau:
Sub ThemSheet()
i = 1
Do
ThisWorkbook.Sheets(1).Copy After:=ThisWorkbook.Sheets(1)
Sheets(1).Cells(1, 1) = i
If i Mod 100 = 0 Then ThisWorkbook.Save
i = i + 1
Exit do
Loop
End Sub
Bạn thử xem. Chúc bạn thành công

 

[DOSNET]

...
If i Mod 100 = 0 Then ThisWorkbook.Save
i = i + 1
Exit do
Loop
End Sub

Ý bạn là copy xong 100 sheet thì dừng lại ? nếu dung lượng sheet lớn, 50 sheet đã tràn bộ nhớ rồi thì giải pháp này có sử dụng được ?

 

[PhanTuHuong]

Bạn thử thêm 1 dòng lệnh để có thể dừng chương trình, tôi đã thử và kết quả tốt cụ thể như sau:
Sub ThemSheet()
i = 1
Do
ThisWorkbook.Sheets(1).Copy After:=ThisWorkbook.Sheets(1)
Sheets(1).Cells(1, 1) = i
If i Mod 100 = 0 Then ThisWorkbook.Save
i = i + 1
Exit do
Loop
End Sub
Bạn thử xem. Chúc bạn thành công

Có thể thay i Mod 50 = 0 là được, cái này giống như ví dụ trong microsoft, nhưng dùng rất bất tiện vì phải điều khiển từ workbook khác mới được, còn từ bản thân thì không ổn.