Chào các Anh/Chị,
Các Anh chị cho em hỏi em có code 1 đoạn sau tra cứu dữ liệu nhưng kết quả tra cứu font unicode toàn bị lỗi, trong đó dùng mảng thì lại không lỗi, em trích dẫn Sub và file kèm :
Sub TestExcel()
Dim cn As Object, rst As Object
I = Sheet2.[D3] ' TN27857
Set cn = CreateObject("ADODB.Connection")
cn.Open ("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};dbq=" & ThisWorkbook.FullName & ";")
Set rst = cn.Execute("select * from [DATA$] WHERE MA_HOSO ='" & I & "' ")
Sheet2.[A6].CopyFromRecordset rst
Set rst = Nothing
cn.Close
End Sub
Nhờ các Anh/chị xem có cách nào dùng ADO như thế này mà không bị lỗi font không.
Cảm ơn.
Ngoctoan
Các Anh chị cho em hỏi em có code 1 đoạn sau tra cứu dữ liệu nhưng kết quả tra cứu font unicode toàn bị lỗi, trong đó dùng mảng thì lại không lỗi, em trích dẫn Sub và file kèm :
Sub TestExcel()
Dim cn As Object, rst As Object
I = Sheet2.[D3] ' TN27857
Set cn = CreateObject("ADODB.Connection")
cn.Open ("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};dbq=" & ThisWorkbook.FullName & ";")
Set rst = cn.Execute("select * from [DATA$] WHERE MA_HOSO ='" & I & "' ")
Sheet2.[A6].CopyFromRecordset rst
Set rst = Nothing
cn.Close
End Sub
Nhờ các Anh/chị xem có cách nào dùng ADO như thế này mà không bị lỗi font không.
Cảm ơn.
Ngoctoan
