Thêm tấm đến cuối workbook trong Excel (phương pháp thông thường không làm việc?)

Question

Đây là mã im VBA sử dụng để cố gắng thêm một tờ mới đến nơi cuối cùng trong bảng tính

mainWB.Sheets.Add(After:=Sheets(Sheets.Count)).Name = new_sheet_name 

Tôi thấy điều này trong một câu hỏi tương tự trên trang web này. Nó không hoạt động.

Tôi làm điều này trong một vòng lặp và mỗi trang tính được thêm vào vị trí thứ hai trong các trang tính. Có 2 tấm đó là vĩnh viễn ở đó (thông tin và tóm tắt) và sau đó tôi đi trước để thêm 5 hơn gọi là "thử nghiệm" từ 1 đến 5. Tôi luôn luôn kết thúc với tờ theo thứ tự:

Info, sheet5, sheet4, sheet3, sheet2, sheet1, Summary 

Nhưng những gì tôi muốn/đã mong là:

Info, Summary, sheet1, sheet2, sheet3, sheet4, sheet5 

(vòng lặp không tạo ra chúng theo thứ tự dự kiến ​​vì vậy vấn đề không phải là ở đó.)

Nếu tôi trao đổi các tờ tóm tắt và thông tin trước khi tôi bắt đầu sau đó họ ở những nơi đối diện khi tôi làm xong.

Tôi đang làm gì sai?

Answer 1

Hãy thử điều này

mainWB.Sheets.Add(After:=mainWB.Sheets(mainWB.Sheets.Count)).Name = new_sheet_name 

Answer 2

mainWB.Sheets.Add(After:=Sheets(Sheets.Count)).Name = new_sheet_name 

có lẽ nên được

mainWB.Sheets.Add(After:=mainWB.Sheets(mainWB.Sheets.Count)).Name = new_sheet_name 

Answer 3

Hãy chắc chắn để đủ điều kiện đầy đủ tờ của bạn mà workbook họ đang tham khảo!

mainWB.Sheets.Add(After:=mainWB.Sheets(mainWB.Sheets.Count)).Name = new_sheet_name 

Answer 4

Một sai lầm phổ biến là

mainWB.Sheets.Add(After:=Sheets.Count) 

dẫn đến Lỗi 1004. Mặc dù nó không phải là rõ ràng ở tất cả từ các tài liệu chính thức, nó quay ra rằng 'Sau' tham số không thể là một số nguyên, nó phải là một tham chiếu đến một trang tính trong cùng một sổ làm việc.