Đá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
  Demo Import/Export Excel + Hàm Liệt tên ALL Access maidinhdan 45 2,425 09-09-17, 11:39 PM
Bài mới nhất: maidinhdan
  [Help] Thông báo trong Ms Access khi Mail Merge phamngocsang 3 179 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,057 29-04-17, 05:16 PM
Bài mới nhất: conmeocon
  Hướng Dẫn Export dữ liệu trong subform Godspear 3 340 03-04-17, 04:11 PM
Bài mới nhất: ongke0711
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 51 18,897 10-03-17, 10:49 PM
Bài mới nhất: nhatpc

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ơ