Giúp sửa code ado Ghi vào File Đóng (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
Em mày mò cả nhà thay địa chỉ đủ kiểu cũng không được. Đành pó tay Nên nhờ mọi người sữa giúp
Em có 2 file excel ( Chuongtrinh.Xlsb , Data.Xlsb )
Em muốn ghi dữ liệu ( chỉ copy giá trị Value )

từ File Chuongtrinh.XLSB của Sheet("Banhang") vùng dữ liệu "C5:I5"
Đến File Data.XLSB của Sheet("data") Ghi đến ô bắt đầu B3:H3 và chạy xuống khi thêm dữ liệu mới
Em xin chân thành cảm ơn

Option Explicit

Private Sub Workbook_Open()
Sheet1.Range("A1") = "provider=Microsoft.ACE.OLEDB.12.0; data source=" & _
               ThisWorkbook.Path & "\data.xlsb" & _
              ";extended properties=""Excel 12.0;hdr=no"";"
End Sub


Option Explicit
Dim cnn As Object, rst As Object
'Code ghi du lieu hang ban vao file data
Sub Ghi_Xuat_DuLieu()
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open (Sheet1.Range("A1"))
    cnn.Execute ("insert into [data$B3:H3] select * from [" & ThisWorkbook.FullName & ";hdr=no].[BanHang$C5:i5] where F3 is not null")
End Sub

 

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

Chào cả nhà GPE !
Em mày mò cả nhà thay địa chỉ đủ kiểu cũng không được. Đành pó tay Nên nhờ mọi người sữa giúp
Em có 2 file excel ( Chuongtrinh.Xlsb , Data.Xlsb )
Em muốn ghi dữ liệu ( chỉ copy giá trị Value )

từ File Chuongtrinh.XLSB của Sheet("Banhang") vùng dữ liệu "C5:I5"
Đến File Data.XLSB của Sheet("data") Ghi đến ô bắt đầu B3:H3 và chạy xuống khi thêm dữ liệu mới
Em xin chân thành cảm ơn

Option Explicit

Private Sub Workbook_Open()
Sheet1.Range("A1") = "provider=Microsoft.ACE.OLEDB.12.0; data source=" & _
               ThisWorkbook.Path & "\data.xlsb" & _
              ";extended properties=""Excel 12.0;hdr=no"";"
End Sub


Option Explicit
Dim cnn As Object, rst As Object
'Code ghi du lieu hang ban vao file data
Sub Ghi_Xuat_DuLieu()
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open (Sheet1.Range("A1"))
    cnn.Execute ("insert into [data$B3:H3] select * from [" & ThisWorkbook.FullName & ";hdr=no].[BanHang$C5:i5] where F3 is not null")
End Sub

Bạn chạy code sau thử nhé:

Sub Ghi_Xuat_DuLieu()
    With CreateObject("ADODB.Connection")
        .Open ("provider=Microsoft.ACE.OLEDB.12.0; data source=" & ThisWorkbook.Path & "\data.xlsb;extended properties=""Excel 12.0;hdr=no""")
        .Execute ("insert into [data$] select * from [" & ThisWorkbook.FullName & ";hdr=no].[BanHang$C5:i5] where F3 is not null")
    End With
End Sub

 

[andythuy]

Vậy nếu một tên hàng (cột D) đã tổn tại ở file đích và mình muốn ghi đè lên, không muốn ghi thành dòng mới thì code sẽ phải như thế nào hả bác?
(em mới mò vào phân ADO này nên chưa rõ)