Lỗi khi chạy macro

[kulyvn]

Khi chạy macro ở máy của mình thì được nhưng khi copy file có chứa macro sang máy khác thì chạy bị 2 lỗi thế này:
1. "Unable to set the LineStyle property of the borders class".
2. "Provider cannot be found. it may not be properly installed"
Không biết lỗi này là lỗi gì vậy? Nhờ các anh chị giúp đỡ, mình cám ơn nhé.

 

[mapcongtu]

Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 12.0 Xml;HDR=NO;IMEX=1"";"
    Range("B5").CopyFromRecordset cn.Execute("SELECT f92,'',f12,f13,f10 & '/'& f7 & f9,f11,f2,f3,f4,f5,f107 FROM [THA$A10:DC60000] where f92 is not null")

có thể liên quan đến việc bạn mở 1 file khác trong code, bạn thử comment vài dòng code trên lại rồi chạy macro lại xem sao, chỉ tét chức năng border

 

[kulyvn]

đã thử rồi nhưng vẫn không được bạn ơi

Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 12.0 Xml;HDR=NO;IMEX=1"";"
    Range("B5").CopyFromRecordset cn.Execute("SELECT f92,'',f12,f13,f10 & '/'& f7 & f9,f11,f2,f3,f4,f5,f107 FROM [THA$A10:DC60000] where f92 is not null")

có thể liên quan đến việc bạn mở 1 file khác trong code, bạn thử comment vài dòng code trên lại rồi chạy macro lại xem sao, chỉ tét chức năng border

 

[quanluu]

Khi chạy macro ở máy của mình thì được nhưng khi copy file có chứa macro sang máy khác thì chạy bị 2 lỗi thế này:
1. "Unable to set the LineStyle property of the borders class".
2. "Provider cannot be found. it may not be properly installed"
Không biết lỗi này là lỗi gì vậy? Nhờ các anh chị giúp đỡ, mình cám ơn nhé.

Bạn xét máy kia dùng office bao nhiêu

1. bỏ dòng này coi
Range("A5:M" & Range("B65000").End(3).Row).Borders.LineStyle = xlContinuous
2. sửa thành thế này coi
cn.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 8.0 Xml;HDR=NO;IMEX=1"";"