Truy vấn dữ liệu bên sheet1 lưu vào sheet2

Chia sẻ bởi:hands

★★★★★

‹ ADODB truy vấn đồng thời nhiều file... Nhờ anh chị kiểm tra lỗi ›

Quảng cáo

Nhờ các bạn xem giúp file sau:
Mô tả: mình truy vấn dữ liệu bên sheet1 lưu vào sheet2, nhưng khi xóa dữ liệu sheet2 và truy vấn lại, thì dữ liệu ko được cập nhật vào ngay dưới dữ liệu trước đó mà phía sau các dòng trống (dữ liệu đã xóa)

Nhờ các bạn sửa lại giúp mình cho dữ liệu cập nhật liền mạch nhé!

Phải xóa nguyên dòng dữ liệu nhé. Code bạn lấy luôn tiêu đề và dòng trống, nên loại bỏ nó luôn.

Sub Oval1_Click()
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=No;"";")
        .Execute ("insert into [Sheet2$]([F1],[F2],[F3]) select DISTINCT [F1],[F2],[F3] FROM [Sheet1$A2:C65000] where F1 is not null")
        .Close
    End With

End Sub

Sub Oval1_Click()
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=No;"";")
        .Execute ("SELECT [F1],[F2],[F3] INTO [Sheet2$A2:C7]  FROM [Sheet1$A2:C7]")
        .Close
        End With

End Sub

a HLMT ơi check giúp em code này với sao e ko chạy được với select into thế ạ?

Không thể sử dụng câu lệnh này trên Excel. Thực hiện câu lệnh này nó sẽ xóa bảng cũ rồi sau đó tạo bảng mới. Mà trên Excel thì không thể xóa sheet = ADO được. Mà chỉ xóa được dữ liệu nguyên bảng

Học SQL thì vào các diễn đàn chuyên SQL mà học. Mắc mớ gì phải học qua Excel, tự trói buộc mình vào những điều kiện khong cần thiết (Excel dùng phiên bản SQL của Access, không phải là bản tiêu chuẩn)