Tổng hợp dữ liệu không cần mở File (1 người xem)

  • Thread starter Thread starter huy vu
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
H

huy vu

Thành viên hoạt động
Tham gia
29/2/12
Bài viết
164
Được thích
1
Em có câu hỏi sau, mong các thành viên giúp đỡ.
Em có file Tổng hợp, và nhiều file Số tiền các tháng T1, T2, T3....
Cấu trúc các file:
- File Tong Hop gồm trường: Code, Sotien1, VAT1, Sotien2.....
- File số tiền gồm 3 trường: Code, SoTien, VAT
Bình thường e hay copy dữ liệu file T1, T2... vào các sheet của file Tổng hợp
Rồi từ đó dùng phương thức Find để tìm kiếm theo Code của sheet Tổng hợp từ các sheet T1, T2...
Bài toán đặt ra là dữ liệu T1, T2 càng ngày càng nhiều, copy vào file Tổng hợp làm nặng file.
Vậy có cách nào mà Tổng hợp dữ liệu không cần copy các file T1, T2 vào các sheet của file tổng hợp không?
Tổng hợp dữ liệu không cần mở file. Hình như ADO có thể làm được việc này, hoặc bằng phương thức khác, mong các thành viên giúp đỡ!!!
Em xin chân thành cảm ơn!
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Không mở file e là khó, thôi em dùng cách copy dữ liệu vào các sheet cũng được.
tuy nhiên em cũng muốn hỏi thêm là: nêis có 12 sheet tương đương với 12 tháng (T1 -> T12), mà khai báo và set tới 12 cái Rng, rồi từng Rng lại khớp từng mảng, thì code dài quá.
Mong anh/chi có cách nào tốt hơn.
 
Upvote 0
Huy Vũ đã viết:
Không mở file e là khó, thôi em dùng cách copy dữ liệu vào các sheet cũng được.
tuy nhiên em cũng muốn hỏi thêm là: nêis có 12 sheet tương đương với 12 tháng (T1 -> T12), mà khai báo và set tới 12 cái Rng, rồi từng Rng lại khớp từng mảng, thì code dài quá.
Mong anh/chi có cách nào tốt hơn.
Nhấp chuột vào đây để mở rộng...
Thay vì copy thủ công dữ liệu vào từng sheet, tôi có thể giúp bạn Import dữ liệu tự động từng file vào từng sheet, ( còn mà tự động lấy dữ liệu ko cần cop vào sheet thì tôi chưa có giải pháp )
 
Lần chỉnh sửa cuối:
Upvote 0
Một giải pháp hay, mong bạn Cá Ngừ F1 giúp đỡ, vì tôi cũng có tình huống như vậy. Cảm ơn!
 
Upvote 0
Tôi mách cho bạn giải pháp. Code VBA để thực hiện các giai đoạn trong giải pháp thì trên diễn đàn có cả đống. Bạn chịu khó tìm sẽ ra.

1. Tạo một thư mục "CanTongHop", và một thư mục "DaTongHop"
2. copy các files cần tổng hợp vào CanTongHop
3. chạy code VBA trong file tổng hợp. Code này sẽ duyệt thư mục CanTongHop:
3.1. mở từng file trong CanTongHop.
3.2. đọc dữ liệu, tổng hợp
3.3. cập nhật file tổng hợp
3.4. dời file đã đọc vào DaTongHop
4. Hêt. Nếu cẩn thận thì ghi thêm chi tiết báo cáo ngày tổng hợp.

Bước 1,2, và 3.4 bảo đảm rằng bạn không bị nhầm lẫn, cộng dồn dữ liệu nhiều lần.
Bước 3.2 có thể dùng ADO để tổng hợp gọn gàng nếu dữ liệu bạn được xếp đúng chuẩn CSDLLH.
 
Upvote 0
nguyen6571gpex đã viết:
Một giải pháp hay, mong bạn Cá Ngừ F1 giúp đỡ, vì tôi cũng có tình huống như vậy. Cảm ơn!
Nhấp chuột vào đây để mở rộng...
Xin trả lời bài này. Mở file TongHop
B1. Copy Code này vào 1 Module
Mã: 
Function GetData(ByVal FileName As String, ByVal SheetName As String, ByVal RangeAddress As String, _
ByVal HasTitle As Boolean, ByVal UseTitle As Boolean)
 
    Dim cnn As Object, rsData As Object
    Dim tmpArr, Arr
    Dim szConn As String, szSQL As String, tmp As String
    Dim lR As Long, lC As Long, lVersn As Long
    On Error GoTo ErrHandler
        lVersn = Val(Application.Version)
    Set cnn = CreateObject("ADODB.Connection")
    Set rsData = CreateObject("ADODB.Recordset")
 
    If lVersn < 12 Then
        szConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";" & _
        "Extended Properties=""Excel 8.0;HDR=" & IIf(HasTitle, "Yes", "No") & ";IMEX=1"";"
    Else
        szConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FileName & ";" & _
        "Extended Properties=""Excel 12.0;HDR=" & IIf(HasTitle, "Yes", "No") & ";IMEX=1"";"
    End If
    If SheetName = "" Then
    Dim Dbs As Object, db As Object
    Set Dbs = CreateObject("DAO.DBEngine." & IIf(lVersn < 12, "36", "120"))
    Set db = Dbs.OpenDatabase(FileName, False, False, "Excel 8.0;")
    tmp = db.TableDefs(0).Name
    tmp = Replace(tmp, "''", "'")
    SheetName = tmp
    db.Close
    Set Dbs = Nothing: Set db = Nothing
    Else
    SheetName = SheetName & "$"
    End If
    cnn.Open szConn
    szSQL = "SELECT * FROM [" & SheetName & RangeAddress & "];"
    rsData.Open szSQL, cnn, 1, 1
    tmpArr = rsData.GetRows
    ReDim Arr(UBound(tmpArr, 2) - UseTitle, UBound(tmpArr, 1))
    If UseTitle Then
    For lC = LBound(tmpArr, 1) To UBound(tmpArr, 1)
    Arr(0, lC) = rsData.Fields(lC).Name
    Next
    End If
    rsData.Close: cnn.Close
    For lR = LBound(tmpArr, 2) To UBound(tmpArr, 2)
    For lC = LBound(tmpArr, 1) To UBound(tmpArr, 1)
    Arr(lR - UseTitle, lC) = tmpArr(lC, lR)
    Next
    Next
    GetData = Arr
    Set rsData = Nothing: Set cnn = Nothing
    Exit Function
ErrHandler:
MsgBox Err.Description
Set rsData = Nothing: Set cnn = Nothing
End Function

B2. Copy Code này vào 1 module
Mã: 
Sub LayDuLieu()
    T1
    T2
    T3
End Sub
Sub T1()
  Dim FileName As String, SheetName As String, RangeAddress As String
  Dim Arr
  Sheet1.[A1].CurrentRegion.Clear ' xoa neu sheet co du lieu
  FileName = ThisWorkbook.Path & "\" & Sheet5.[A2]
  Arr = GetData(FileName, SheetName, RangeAddress, True, True)
    If IsArray(Arr) Then
      ThisWorkbook.Sheets("T1").Range("A1").Resize(UBound(Arr, 1) + 1, _
      UBound(Arr, 2) + 1).Value = Arr
    End If
End Sub
Sub T2()
  Dim FileName As String, SheetName As String, RangeAddress As String
  Dim Arr
  Sheet2.[A1].CurrentRegion.Clear ' xoa neu sheet co du lieu
  FileName = ThisWorkbook.Path & "\" & Sheet5.[A3]
  Arr = GetData(FileName, SheetName, RangeAddress, True, True)
    If IsArray(Arr) Then
      ThisWorkbook.Sheets("T2").Range("A1").Resize(UBound(Arr, 1) + 1, _
      UBound(Arr, 2) + 1).Value = Arr
    End If
End Sub
Sub T3()
  Dim FileName As String, SheetName As String, RangeAddress As String
  Dim Arr
  Sheet3.[A1].CurrentRegion.Clear ' xoa neu sheet co du lieu
  FileName = ThisWorkbook.Path & "\" & Sheet5.[A4]
  Arr = GetData(FileName, SheetName, RangeAddress, True, True)
    If IsArray(Arr) Then
      ThisWorkbook.Sheets("T3").Range("A1").Resize(UBound(Arr, 1) + 1, _
      UBound(Arr, 2) + 1).Value = Arr
    End If
End Sub
Chạy thủ tục LayDuLieu.
Code vẫn còn nhiều cái chưa bẫy lỗi, ví dụ nếu không có các file T1, T2...
Có gì mong các thành viên chỉ dậy thêm.
P/s: Lưu ý, các file để cùng Folder.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Huy Vũ đã viết:
Em có câu hỏi sau, mong các thành viên giúp đỡ.
Em có file Tổng hợp, và nhiều file Số tiền các tháng T1, T2, T3....
Cấu trúc các file:
- File Tong Hop gồm trường: Code, Sotien1, VAT1, Sotien2.....
- File số tiền gồm 3 trường: Code, SoTien, VAT
Bình thường e hay copy dữ liệu file T1, T2... vào các sheet của file Tổng hợp
Rồi từ đó dùng phương thức Find để tìm kiếm theo Code của sheet Tổng hợp từ các sheet T1, T2...
Bài toán đặt ra là dữ liệu T1, T2 càng ngày càng nhiều, copy vào file Tổng hợp làm nặng file.
Vậy có cách nào mà Tổng hợp dữ liệu không cần copy các file T1, T2 vào các sheet của file tổng hợp không?
Tổng hợp dữ liệu không cần mở file. Hình như ADO có thể làm được việc này, hoặc bằng phương thức khác, mong các thành viên giúp đỡ!!!
Em xin chân thành cảm ơn!
Nhấp chuột vào đây để mở rộng...

bài này bạn có thể sử dụng ADO hoặc VBA lấy dữ liệu các T1,T2... lên trên sheet hết sau đó xử lý cũng được mà
 
Upvote 0
VetMini đã viết:
Tôi mách cho bạn giải pháp. Code VBA để thực hiện các giai đoạn trong giải pháp thì trên diễn đàn có cả đống. Bạn chịu khó tìm sẽ ra.

1. Tạo một thư mục "CanTongHop", và một thư mục "DaTongHop"
2. copy các files cần tổng hợp vào CanTongHop
3. chạy code VBA trong file tổng hợp. Code này sẽ duyệt thư mục CanTongHop:
3.1. mở từng file trong CanTongHop.
3.2. đọc dữ liệu, tổng hợp
3.3. cập nhật file tổng hợp
3.4. dời file đã đọc vào DaTongHop
4. Hêt. Nếu cẩn thận thì ghi thêm chi tiết báo cáo ngày tổng hợp.

Bước 1,2, và 3.4 bảo đảm rằng bạn không bị nhầm lẫn, cộng dồn dữ liệu nhiều lần.
Bước 3.2 có thể dùng ADO để tổng hợp gọn gàng nếu dữ liệu bạn được xếp đúng chuẩn CSDLLH.
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh đã chỉ ra logic bài toán, tuy nhiên code em còn kém cỏi lắm, mong anh chỉ dậy thêm.

Code anh Cá Ngừ chạy vèo vèo, em cảm ơn nhiều.
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Huy Vũ đã viết:
Mong em chỉ dậy thêm.
Nhấp chuột vào đây để mở rộng...

Bạn thử tham khảo sử dụng ADO lấy hết lên trên Sheet nhé. nếu muốn tách từng T1,T2 một thì sửa lại code
(khi nào cần thì lấy lên ko thì thôi cho nhẹ File)
code này có một người bạn cho mình mình chỉ sủa lại một tí cho bạn thôi nha
sau khi lấy lên nếu các mã code trùng nhau ta dùng Dic hoặc ... tổng hợp cộng lại theo mã code
nếu bạn làm theo hướng đó thì mình viết tiếp cho bạn một code Dic nữa nếu ko từ từ ta nghiên cứu tiếp
 

File đính kèm

Upvote 0
kieu manh đã viết:
Bạn thử tham khảo sử dụng ADO lấy hết lên trên Sheet nhé. nếu muốn tách từng T1,T2 một thì sửa lại code
(khi nào cần thì lấy lên ko thì thôi cho nhẹ File)
code này có một người bạn cho mình mình chỉ sủa lại một tí cho bạn thôi nha
sau khi lấy lên nếu các mã code trùng nhau ta dùng Dic hoặc ... tổng hợp cộng lại theo mã code
nếu bạn làm theo hướng đó thì mình viết tiếp cho bạn một code Dic nữa nếu ko từ từ ta nghiên cứu tiếp
Nhấp chuột vào đây để mở rộng...
Code chạy tốt anh ạ, tuy nhiên phải copy vào 3 sheet khác nhau, khi đó ở sheet TongHop mới tìm kiếm theo từng T1, T2 chứ anh nhỉ, vì copy chung hết vào 1 sheet thì biết tham chiếu đến vùng nào?
Tách ra tốt hơn anh ạ, vì code Find ở bài đầu em tham chiếu đến từng sheet T để tìm kiếm theo code.
Mong anh và mọi người có tư vấn thêm.
 
Upvote 0
For I = 0 To UBound(Files)
Set ObjConn = GetExcelConnection(Path & "\" & Files(I), 0)

StrRequest = "SELECT * FROM [$A2:E10000]"

RS.Open StrRequest, ObjConn, 3, 2

Sheet1.[A65536].End(3).Offset(1).CopyFromRecordset RS
ObjConn.Close
Next
Nhấp chuột vào đây để mở rộng...
Xin hỏi trong câu lệnh này tôi đâu thấy cái nào là chỉ tới sheet đầu tiên đâu mà nó lại lấy dữ liệu sheet đầu tiên, bây giờ giải sử mình muốn lấy dữ liệu sheet thứ 2 thì làm sao? xin cảm ơn
 
Upvote 0
phihndhsp đã viết:
Xin hỏi trong câu lệnh này tôi đâu thấy cái nào là chỉ tới sheet đầu tiên đâu mà nó lại lấy dữ liệu sheet đầu tiên, bây giờ giải sử mình muốn lấy dữ liệu sheet thứ 2 thì làm sao? xin cảm ơn
Nhấp chuột vào đây để mở rộng...

Câu này nè
Set ObjConn = GetExcelConnection(Path & "\" & Files(I), 0)

Mấy dạng tổng hợp này mình viết code là hơi ngon đó, khỏi cần ADO và khỏi cần copy gì ráo.
 
Upvote 0
quanghai1969 đã viết:
Câu này nè
Set ObjConn = GetExcelConnection(Path & "\" & Files(I), 0)

Mấy dạng tổng hợp này mình viết code là hơi ngon đó, khỏi cần ADO và khỏi cần copy gì ráo.
Nhấp chuột vào đây để mở rộng...
bây giờ mình muốn lấy dữ liệu sheet thứ 2 thì thay tham số nào trong này anh Hải
 
Upvote 0
Huy Vũ đã viết:
Code chạy tốt anh ạ, tuy nhiên phải copy vào 3 sheet khác nhau, khi đó ở sheet TongHop mới tìm kiếm theo từng T1, T2 chứ anh nhỉ, vì copy chung hết vào 1 sheet thì biết tham chiếu đến vùng nào?
Tách ra tốt hơn anh ạ, vì code Find ở bài đầu em tham chiếu đến từng sheet T để tìm kiếm theo code.
Mong anh và mọi người có tư vấn thêm.
Nhấp chuột vào đây để mở rộng...

bạn muốn tách ra theo T1,T2... thì tham khảo file này nha khi bấm vào T1 thì nó lấy T1 lên khi ra nó xoá hết ..cho nhẹ file nếu không thích thì xoá code đó đi
làm Sheet>TongHop riêng... nếu làm theo hướng này thì mình tính tiếp
PHP: 
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim File_Can_Mo As String, Tam()
File_Can_Mo = ThisWorkbook.Path & "\T3.xlsb"
Workbooks.Open File_Can_Mo
With ActiveWorkbook
   With .ActiveSheet
      Tam = .Range("A2", .[A65536].End(3)).Resize(, 3).Value
   End With
   .Close False
End With
ActiveSheet.Range("A2").Resize(UBound(Tam), 3) = Tam
Application.ScreenUpdating = True
End Sub
Nếu ko muốn ra nó xoá thì xoá code này đi nha
PHP: 
Private Sub Worksheet_Deactivate()
    Sheet4.Range("A1").CurrentRegion.Offset(1).ClearContents
End Sub
 

File đính kèm

Upvote 0
Huy Vũ đã viết:
Code chạy tốt anh ạ, tuy nhiên phải copy vào 3 sheet khác nhau, khi đó ở sheet TongHop mới tìm kiếm theo từng T1, T2 chứ anh nhỉ, vì copy chung hết vào 1 sheet thì biết tham chiếu đến vùng nào?
Tách ra tốt hơn anh ạ, vì code Find ở bài đầu em tham chiếu đến từng sheet T để tìm kiếm theo code.
Mong anh và mọi người có tư vấn thêm.
Nhấp chuột vào đây để mở rộng...
Thử cái rừng này coi sao, cũng chưa hiểu hết ý bạn muốn tổng hợp kiểu gì
PHP: 
Sub Tonghop()
Dim fso As Object, Dic As Object
Dim ObjFile As Object, i&, n&, k&, x&, path$
Dim tieude(), Res(), Data(), Code(1 To 65536, 1 To 1)
path = ThisWorkbook.path
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dic = CreateObject("scripting.dictionary")
With fso.GetFolder(ThisWorkbook.path)
   For Each ObjFile In .Files
      If fso.GetExtensionName(ObjFile) Like "xls*" Then
         If Left(ObjFile.Name, 2) <> "~$" Then
            If ObjFile.Name <> ThisWorkbook.Name Then
               n = n + 2
               With Workbooks.Open(ObjFile.Name, 0)
                  With .ActiveSheet
                     Data = .Range("A2", .[C65536].End(3)).Value
                     ReDim Preserve Res(1 To 65536, 1 To n)
                     ReDim Preserve tieude(1 To n)
                     tieude(n - 1) = fso.getbaseName(ObjFile)
                     For i = 1 To UBound(Data)
                        If Not Dic.exists(Data(i, 1)) Then
                           k = k + 1
                           Dic.Add Data(i, 1), k
                           Code(k, 1) = Data(i, 1)
                           Res(k, n - 1) = Data(i, 2)
                           Res(k, n) = Data(i, 3)
                        Else
                           x = Dic.Item(Data(i, 1))
                           Res(x, n - 1) = Data(i, 2)
                           Res(x, n) = Data(i, 3)
                        End If
                     Next
                  End With
                  .Close False
               End With
            End If
         End If
      End If
   Next
End With
Sheets("DATA").[D4].Resize(k) = Code
Sheets("DATA").[O2].Resize(, n) = tieude
Sheets("DATA").[O4].Resize(k, n) = Res
End Sub
kieu manh đã viết:
Vụ này mình đang học bạn chưa hết ....mong bạn chỉ dùm đi
làm khó ngại chết được
Nhấp chuột vào đây để mở rộng...
Cái nào khó quá thì cho qua đi. Từ từ rồi tính sau.
 
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

Manhhung90
Thoát chế độ Read only file word. Nhờ mọi người giúp ạ (2 người xem)
Trả lời
3
Đọc
38
Manhhung90
Manhhung90
H
chuyển dữ liệu từ 1 dòng thành nhiều dòng theo điều kiện cho trước.
Trả lời
3
Đọc
66
hanhnguyen12022021
H
V
  • Question Question
Đếm xếp loại của đơn hàng
Trả lời
4
Đọc
62
Hoàng Tuấn 868
H
N
Không chạy được file VBA
Trả lời
2
Đọc
78
hoangtuan.net
hoangtuan.net
H
Quản Lý Công Văn đi Và đến
9 10 11
Trả lời
214
Đọc
158K
ptm0412
ptm0412
T
Em muốn xin chỉ giáo file excel theo dõi thu chi, lãi lỗ của từng xe để báo cáo ạ (1 người xem)
Trả lời
3
Đọc
71
VetMini
V
S
RemoveDuplicates Adodb VBA
Trả lời
0
Đọc
65
sykika
S
G
  • Question Question
BẢO MẬT VBAPROJECT (1 người xem)
Trả lời
0
Đọc
109
giaoluu1231
G
sangvanng92
  • Question Question
Phân quyền user truy cập (1 người xem)
Trả lời
9
Đọc
169
Hoàng Tuấn 868
H
DinhManh1307
Cách thống kê công việc sản xuất từng người để tính lương sản phẩm
Trả lời
7
Đọc
144
DinhManh1307
DinhManh1307
PhanTuHuong
Hà Nội hẹn hò gặp gỡ đầu năm 2025 thôi :)
    • Thích
    • Yêu thích
Trả lời
6
Đọc
302
tranhungdao12a3
T
GPE-Trợ Lý
[GPE] TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365 (2 người xem)
Trả lời
0
Đọc
1K
GPE-Trợ Lý
GPE-Trợ Lý
befaint
Chia sẻ tâm tư, xả nỗi lòng
    • Thích
36 37 38
Trả lời
759
Đọc
49K
befaint
befaint
H
Quên mật khẩu khóa protect
Trả lời
18
Đọc
268
HeSanbi
HeSanbi
NguyenNgocThuHien
  • Question Question
Liệt kê tổ hợp chập k của nhóm n phần tử. (3 người xem)
    • Thích
    • Yêu thích
2 3
Trả lời
54
Đọc
17K
phương Đức
P
T
  • Question Question
Tìm này không xuất hiện trong khoảng thời gian
Trả lời
7
Đọc
109
tuan16
T
Việt Nguyễn 86
Excel hay bị tắt đột ngột và hiện trang trắng khi làm việc (1 người xem)
Trả lời
5
Đọc
193
befaint
befaint
nghiahandsome1995
Xin mã code autofit
Trả lời
4
Đọc
150
yaaasoo01
Y
tuankieu28
Hỗ trợ sửa hàm tìm thông tin (1 người xem)
Trả lời
1
Đọc
48
thuytrangbp28
T
N
Cho em xin hỏi về hàm Workday về ngày làm bù ạ
Trả lời
3
Đọc
94
hoangtuaotrang_hp_vn
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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom