Làm sao để sửa lỗi "Unable to set the LineStyle property of the Border class" (1 người xem)

[phuocrobe]

Mình không hiểu lỗi này "Unable to set the LineStyle property of the Border class" có nghĩa là gì mà cứ bị hoài khi chạy đoạn code phía dưới.
Và còn 1 lỗi nữa là khi chạy code nếu không tìm thấy file thì nó báo lỗi thế này "The Microsoft Jet Database engine could not find the object 'link file'. Make sure the object exits and that you spell its name and the path name correctly" . Có cách nào để không hiển thị thông báo lỗi như thế này mà sẽ hiển thị thông báo là "Không tìm thấy file này trong thư mục" được không vậy?
Nhờ các anh chị giúp đỡ, em xin chân thành cảm ơn nhiều

Sub doichieu() Application.ScreenUpdating = False
Range("J9" & Range("J1000").End(3).Row + 1).ClearContents
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\DATA.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
Range("J9").CopyFromRecordset cn.Execute("SELECT f1,f12,f13,f31*1000,f40*1000,(f49+f59+f66)*1000,f91*1000 FROM [THA$A6:CM1000] where f1 >0")
Range("J9:J" & Range("J1000").End(3).Row).Value = "=row()-8"
Range("J9" & Range("J1000").End(3).Row).Borders.LineStyle = xlContinuous
Range("J91000").Select
Selection.Sort Key1:=Range("L6"), Order1:=xlAscending, Key2:=Range("K6") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End Sub

 

[phuocrobe]

Mình vừa cập nhật thêm file đính kèm ở trên, nhờ các anh chị giúp em với

 

[phuocrobe]

Ai biết vào giúp mình với, hix

 

[phuocrobe]

Sao không thấy ai giúp mình với nhỉ ?

 

[phuocrobe]

Chờ mãi không thấy ai giúp mình vậy nhỉ, ai đó cho mình biết lý do được không? Mình có gửi file gốc đính kèm mà.

 

[phuocrobe]

Bài này có post công khai không vậy? Sao không thấy ai giúp dc mình vụ này vậy? huhu

 

[quanluu]

Mình không hiểu lỗi này "Unable to set the LineStyle property of the Border class" có nghĩa là gì mà cứ bị hoài khi chạy đoạn code phía dưới.
Và còn 1 lỗi nữa là khi chạy code nếu không tìm thấy file thì nó báo lỗi thế này "The Microsoft Jet Database engine could not find the object 'link file'. Make sure the object exits and that you spell its name and the path name correctly" . Có cách nào để không hiển thị thông báo lỗi như thế này mà sẽ hiển thị thông báo là "Không tìm thấy file này trong thư mục" được không vậy?
Nhờ các anh chị giúp đỡ, em xin chân thành cảm ơn nhiều

Mình kiểm tra không thấy lỗi như bạn nói.

 

[phuocrobe]

Sao hay vậy. Máy mình nó có báo lỗi mà

Mình kiểm tra không thấy lỗi như bạn nói.

 

[phuocrobe]

Anh giúp em phần này với. khi chạy code nếu không tìm thấy file thì nó báo lỗi thế này "The Microsoft Jet Database engine could not find the object 'link file'. Make sure the object exits and that you spell its name and the path name correctly" .
Có cách nào để không hiển thị thông báo lỗi như thế này mà sẽ hiển thị thông báo là "Không tìm thấy file này trong thư mục" để giúp người dùng dễ hiểu bị lỗi ở đâu à.

Mình kiểm tra không thấy lỗi như bạn nói.

 

[quanluu]

Anh giúp em phần này với. khi chạy code nếu không tìm thấy file thì nó báo lỗi thế này "The Microsoft Jet Database engine could not find the object 'link file'. Make sure the object exits and that you spell its name and the path name correctly" .
Có cách nào để không hiển thị thông báo lỗi như thế này mà sẽ hiển thị thông báo là "Không tìm thấy file này trong thư mục" để giúp người dùng dễ hiểu bị lỗi ở đâu à.

Bạn kiểm tra xem file có tồn tại hay không thì dùng hàm DIR

if DIR(file cần kiểm tra) then
msgbox("file tồn tại"
else
msgbox("File ko tồn tại")
end if

 

[phuocrobe]

Ý mình là khi chạy code nếu có file thì code sẽ tự chạy không cần phải hiển thị thông báo gì cả, còn nếu không có file thì sẽ hiển thị thông báo "File khong co trong thu muc"
Anh có thể giúp em đưa vào code luôn được không chứ em không biết phải đưa vào đoạn nào đâu à. Cám ơn anh nha.

Bạn kiểm tra xem file có tồn tại hay không thì dùng hàm DIR

if DIR(file cần kiểm tra) then
msgbox("file tồn tại"
else
msgbox("File ko tồn tại")
end if

 

[sondaubac]

Mình thỉnh thoảng cũng bị lỗi này, nguyên nhân là do bạn định dạng dòng, VBA không thể đặt lệnh chỗ gán giá trị của đường kẻ đó được. Mình cũng chỉ mới biết thế thôi

 

[be_09]

Tôi không xem code, nhưng xử lý bằng cách để File Doi chieu và File DATA phải nằm cùng 1 Folder.