Khắc phục lỗi Subcrip out of ranger

[My 9914]

Các cao nhân có thể giúp em cách khắc phục lỗi này được không ạ, em tìm hiểu cách khắc phục biết được là có thể một phần do cách đưa file/ khai báo không đúng mảng cần lấy, tuy nhiên vẫn không khắc phục được lỗi sai ạ
Em mới chân ướt chân ráo, nên cần phải học hỏi nhiều hơn, mong nhận được chỉ giáo ạ.

 

[ptm0412]

Sheet "Material Thermal Faxar" có tồn tại không, hay có gõ đúng tên không?

 

[My 9914]

Sheet này có tồn tại, tên mình copy qua nên cũng đúng ạ

 

[HieuCD]

View attachment 255818View attachment 255822
Các cao nhân có thể giúp em ách khắc phục lỗi này được không ạ, em tìm hiểu cách khắc phục biết được là có thể một phần do cách đưa file/ khai báo không đúng mảng cần lấy, tuy nhiên vẫn không khắc phục được lỗi sai ạ
Em mới chân ướt chân ráo, nên cần phải học hỏi nhiều hơn, mong nhận được chỉ giáo ạ.

viết lại
set ws_1=worksheets("Material Thermal Faxar")

 

[My 9914]

viết lại
set ws_1=worksheets("Material Thermal Faxar")

Dạ, nó vẫn báo lỗi hệt như trên ạ

 

[HieuCD]

Dạ, nó vẫn báo lỗi hệt như trên ạ
View attachment 255823

Có thể tên sheet "Material Thermal Faxar" sai
Viết lại kiểu khác
viết lại
set ws_1=sheet1
hay
set ws_1=sheet2 gì gì đó

 

[befaint]

vẫn báo lỗi

Lỗi là đúng rồi.

Set workbook vào chỗ workbooks.open ấy.

Chép code hết lên đây. Cái hình xấu điên xấu đổ có làm ăn gì được đâu.

 

[ptm0412]

Lỗi là đúng rồi.
Set workbook vào chỗ workbooks.open

Nếu Workbook.Open không lỗi thì workbook vừa mở là active workbook, câu lệnh tiếp theo không có workbook dẫn đầu thì bị hiểu là activeworkbook, chưa bị lỗi

 

[befaint]

Nếu Workbook.Open không lỗi thì workbook vừa mở là active workbook, câu lệnh tiếp theo không có workbook dẫn đầu thì bị hiểu là activeworkbook, chưa bị lỗi

Vậy đáp án là bài #3 thôi anh.

 

[My 9914]

Lỗi là đúng rồi.

Set workbook vào chỗ workbooks.open ấy.

Chép code hết lên đây. Cái hình xấu điên xấu đổ có làm ăn gì được đâu.

Dạ, em xin bổ sung thêm ạ, em cảm ơn bạn đã chỉ ạ.
------------------------------
------------------------------
Sub Example()
Dim wb As String
Dim ws, ws_1 As Worksheet

With Application
.Calculation = xlCalculationManual
.EnableEvents = True
.ScreenUpdating = False
End With
'-------------
'-------------
wb = ActiveWorkbook.Name
Set ws = Workbooks(wb).Worksheets("Sheet1")

Workbooks.Open Filename:="J:\Production Share\Data Entry\AHP\Material & Plan Non RFID\Ke hoach don hang theo cell - AD .xlsb", UpdateLinks:=1, ReadOnly:=True
Set ws_1 = Workbooks("Ke hoach don hang theo cell - AD .xlsb").Worksheets("Material Thermal Faxar")

ws.Cells(1, 1) = ws_1.Cells(15, 3)
'-------------
'-------------
With Application
.Calculation = xlCalculationManual
.EnableEvents = True
.ScreenUpdating = False
End With
End Sub

 

[befaint]

Làm sao đặt được tên File có khoảng trắng ở cuối cùng hay vậy?

 

[ptm0412]

Làm sao đặt được tên File có khoảng trắng ở cuối cùng hay vậy?

View attachment 255834

Bình thường mờ.

 

[befaint]

Bình thường mờ.

View attachment 255835

Anh gửi file đó lên em xem với.

 

[truongvu317]

Bình thường mờ.

View attachment 255835

thì nó vốn bình thường mà bác, ký tự trắng thì có bị phạm "húy" trong đặt tên đâu, bác đặt là "A B C .xls " còn được.

 

[ptm0412]

Anh gửi file đó lên em xem với.

Mở được bình thường mờ

 

[befaint]

Mở được bình thường mờ

Anh gửi file đó lên em xem với.

Cái hình em không tính. Em còn đặt được tên file không có cái gì mà nhìn luôn ấy.

Vậy nên nếu đúng là anh đặt được tên file có khoảng trống ở cuối cùng thì gửi lên em tham khảo với.

 

[ptm0412]

Anh gửi file đó lên em xem với.

Cái hình em không tính. Em còn đặt được tên file không có cái gì mà nhìn luôn ấy.

Vậy nên nếu đúng là anh đặt được tên file có khoảng trống ở cuối cùng thì gửi lên em tham khảo với.

Từ thời DOS đã đặt được tên file "không có cái gì mà nhìn" rồi.
File tải từ GPE về, chỉ sửa thêm khoảng trắng thôi

 

[VetMini]

Lỗi là đúng rồi.
...

Nhìn kiểu làm ăn ẩu tả như vầy, giúp không có hứng.

 

[ptm0412]

Từ thời DOS đã đặt được tên file "không có cái gì mà nhìn" rồi.
File tải từ GPE về, chỉ sửa thêm khoảng trắng thôi

File mới tạo 22/03/2021 18:36

 

[My 9914]

Làm sao đặt được tên File có khoảng trắng ở cuối cùng hay vậy?

View attachment 255834

file này của bộ phận khác, mình chỉ làm báo cáo th ạ