Lỗi 'Đăng ký ngoài phạm vi' khi chọn phạm vi

Tôi đang gặp lỗi VBA ( Run-time error '9': Subscript out of range) khi tôi đang cố gắng chọn một sổ làm việc và sau đó là một ô trong một trang tính trong sổ làm việc đó.

this_workbooklà chính xác, và sao chép và dán đầu ra vào Runkết quả Windows trong việc mở sổ làm việc. data_worksheetcũng đúng

this_workbook = ThisWorkbook.Path & "\" & ThisWorkbook.Name

Debug.Print "Workbook name - " & this_workbook & vbCrLf
Workbooks(this_workbook).Sheets(data_worksheet).Range("A1").Select

Có ai biết tôi đang làm gì sai không?

microsoft-excel-2007 vba

— David
nguồn

FYI: Nếu câu hỏi của bạn cụ thể về mã bạn đã viết, (như câu hỏi này), bạn sẽ có được đối tượng rộng hơn sẵn sàng và có thể trả lời bằng cách hỏi về Stack Overflow thay vì Super User.

— Daniel

@DanielCook - Tôi gặp vấn đề nan giải đó mỗi khi tôi đăng bài về VBA. Tôi đã được nói về oppisite chính xác trong quá khứ và tôi đã thấy rằng, khi phần lớn các chuyên gia Office đi lang thang trên diễn đàn này, các câu trả lời có thể ít hơn, nhưng thường tốt hơn.

— David Gard

Bạn không thể chọn Phạm vi trong Bảng tính không hoạt động.

Ngoài ra, gọi bằng cách sử dụng Workbook(this_workbook)quá phức tạp mã của bạn.

Hãy thử thay thế mã của bạn bằng mã này (Giả sử data_worksheet thể hiện tên hoặc số bảng tính):

With Thisworkbook.Sheets(data_worksheet).
    .Activate
    .Range("A1").select
End with

Bây giờ hãy nhớ rằng mã này không thực sự làm gì ngoài việc chọn một ô trong một trang cụ thể, vì vậy macro này không đặc biệt hữu ích.

— Daniel
nguồn

Cảm ơn bạn đã giúp đỡ. Thấy rằng bạn đã kích hoạt trang tính trong sổ làm việc chứ không chỉ là sổ làm việc khiến nó nhấp chuột, như tôi đã ở trên trang tính sai! Và FYI, vĩ mô làm được nhiều hơn thế, đây chỉ là sự dọn dẹp ở cuối chức năng.

— David Gard

Tôi chắc chắn rằng cuối cùng bạn sẽ làm một cái gì đó khác. Bạn chỉ không chia sẻ phần đó. Tôi hy vọng bạn có được phần còn lại làm việc mà không có vấn đề.

— Daniel