Import 1 sheet excel vào 1 bảng có dữ liệu trong file access cố định

[hoanghuytfs]

Dear các bạn !
mình có công việc cần phải giải quyết như sau :
- trên 1 sheet excel có 1 bảng gồm : mahang, tenhang, sl . click nút import thì nó sẽ tự động import bảng này vào 1 file access nằm cố định trong 1 thư mục

=> các bạn vui lòng xem file đính kèm và giúp mình nhé. Thanks các bạn nhiều, chiều chiều thì hẹn uống cafe .... hihi

 

[Hai Lúa Miền Tây]

Dear các bạn !
mình có công việc cần phải giải quyết như sau :
- trên 1 sheet excel có 1 bảng gồm : mahang, tenhang, sl . click nút import thì nó sẽ tự động import bảng này vào 1 file access nằm cố định trong 1 thư mục

=> các bạn vui lòng xem file đính kèm và giúp mình nhé. Thanks các bạn nhiều, chiều chiều thì hẹn uống cafe .... hihi

Chạy code sau nhé:
[GPECODE=sql]Private Sub CommandButton1_Click()
Dim cnn As Object, strSQL As String, strCon As String
Set cnn = CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & _
ThisWorkbook.Path & "\TONGHOP.accdb"
strSQL = "INSERT INTO TBL_XUATHANG " & _
"SELECT * " & _
"FROM [EXCEL 12.0;Database=" & ThisWorkbook.FullName & ";HDR=Yes].[TBL_XUATHANG$B430] " & _
"WHERE MAHANG IS NOT NULL;"
With cnn
.ConnectionString = strCon
.Open
.Execute strSQL
.Close
End With
Set cnn = Nothing

End Sub[/GPECODE]

Lưu ý: file access và excel mằm chung thư mục.

 

[tan.ngohoangquoc]

Chạy code sau nhé:
[GPECODE=sql]Private Sub CommandButton1_Click()
Dim cnn As Object, strSQL As String, strCon As String
Set cnn = CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & _
ThisWorkbook.Path & "\TONGHOP.accdb"
strSQL = "INSERT INTO TBL_XUATHANG " & _
"SELECT * " & _
"FROM [EXCEL 12.0;Database=" & ThisWorkbook.FullName & ";HDR=Yes].[TBL_XUATHANG$B430] " & _
"WHERE MAHANG IS NOT NULL;"
With cnn
.ConnectionString = strCon
.Open
.Execute strSQL
.Close
End With
Set cnn = Nothing

End Sub[/GPECODE]

Lưu ý: file access và excel mằm chung thư mục.

Em dùng cái này thì lại có thông báo như vậy??

 

[Hai Lúa Miền Tây]

View attachment 149967

Em dùng cái này thì lại có thông báo như vậy??

Bạn mở file Access cũng như Excel xem nó có báo là không cho ghi không nhé.

 

[tan.ngohoangquoc]

Bạn mở file Access cũng như Excel xem nó có báo là không cho ghi không nhé.

Hình như do máy em cài office 2016 nên bị vậy ;( EXCEL 12.0 : cái này phụ thuộc vào phiên bản excel đang xài phải không anh?