Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Cần giúp đỡ code chuyển dữ liệu từ Excel vào access !
#1
Mình có bảng Excel có 9 cột và nhiều dòng. Tham khảo đoạn code trên trang diễn đàn access khi thực hiện báo lỗi dòng Conn.Execute sqlR. Mong các bạn giúp đỡ. Cám ơn !

Private Sub Command0_Click()
Dim i As Integer
Dim Conn As ADODB.Connection
Set Conn = CurrentProject.Connection
Dim WbC As Object
Set WbC = GetObject("D:\TaiLieu.xls")
Conn.Execute "Delete * from tblTaiLieu"
With WbC
With .Worksheets("Sheet1")
For i = 2 To 6 [/align]
sqlR = "Insert Into tblTaiLieu Values("
sqlR = sqlR & .Cells(i, 1) & ", "
sqlR = sqlR & .Cells(i, 2) & ", "
sqlR = sqlR & .Cells(i, 3) & ", "
sqlR = sqlR & "'" & 0 & "', "
sqlR = sqlR & .Cells(i, 5) & ", "
sqlR = sqlR & .Cells(i, 6) & ", "
sqlR = sqlR & .Cells(i, 7) & ", "
sqlR = sqlR & .Cells(i, 8) & ", "
sqlR = sqlR & .Cells(i, 9) & " )"
Conn.Execute sqlR
Next i
End With
End With
WbC.Close
Set WbC = Nothing
MsgBox "Done"

End Sub
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Bạn tham khảo tại đây http://thuthuataccess.com/forum/thread-5231.html
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Sử dụng hàm của Excel trong VBA killitmore 0 30 Hôm qua, 12:02 PM
Bài mới nhất: killitmore
  Demo Import/Export Excel + Hàm Liệt tên ALL Access maidinhdan 53 3,364 21-11-17, 08:14 PM
Bài mới nhất: maidinhdan
  Hỏi có cách nào chuyển Access Windowse sang Mac OS trungminh 6 271 17-10-17, 11:39 PM
Bài mới nhất: ongke0711
  [Help] Thông báo trong Ms Access khi Mail Merge phamngocsang 3 305 08-07-17, 09:51 AM
Bài mới nhất: cpucloi
  Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được maidinhdan 18 4,525 29-04-17, 05:16 PM
Bài mới nhất: conmeocon

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ