Code VBA Lấy dữ liệu từ File khác bằng SQL

Liên hệ QC
H

hoahuongduong1986

Thành viên thường trực
Tham gia
14/11/18
Bài viết
346
Được thích
40
Dear Anh chị thân mến,
Em muốn lấy số liệu từ File" NKBH "vào Sheet Data của File " Lay so lieu" với điều kiện lọc như tại sheet Bao cao của File" Lay so lieu " gồm 3 điều kiện Lọc từ ngày đến ngày và Lọc theo tên công ty. Em mới làm được một đoạn thôi ạ. Chưa hoàn chỉnh vì không biết làm sao tiếp ạ. Mong A chị giúp đỡ ạ.
 

File đính kèm

  • Lay so lieu.xlsm
    21.9 KB · Đọc: 41
  • NKBH.xlsx
    520.8 KB · Đọc: 39
Sắp xếp theo thời gian sắp xếp theo bầu chọn
hoahuongduong1986 đã viết:
Dear Anh chị thân mến,
Em muốn lấy số liệu từ File" NKBH "vào Sheet Data của File " Lay so lieu" với điều kiện lọc như tại sheet Bao cao của File" Lay so lieu " gồm 3 điều kiện Lọc từ ngày đến ngày và Lọc theo tên công ty. Em mới làm được một đoạn thôi ạ. Chưa hoàn chỉnh vì không biết làm sao tiếp ạ. Mong A chị giúp đỡ ạ.
Nhấp chuột vào đây để mở rộng...
Bạn thử cái này.
Mã: 
Sub ImportData_Test()
Dim owb As Workbook
Dim cn As Object, pro As String, EXT As String, name As String, sql As String, ngay1 As Long, ngay2 As Long, ten As String
With Sheets("bao cao")
     ngay1 = .Range("C3").Value2
     ngay2 = .Range("c4").Value2
     ten = .Range("C2").Value
End With
Dim rst As Object
'On Error Resume Next
Set rst = CreateObject("ADODB.recordset")
Set cn = CreateObject("ADODB.Connection")
     Sheets("Data").Range("A2:J10000").ClearContents
     name = ThisWorkbook.Path & "\NKBH.xlsx"
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     EXT = ";Extended Properties=""Excel 12.0;HDR=No;"";"
     cn.Open (pro & name & EXT)
     sql = "SELECT * from [sheet1$A1:J100000]  WHERE F5=" & "'" & ten & "'" & "AND F1 BETWEEN " & ngay1 & " and " & ngay2 & ";"
    rst.Open sql, cn, 3, 1
        Sheet1.Range("A2").CopyFromRecordset rst
     rst.Close
    cn.Close
End Sub
 
Upvote 0
snow25 đã viết:
Bạn thử cái này.
Mã: 
Sub ImportData_Test()
Dim owb As Workbook
Dim cn As Object, pro As String, EXT As String, name As String, sql As String, ngay1 As Long, ngay2 As Long, ten As String
With Sheets("bao cao")
     ngay1 = .Range("C3").Value2
     ngay2 = .Range("c4").Value2
     ten = .Range("C2").Value
End With
Dim rst As Object
'On Error Resume Next
Set rst = CreateObject("ADODB.recordset")
Set cn = CreateObject("ADODB.Connection")
     Sheets("Data").Range("A2:J10000").ClearContents
     name = ThisWorkbook.Path & "\NKBH.xlsx"
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     EXT = ";Extended Properties=""Excel 12.0;HDR=No;"";"
     cn.Open (pro & name & EXT)
     sql = "SELECT * from [sheet1$A1:J100000]  WHERE F5=" & "'" & ten & "'" & "AND F1 BETWEEN " & ngay1 & " and " & ngay2 & ";"
    rst.Open sql, cn, 3, 1
        Sheet1.Range("A2").CopyFromRecordset rst
     rst.Close
    cn.Close
End Sub
Nhấp chuột vào đây để mở rộng...
Quá tuyệt vời ạ ! Cảm ơn anh nhiều ạ ...!
 
Upvote 0
snow25 đã viết:
Bạn thử cái này.
Mã: 
Sub ImportData_Test()
Dim owb As Workbook
Dim cn As Object, pro As String, EXT As String, name As String, sql As String, ngay1 As Long, ngay2 As Long, ten As String
With Sheets("bao cao")
     ngay1 = .Range("C3").Value2
     ngay2 = .Range("c4").Value2
     ten = .Range("C2").Value
End With
Dim rst As Object
'On Error Resume Next
Set rst = CreateObject("ADODB.recordset")
Set cn = CreateObject("ADODB.Connection")
     Sheets("Data").Range("A2:J10000").ClearContents
     name = ThisWorkbook.Path & "\NKBH.xlsx"
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     EXT = ";Extended Properties=""Excel 12.0;HDR=No;"";"
     cn.Open (pro & name & EXT)
     sql = "SELECT * from [sheet1$A1:J100000]  WHERE F5=" & "'" & ten & "'" & "AND F1 BETWEEN " & ngay1 & " and " & ngay2 & ";"
    rst.Open sql, cn, 3, 1
        Sheet1.Range("A2").CopyFromRecordset rst
     rst.Close
    cn.Close
End Sub
Nhấp chuột vào đây để mở rộng...
Dear Anh,
E có dùng File nhưng nó không chạy được và báo lỗi đoạn màu vàng này ạ "rst.Open sql, cn, 3, 1". Anh xem giúp em với ạ.
 

File đính kèm

  • Lay so lieu.xlsm
    22.8 KB · Đọc: 16
Upvote 0
hoahuongduong1986 đã viết:
Dear Anh,
E có dùng File nhưng nó không chạy được và báo lỗi đoạn màu vàng này ạ "rst.Open sql, cn, 3, 1". Anh xem giúp em với ạ.
Nhấp chuột vào đây để mở rộng...

Bạn tự ý sửa cú pháp bắt buộc của của người ta nên code nó chạy sai là đúng rồi. Các ký hiệu F5, F1 là ký hiệu đại diện cho cột thứ 5 (Field 5) chứ không phải địa chỉ cột của Excel nhé.

Tôi cũng có một góp ý về cách tổ chức xử lý bảng tính của bạn (mà tôi thấy cũng nhiều người có cùng kiểu xử lý giống bạn) là:
Khi bạn muốn tìm kiếm, lọc dữ liệu một file data nào đó thì cũng nên phân tích kỹ, "tính trước" nhưng trường hợp truy vấn có thể phát sinh (có thể bây giờ chưa cần nhưng sau có khi cần) để đưa ra hết các điều kiện lọc dữ liệu lên UserForm hay Sheet rồi viết code một lần để lọc theo tất cả các điều kiện đó, khỏi phải lắc nhắc, sau này phát sinh rồi lại sửa code, nếu lúc đó không có ai hỗ trợ bạn thì sao.

218823
 
Lần chỉnh sửa cuối:
Upvote 0
ongke0711 đã viết:
Bạn tự ý sửa cú pháp bắt buộc của của người ta nên code nó chạy sai là đúng rồi. Các ký hiệu F5, F1 là ký hiệu đại diện cho cột thứ 5 (Field 5) chứ không phải địa chỉ cột của Excel nhé.

Tôi cũng có một góp ý về cách tổ chức xử lý bảng tính của bạn (mà tôi thấy cũng nhiều người có cùng kiểu xử lý giống bạn) là:
Khi bạn muốn tìm kiếm, lọc dữ liệu một file data nào đó thì cũng nên phân tích kỹ, "tính trước" nhưng trường hợp truy vấn có thể phát sinh (có thể bây giờ chưa cần nhưng sau có khi cần) để đưa ra hết các điều kiện lọc dữ liệu lên UserForm hay Sheet rồi viết code một lần để lọc theo tất cả các điều kiện đó, khỏi phải lắc nhắc, sau này phát sinh rồi lại sửa code, nếu lúc đó không có ai hỗ trợ bạn thì sao.

View attachment 218823
Nhấp chuột vào đây để mở rộng...
Dạ Vâng ạ. Em ngồi mày mò lấy số liệu cũng yêu cầu trên nhưng em không dùng SQL nữa mà em dùng Advanfilter để lọc. Để làm việc này em bố trí lại điều kiện lọc như tại Sheet Bao Cao (Chỗ hai cái ngày, Code phải như thế nào để nó hiểu nó lọc từ tháng 1,2,3,4 chứ không phải chỉ lọc có tháng 1 và 4 ạ). Anh xem giùm em với ạ. Em cảm ơn anh.
 

File đính kèm

  • NKBH.xlsx
    520.8 KB · Đọc: 21
  • Lay so lieu.xlsm
    22.2 KB · Đọc: 18
Upvote 0
snow25 đã viết:
Bạn thử cái này.
Mã: 
Sub ImportData_Test()
Dim owb As Workbook
Dim cn As Object, pro As String, EXT As String, name As String, sql As String, ngay1 As Long, ngay2 As Long, ten As String
With Sheets("bao cao")
     ngay1 = .Range("C3").Value2
     ngay2 = .Range("c4").Value2
     ten = .Range("C2").Value
End With
Dim rst As Object
'On Error Resume Next
Set rst = CreateObject("ADODB.recordset")
Set cn = CreateObject("ADODB.Connection")
     Sheets("Data").Range("A2:J10000").ClearContents
     name = ThisWorkbook.Path & "\NKBH.xlsx"
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     EXT = ";Extended Properties=""Excel 12.0;HDR=No;"";"
     cn.Open (pro & name & EXT)
     sql = "SELECT * from [sheet1$A1:J100000]  WHERE F5=" & "'" & ten & "'" & "AND F1 BETWEEN " & ngay1 & " and " & ngay2 & ";"
    rst.Open sql, cn, 3, 1
        Sheet1.Range("A2").CopyFromRecordset rst
     rst.Close
    cn.Close
End Sub
Nhấp chuột vào đây để mở rộng...
Giải pháp của anh rất hay, anh cho hỏi thêm để có thể dùng khi cần
1. Bẫy lỗi thế nào nếu file nguồn đang được mở ?
2. Nếu muốn tăng điều kiện lọc thì sửa code ở chỗ nào và như thế nào ?
3. Nếu file đích không muốn lấy đủ các trường bên file nguồn thì làm thế nào ?
Cảm ơn anh
 
Upvote 0
hoahuongduong1986 đã viết:
Dạ Vâng ạ. Em ngồi mày mò lấy số liệu cũng yêu cầu trên nhưng em không dùng SQL nữa mà em dùng Advanfilter để lọc. Để làm việc này em bố trí lại điều kiện lọc như tại Sheet Bao Cao (Chỗ hai cái ngày, Code phải như thế nào để nó hiểu nó lọc từ tháng 1,2,3,4 chứ không phải chỉ lọc có tháng 1 và 4 ạ). Anh xem giùm em với ạ. Em cảm ơn anh.
Nhấp chuột vào đây để mở rộng...

Bạn thiết lập điều kiện cho Advance filter thiết và khai báo range sai nên code không hiểu.
Tôi sửa đoạn code trong file bạn như bên dưới, bạn thay lại đường dẫn theo máy bạn.
Ở range lưu điều kiện cho Advance Filter, bạn thêm dấu >= cho [C3] và <= cho [D3]


Mã: 
Sub OpenImp3()
    Const sPath = "\\Mac\Home\Downloads\NKBH.xlsx"
    Dim owb As Workbook

    Dim Rng As Range
    Dim TK As Range

    Set TK = Sheet3.Range("B2:D3")

    If Dir(sPath) <> "" Then
        Set owb = Workbooks.Open(sPath)
        Set Rng = owb.Sheets("Sheet1").Range("A1:J" & owb.Sheets("Sheet1").Range("J" & Rows.Count).End(xlUp).Row)
        With Sheet1
            .Range("A1:J65535").ClearContents
            Rng.AdvancedFilter 2, TK, .Range("A1:J10000")
        End With
        owb.Close False
    End If
End Sub
 
Upvote 0
ongke0711 đã viết:
Bạn thiết lập điều kiện cho Advance filter thiết và khai báo range sai nên code không hiểu.
Tôi sửa đoạn code trong file bạn như bên dưới, bạn thay lại đường dẫn theo máy bạn.
Ở range lưu điều kiện cho Advance Filter, bạn thêm dấu >= cho [C3] và <= cho [D3]


Mã: 
Sub OpenImp3()
    Const sPath = "\\Mac\Home\Downloads\NKBH.xlsx"
    Dim owb As Workbook

    Dim Rng As Range
    Dim TK As Range

    Set TK = Sheet3.Range("B2:D3")

    If Dir(sPath) <> "" Then
        Set owb = Workbooks.Open(sPath)
        Set Rng = owb.Sheets("Sheet1").Range("A1:J" & owb.Sheets("Sheet1").Range("J" & Rows.Count).End(xlUp).Row)
        With Sheet1
            .Range("A1:J65535").ClearContents
            Rng.AdvancedFilter 2, TK, .Range("A1:J10000")
        End With
        owb.Close False
    End If
End Sub
Nhấp chuột vào đây để mở rộng...
Dear Anh,
Em đã làm đúng như a Hướng dẫn thêm nhưng em vẫn không lấy dữ liệu vào được ạ. Lấy được một cái tiêu đề ạ. Không biết em đang làm sai gì mà không chạy được anh ạ. Em nghĩ cái đoạn này Set TK = Sheet3.Range("B2:D3") không biết có đúng không nếu thêm dấu lớn hơn, bằng, nhở hơn như đã thiết lập điều kiện tìm tại Sheet Bao cao ạ. A xem giúp em với ạ.
 

File đính kèm

  • Lay so lieu.xlsm
    22.9 KB · Đọc: 11
Lần chỉnh sửa cuối:
Upvote 0
hoahuongduong1986 đã viết:
Dear Anh,
Em đã làm đúng như a Hướng dẫn thêm nhưng em vẫn không lấy dữ liệu vào được ạ. Lấy được một cái tiêu đề ạ. Không biết em đang làm sai gì mà không chạy được anh ạ. Em nghĩ cái đoạn này Set TK = Sheet3.Range("B2:D3") không biết có đúng không nếu thêm dấu lớn hơn, bằng, nhở hơn như đã thiết lập điều kiện tìm tại Sheet Bao cao ạ. A xem giúp em với ạ.
Nhấp chuột vào đây để mở rộng...

- Điều kiện cho Advance Filter dạng Date mà bạn lại dùng công thức chuyển nó thành Text thì làm sao nó tìm ra được. =C4 & TEXT(C6:"dd/mm/yyy")
- Mấy điều kiện lọc này có 3 ô, gõ tay vô được rồi, tại sao phải dùng công thức nữa chi cho rắc rối cuộc đời. Bạn cứ gõ đúng định dạng ngày tháng trên máy tính là được.
 
Upvote 0
ongke0711 đã viết:
- Điều kiện cho Advance Filter dạng Date mà bạn lại dùng công thức chuyển nó thành Text thì làm sao nó tìm ra được. =C4 & TEXT(C6:"dd/mm/yyy")
- Mấy điều kiện lọc này có 3 ô, gõ tay vô được rồi, tại sao phải dùng công thức nữa chi cho rắc rối cuộc đời. Bạn cứ gõ đúng định dạng ngày tháng trên máy tính là được.
Nhấp chuột vào đây để mở rộng...
Em làm đươc rồi ạ. Em cảm ơn anh nhiều ạ !!!
 
Upvote 0
ongke0711 đã viết:
- Điều kiện cho Advance Filter dạng Date mà bạn lại dùng công thức chuyển nó thành Text thì làm sao nó tìm ra được. =C4 & TEXT(C6:"dd/mm/yyy")
- Mấy điều kiện lọc này có 3 ô, gõ tay vô được rồi, tại sao phải dùng công thức nữa chi cho rắc rối cuộc đời. Bạn cứ gõ đúng định dạng ngày tháng trên máy tính là được.
Nhấp chuột vào đây để mở rộng...

Dear Anh,
Em muốn nhờ anh giúp em thêm chút nữa với ạ.
Tiếp theo ý trên em muốn thêm điều kiện sau thì thực hiện thế nào ạ.

(1) Vì cái đường dẫn "D:\SQL\NKBH.xlsx", em muốn chủ động thay đổi bên ngoài mà không cần vào code để sửa thì em định làm như sau: Tại Sheet Bao cao em đặt tại ô E3 = D:\SQL\NKBH.xlsx như File. Thế giờ đoạn Code là Const sPath = "D:\SQL\NKBH.xlsx" em phải sửa thế nào ạ.
Em thử làm là :

Set Diachi = Sheet3.range (“E3”)

Const sPath = "Diachi"

Nhưng nó toàn báo lỗi ạ.

(2) Sau khi lấy dữ liệu xong rồi. Em muốn đặt tên cho vùng có dữ liệu từ vùng A:L bằng cách vào thẻ Tab để add thêm Table với tên là Saoke. Em đã làm đoạn Code theo File kèm theo mà nó cứ báo lỗi. Anh xem giúp em với ạ
 

File đính kèm

  • Lay so lieu (4).xlsm
    2.3 MB · Đọc: 10
Lần chỉnh sửa cuối:
Upvote 0
hoahuongduong1986 đã viết:
Dear Anh,
Em muốn nhờ anh giúp em thêm chút nữa với ạ.
Tiếp theo ý trên em muốn thêm điều kiện sau thì thực hiện thế nào ạ.

(1) Vì cái đường dẫn "D:\SQL\NKBH.xlsx", em muốn chủ động thay đổi bên ngoài mà không cần vào code để sửa thì em định làm như sau: Tại Sheet Bao cao em đặt tại ô E3 = D:\SQL\NKBH.xlsx như File. Thế giờ đoạn Code là Const sPath = "D:\SQL\NKBH.xlsx" em phải sửa thế nào ạ.
Em thử làm là :

Set Diachi = Sheet3.range (“E3”)

Const sPath = "Diachi"

Nhưng nó toàn báo lỗi ạ.

(2) Sau khi lấy dữ liệu xong rồi. Em muốn đặt tên cho vùng có dữ liệu từ vùng A:L bằng cách vào thẻ Tab để add thêm Table với tên là Saoke. Em đã làm đoạn Code theo File kèm theo mà nó cứ báo lỗi. Anh xem giúp em với ạ
Nhấp chuột vào đây để mở rộng...

Tôi cũng định đề xuất bạn làm kiểu này, Bạn đang suy nghĩ lập trình dần dần đúng hướng rồi đó, giảm thiểu việc can thiệp vô code nhiều khi có thay đổi.
Mục 2: bạn nên đặt tên trước cho cái cùng dữ liệu (chỉ cần vài dòng dữ liệu), sau đó dùng cái hàm tạo Name động cập nhật lại range. Tại sao tôi đề xuất bạn đặt tên range trước vì theo như cách bạn đề xuất: khai báo cứng (hard code) trong code vùng (A:L), sau này muốn thay đổi cột thì lại phải vô code sửa. Nếu khai báo tên Range thì khi thay đổi vùng bạn chỉ cần làm thủ công tạo Named range cho cùng mới rồi chạy code thôi.
- Tôi thêm vô 2 cái module: hàm lấy tên file và hàm tạo name động.
- Hiện tại thì khi bấm nút [Tổng hợp Data], nó sẽ hiện hộp thoại yêu cầu trỏ đường dẫn tới file lấy dữ liệu luôn.
- Ở kế ô "E3", tôi có thêm cái nút để lấy đường dẫn file lưu vào ô "E3". Nếu bạn không muốn mỗi khi bấm nút [Tổng hợp] rồi chọn đường dẫn thì làm cách này. Trong code đổi lại chút ở đoạn tham chiếu đến file dữ liệu.
sPath = GetFileOpen
---> đổi lại sPath = ActiveSheet.Range("E3").Value
 

File đính kèm

  • Lay so lieu(v1).xlsm
    2.3 MB · Đọc: 26
Lần chỉnh sửa cuối:
Upvote 0
ongke0711 đã viết:
Tôi cũng định đề xuất bạn làm kiểu này, Bạn đang suy nghĩ lập trình dần dần đúng hướng rồi đó, giảm thiểu việc can thiệp vô code nhiều khi có thay đổi.
Mục 2: bạn nên đặt tên trước cho cái cùng dữ liệu (chỉ cần vài dòng dữ liệu), sau đó dùng cái hàm tạo Name động cập nhật lại range. Tại sao tôi đề xuất bạn đặt tên range trước vì theo như cách bạn đề xuất: khai báo cứng (hard code) trong code vùng (A:L), sau này muốn thay đổi cột thì lại phải vô code sửa. Nếu khai báo tên Range thì khi thay đổi vùng bạn chỉ cần làm thủ công tạo Named range cho cùng mới rồi chạy code thôi.
Tôi thêm vô 2 cái module: hàm lấy tên file và hàm tạo name động.
Nhấp chuột vào đây để mở rộng...
Dạ vâng ạ. Em sẽ ngâm cứu thêm ạ.Em cảm ơn anh nhiều ạ !!!
 
Upvote 0
ongke0711 đã viết:
Tôi cũng định đề xuất bạn làm kiểu này, Bạn đang suy nghĩ lập trình dần dần đúng hướng rồi đó, giảm thiểu việc can thiệp vô code nhiều khi có thay đổi.
Mục 2: bạn nên đặt tên trước cho cái cùng dữ liệu (chỉ cần vài dòng dữ liệu), sau đó dùng cái hàm tạo Name động cập nhật lại range. Tại sao tôi đề xuất bạn đặt tên range trước vì theo như cách bạn đề xuất: khai báo cứng (hard code) trong code vùng (A:L), sau này muốn thay đổi cột thì lại phải vô code sửa. Nếu khai báo tên Range thì khi thay đổi vùng bạn chỉ cần làm thủ công tạo Named range cho cùng mới rồi chạy code thôi.
- Tôi thêm vô 2 cái module: hàm lấy tên file và hàm tạo name động.
- Hiện tại thì khi bấm nút [Tổng hợp Data], nó sẽ hiện hộp thoại yêu cầu trỏ đường dẫn tới file lấy dữ liệu luôn.
- Ở kế ô "E3", tôi có thêm cái nút để lấy đường dẫn file lưu vào ô "E3". Nếu bạn không muốn mỗi khi bấm nút [Tổng hợp] rồi chọn đường dẫn thì làm cách này. Trong code đổi lại chút ở đoạn tham chiếu đến file dữ liệu.
sPath = GetFileOpen
---> đổi lại sPath = ActiveSheet.Range("E3").Value
Nhấp chuột vào đây để mở rộng...

Dear Anh,
Bỏ qua cái đặt tên vùng. Mà tập trung vào cái địa chỉ ô E3 - Dường dẫn dữ liệu. Em xem code mà thấy khó thật ạ. Em không nghĩ nó lại phức tạp đến vậy ạ. Em chỉ nghĩ đâu đó bẫy gì đó để lấy được đường dẫn vào kiểu như dưới ạ. Còn cách gì đơn giản hơn không a nhỉ.

Set Diachi = Sheet3.range (“E3”)

Const sPath = "Diachi"
 
Upvote 0
hoahuongduong1986 đã viết:
Dear Anh,
Bỏ qua cái đặt tên vùng. Mà tập trung vào cái địa chỉ ô E3 - Dường dẫn dữ liệu. Em xem code mà thấy khó thật ạ. Em không nghĩ nó lại phức tạp đến vậy ạ. Em chỉ nghĩ đâu đó bẫy gì đó để lấy được đường dẫn vào kiểu như dưới ạ. Còn cách gì đơn giản hơn không a nhỉ.

Set Diachi = Sheet3.range (“E3”)

Const sPath = "Diachi"
Nhấp chuột vào đây để mở rộng...

Mấy code lấy tên file, tạo name động thì bạn cứ copy vô dự án mà xài thôi. Khi nào rảnh thì ngâm cứu học hỏi nó tại sao nó chạy như vậy.
Muốn tự động, không phải gõ thủ công đường dẫn thì phải thêm code cho nó là bình thường.

Nếu bạn muốn đơn giản hơn thì cứ thông qua đặt tên range (define named range) mà truyền tham số vào code.
- Bạn đặt tên range cho ô "E3" là: sPath. Sau này đổi địa chỉ sang ô khác thì cũng chỉ cần đặt tên đúng như vậy là được rồi.
- Code: khai báo biến sPath = Range("sPath")

(bạn ngâm cứu đặt tên cho cái range điều kiện tìm kiếm giống vậy luôn đi)
Set TK = Range("DKTiemKiem")

Mã: 
Option Explicit

Sub LayData()

    Dim owb As Workbook
    Dim Rng As Range
    Dim TK As Range, SaoKe As Range
    Dim tbl As ListObject
    Dim sPath As String
    Set TK = Sheet3.Range("B2:D3")

    'sPath = GetFileOpen    '--> Dùng hàm lay duong dan file
    
    sPath = Range("sPath")  '--> Khai báo Named range cho Cell chua duong dan
    
    If Len(sPath) = 0 Then Exit Sub     'Khong chon file nao
    
    Set owb = Workbooks.Open(sPath)
    Set Rng = owb.Sheets("Sheet1").Range("A1:J" & owb.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
    With Sheet1
        .Range("A1:J65535").ClearContents
        Rng.AdvancedFilter 2, TK, .Range("A1:J65535")
    End With
    owb.Close False

    Call createDynamicNamedRange("Data", "SaoKe")
  
End Sub
 
Upvote 0
ongke0711 đã viết:
Mấy code lấy tên file, tạo name động thì bạn cứ copy vô dự án mà xài thôi. Khi nào rảnh thì ngâm cứu học hỏi nó tại sao nó chạy như vậy.
Muốn tự động, không phải gõ thủ công đường dẫn thì phải thêm code cho nó là bình thường.

Nếu bạn muốn đơn giản hơn thì cứ thông qua đặt tên range (define named range) mà truyền tham số vào code.
- Bạn đặt tên range cho ô "E3" là: sPath. Sau này đổi địa chỉ sang ô khác thì cũng chỉ cần đặt tên đúng như vậy là được rồi.
- Code: khai báo biến sPath = Range("sPath")

(bạn ngâm cứu đặt tên cho cái range điều kiện tìm kiếm giống vậy luôn đi)
Set TK = Range("DKTiemKiem")

Mã: 
Option Explicit

Sub LayData()

    Dim owb As Workbook
    Dim Rng As Range
    Dim TK As Range, SaoKe As Range
    Dim tbl As ListObject
    Dim sPath As String
    Set TK = Sheet3.Range("B2:D3")

    'sPath = GetFileOpen    '--> Dùng hàm lay duong dan file
   
    sPath = Range("sPath")  '--> Khai báo Named range cho Cell chua duong dan
   
    If Len(sPath) = 0 Then Exit Sub     'Khong chon file nao
   
    Set owb = Workbooks.Open(sPath)
    Set Rng = owb.Sheets("Sheet1").Range("A1:J" & owb.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
    With Sheet1
        .Range("A1:J65535").ClearContents
        Rng.AdvancedFilter 2, TK, .Range("A1:J65535")
    End With
    owb.Close False

    Call createDynamicNamedRange("Data", "SaoKe")
 
End Sub
Nhấp chuột vào đây để mở rộng...
Dear Anh,
Em đã làm được rồi ạ. Anh thật Pro ạ. Em cảm ơn Anh nhiều !!!
 
Upvote 0
ongke0711 đã viết:
Mấy code lấy tên file, tạo name động thì bạn cứ copy vô dự án mà xài thôi. Khi nào rảnh thì ngâm cứu học hỏi nó tại sao nó chạy như vậy.
Muốn tự động, không phải gõ thủ công đường dẫn thì phải thêm code cho nó là bình thường.

Nếu bạn muốn đơn giản hơn thì cứ thông qua đặt tên range (define named range) mà truyền tham số vào code.
- Bạn đặt tên range cho ô "E3" là: sPath. Sau này đổi địa chỉ sang ô khác thì cũng chỉ cần đặt tên đúng như vậy là được rồi.
- Code: khai báo biến sPath = Range("sPath")

(bạn ngâm cứu đặt tên cho cái range điều kiện tìm kiếm giống vậy luôn đi)
Set TK = Range("DKTiemKiem")

Mã: 
Option Explicit

Sub LayData()

    Dim owb As Workbook
    Dim Rng As Range
    Dim TK As Range, SaoKe As Range
    Dim tbl As ListObject
    Dim sPath As String
    Set TK = Sheet3.Range("B2:D3")

    'sPath = GetFileOpen    '--> Dùng hàm lay duong dan file
  
    sPath = Range("sPath")  '--> Khai báo Named range cho Cell chua duong dan
  
    If Len(sPath) = 0 Then Exit Sub     'Khong chon file nao
  
    Set owb = Workbooks.Open(sPath)
    Set Rng = owb.Sheets("Sheet1").Range("A1:J" & owb.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
    With Sheet1
        .Range("A1:J65535").ClearContents
        Rng.AdvancedFilter 2, TK, .Range("A1:J65535")
    End With
    owb.Close False

    Call createDynamicNamedRange("Data", "SaoKe")

End Sub
Nhấp chuột vào đây để mở rộng...
Dear Anh,
E hỏi thêm chút với ạ. Em đã làm được Code và áp dụng cho việc Upload dữ liệu từ hai File vào 2 sheet với cách làm tương tự nhau và đã chạy được độc lập nhau. Nhưng em muốn làm một nút lệnh bấm một lần cho chay bằng

Sub Gop
Call LayData
Call LayData1
Em sub

(1) Nhưng giả sử khi Sub LayData không chạy thì nó lại không chạy LayData1 trong khi LayData1 khả dụng . Mà em hiểu rằng dù một trong hai Sub không khả dụng thì nó vẫn phải chạy cái khả dụng chứ ạ. Có cách gì bẫy chỗ này không ạ.
(2) Thêm thông báo với nếu ô E3 rỗng hoặc đường dẫn không đúng/không tìm ra a. Thì em thấy nó không chạy ạ. Đoạn em bôi đậm ạ. A xem giúp em với ạ.

Sub LayData()
Dim owb As Workbook
Dim Rng As Range
Dim TK As Range
'Dim tbl As ListObject
Dim sPath As String
Set TK = Sheet7.Range("G2:I3")

' Define Name cho E3 tai Sheet Khai Bao có tên là sPath
sPath = Range("sPath")


If Len(sPath) = 0 Then 'MsgBox " The Link to Update SKTD is not available !"
Exit Sub


If Dir(sPath) <> "" Then
Set owb = Workbooks.Open(sPath)
Set Rng = owb.Sheets("Sheet1").Range("A1:BM" & owb.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
With Sheet4
.Range("A2:BQ60000").ClearContents
Rng.AdvancedFilter 2, TK, .Range("A1:BM60000")
End With
owb.Close False
Application.ScreenUpdating = False
End If


End Sub
 
Upvote 0
hoahuongduong1986 đã viết:
Dear Anh,
E hỏi thêm chút với ạ. Em đã làm được Code và áp dụng cho việc Upload dữ liệu từ hai File vào 2 sheet với cách làm tương tự nhau và đã chạy được độc lập nhau. Nhưng em muốn làm một nút lệnh bấm một lần cho chay bằng

Sub Gop
Call LayData
Call LayData1
Em sub

(1) Nhưng giả sử khi Sub LayData không chạy thì nó lại không chạy LayData1 trong khi LayData1 khả dụng . Mà em hiểu rằng dù một trong hai Sub không khả dụng thì nó vẫn phải chạy cái khả dụng chứ ạ. Có cách gì bẫy chỗ này không ạ.
(2) Thêm thông báo với nếu ô E3 rỗng hoặc đường dẫn không đúng/không tìm ra a. Thì em thấy nó không chạy ạ. Đoạn em bôi đậm ạ. A xem giúp em với ạ.
Nhấp chuột vào đây để mở rộng...

Bạn xem lại cách dùng If Then Else nhé.
Sửa lại:

Mã: 
If Len(sPath) = 0 Then 'Khong chon file nao
        MsgBox "The Link to Update SKTD is not available!"
        Exit Sub
    End If
   
    If Len(Dir(sPath)) = 0 Then
        MsgBox "Duong dan file sai!"
        Exit Sub
    End If

Còn việc chạy 2 cái Sub mà cái 1 sai nó thoát chắc do lệnh Exit Sub hoặc báo lõi hệ thống gì đó nó ngưng cái Sub Gop luôn.
Nó có hiện thông báo lỗi gì không?
Bạn đổi tên Sub LayData thành Function LayData và dùng lệnh Exit Function thay thế Exit sub trong đó thử xem.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

N
Hàm tìm giá trị theo giờ vào - ra
Trả lời
3
Đọc
38
huuthang_bd
huuthang_bd
C
Chia sẻ: Kết quả xổ số Keno
    • Thích
Trả lời
1
Đọc
54
cantl
C
Nguyễn Duy Tuân
  • Question
Chia sẻ ControlForOffice - Bộ công cụ điều khiển Office/Excel
    • Thích
6 7 8
Trả lời
148
Đọc
95K
leminhksvl
L
HeSanbi
  • Question
Lỗi VBA: Cài đặt thông số ForceVBALoadFromSource trong Registry để VBA biên dịch không bị lỗi
    • Thích
Trả lời
5
Đọc
270
anhdepjai
A
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
5
Đọc
114
Hoàng Tuấn 868
H
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
Trả lời
16
Đọc
316
CHAOQUAY
C
H
Hàm đếm số ngày thứ bảy và chủ nhật trong một khoảng thời gian
Trả lời
18
Đọc
19K
DeTong
D
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
11 12 13
Trả lời
245
Đọc
13K
Hoàng Trọng Hữu
Hoàng Trọng Hữu
D
  • Question
Xin cách sắp xếp dữ liệu theo thứ tự không làm hỏng link
Trả lời
7
Đọc
285
cantl
C
N
Giúp sửa mã code
Trả lời
16
Đọc
256
ptm0412
ptm0412
dung09031989
Xin giúp công thức tô màu các ô phía sau khi kế hoạch đặt hàng thiếu so với tồn kho.?
Trả lời
0
Đọc
39
dung09031989
dung09031989
V
[Nhờ giúp đỡ] Cách tìm thời gian bị trùng trong excel ở nhiều thời gian khác nhau
Trả lời
1
Đọc
46
tranvansau278
T
C
Công thức tự nhập liệu số lượng nhập khi bị âm
Trả lời
0
Đọc
44
cherry0187
C
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
1
Đọc
41
hoangminhtien
hoangminhtien
GPE-Trợ Lý
KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL
    • Thích
Trả lời
0
Đọc
159
GPE-Trợ Lý
GPE-Trợ Lý
dunghtgiga
  • Đã khóa
Tính bốn tuần cho một tháng
Trả lời
9
Đọc
275
ptm0412
ptm0412
zarra
Cần giúp tạo form in mã vạch cho vật tư theo SL cụ thể.
Trả lời
3
Đọc
110
HUONGHCKT
H
Mr Đạo
in giấy ra bị lệch xuống dưới
    • Thích
2
Trả lời
29
Đọc
26K
Hoàng Tuấn 868
H
H
Không xem được ảnh trên Excel
Trả lời
3
Đọc
1K
huyentran9292
H
T
Xin form quản lý dữ liệu học viên của Trung tâm Đào tạo
Trả lời
2
Đọc
223
hakiru188
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom