Bạn Run code nào/ Nút nào mà phát sinh lỗi vậy bạn?
01A, 01B, 02 đều bị lỗi trên hết đó bạn?
Tôi không chắc rằng do Office của bạn có vấn đề gì hay không, tuy nhiên tôi chạy trên máy của tôi OK hết, cũng Office 2010.
Thanks bạn. Để mình cài lại Office thử
Mình gửi file sang máy khác thì sử dụng bình thường á bạn.
Tôi chạy file của tác giả bình thường nhé!
Mình gửi cho bạn mình vẫn chạy bình thường. không biết bị sao nữa
mình bị lỗi 429
Vẫn không được bạn ơi. Không biết bị mất .dll hay .ocx nào nữa
Mình giải nén. Click double để chạy, thấy cài đặt thành công nhưng mở lại file vẫn không chạy được..huhu
file như này là đã cài OK chưa bạn
Thay vì dùng thủ tục đó, hoặc cài đặt tùm lum, bạn chuyển qua thủ tục này thử xem, lưu ý, tôi chỉ viết cho bạn 1 thủ tục thôi, bạn tùy chỉnh các thủ tục còn lại nhé!
Sub LuuBangGia2()
Dim arrBangGia
Dim sh As Worksheet
Dim e As Long, r As Long
Dim objAdoConn As Object
Dim strPath As String, strSQL As String, strFields As String, strValues As String
Set objAdoConn = CreateObject("ADODB.Connection")
strPath = ThisWorkbook.Path & "\KhoGiaoDichChungKhoan.mdb"
objAdoConn.Open "Provider=Microsoft Jet 4.0 OLE DB Provider; Data Source=" & strPath & " ;"
Set sh = Worksheets("01A.Luu Bang Gia Chung Khoan")
e = sh.Range("A" & Rows.Count).End(xlUp).Row
arrBangGia = sh.Range("A6:B" & e).Value
strSQL = "DELETE FROM [BangGia]"
objAdoConn.Execute strSQL
strFields = "(MaCK, GiaDC)"
For r = 1 To UBound(arrBangGia)
strValues = "('" & arrBangGia(r, 1) & "', '" & arrBangGia(r, 2) & "')"
strSQL = "INSERT INTO [BangGia] " & strFields & " VALUES " & strValues
objAdoConn.Execute strSQL
Next
objAdoConn.Close
Set objAdoConn = Nothing
MsgBox "XONG!"
End Sub
