Tổng hợp dữ liệu từ nhiều file o

[saobekhonglac]

Chào anh/chị.

Em có nhiều file excel (mỗi file có nhiều sheet). Em muốn làm 1 file tổng hợp sau cho chỉ tổng hợp dữ liệu của các sheet “TH” trong các file 1.xls, 2.xls (những sheet còn lại không tổng hợp) sẽ được tổng hợp vào sheet “TH” trong file Tong hop.xls. Nhờ anh/chị hướng dẫn code VBA giúp.

Cám ơn anh/chị.

 

[doveandrose]

Public Sub beThichMuaCot()
Dim cn As Object, rs As Object, i As Byte, mRow As Long
Set cn = CreateObject("adodb.connection")
    'Provider=Microsoft.ACE.OLEDB.12.0
    'microsoft.jet.oledb.4.0
    For i = 1 To 2 Step 1
        cn.Open ("provider=microsoft.jet.oledb.4.0; data source=" & _
        ThisWorkbook.Path & "\" & i & ".xls" & _
                 ";mode=read;extended properties=""Excel 8.0;hdr=no"";")
        Set rs = cn.Execute("select * from [TH$A:E] where f1 is not null")
        mRow = Sheet1.[A50000].End(xlUp).Row + 1
        If Not rs.EOF Then Worksheets("TH").Range("A" & mRow).CopyFromRecordset rs
        rs.Close
        cn.Close
    Next
End Sub

 

[thangbithu]

Tên sub "beThichMuaCot" đặt hay phết.

 

[doveandrose]

Tên sub "beThichMuaCot" đặt hay phết.

chủ topic tên gì ???

 

[saobekhonglac]

Cám ơn anh.

Em chạy được rồi, nếu trường hợp em có nhiều file và mỗi file có tên khách nhau chứ không phải là 1,2,3,..., (mà là A, H, D,...) thì nó không hiểu. Anh có thể sữa giúp em khi mình run nó cho mình chọn file cần tổng hợp không anh.

Cám ơn anh.

Public Sub beThichMuaCot()
Dim cn As Object, rs As Object, i As Byte, mRow As Long
Set cn = CreateObject("adodb.connection")
    'Provider=Microsoft.ACE.OLEDB.12.0
    'microsoft.jet.oledb.4.0
    For i = 1 To 2 Step 1
        cn.Open ("provider=microsoft.jet.oledb.4.0; data source=" & _
        ThisWorkbook.Path & "\" & i & ".xls" & _
                 ";mode=read;extended properties=""Excel 8.0;hdr=no"";")
        Set rs = cn.Execute("select * from [TH$A:E] where f1 is not null")
        mRow = Sheet1.[A50000].End(xlUp).Row + 1
        If Not rs.EOF Then Worksheets("TH").Range("A" & mRow).CopyFromRecordset rs
        rs.Close
        cn.Close
    Next
End Sub

 

[doveandrose]

Sao máy tôi chạy code ADO trên không được vậy nhỉ? liệu có phải tick thêm gì trong References không nhỉ?

mình biết bạn sẽ hỏi câu đó mà . vì máy mình cũng đâu có chạy được code đó
trong phần chú thích lấy cái thằng
Microsoft.ACE.OLEDB.12.0
thế vào chỗ
microsoft.jet.oledb.4.0
mới chạy được
máy chúng ta là hệ 64 bit lại chơi cái off 2013 nữa nên nó không có JET . chỉ có ACE thôi

 

[doveandrose]

Cám ơn anh.

Em chạy được rồi, nếu trường hợp em có nhiều file và mỗi file có tên khách nhau chứ không phải là 1,2,3,..., (mà là A, H, D,...) thì nó không hiểu. Anh có thể sữa giúp em khi mình run nó cho mình chọn file cần tổng hợp không anh.

Cám ơn anh.

đây là làm theo kiểu chọn File

Public Sub beThichMuaCot()
Dim cn As Object, rs As Object, i As Byte, mRow As Lon
Set cn = CreateObject("adodb.connection")
    'Provider=Microsoft.ACE.OLEDB.12.0
    'microsoft.jet.oledb.4.0
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = ThisWorkbook.Path
        .Filters.Clear
        .Filters.Add "hello", "*.xls*"
        .AllowMultiSelect = True
        .Show
        For i = 1 To .SelectedItems.Count Step 1
            cn.Open ("provider=microsoft.jet.oledb.4.0; data source=" & _
            .SelectedItems(i) & _
                     ";mode=read;extended properties=""Excel 8.0;hdr=no"";")
            Set rs = cn.Execute("select * from [TH$A:E] where f1 is not null")
            mRow = Sheet1.[A50000].End(xlUp).Row + 1
            If Not rs.EOF Then Worksheets("TH").Range("A" & mRow).CopyFromRecordset rs
            rs.Close
            cn.Close
        Next
    End With
End Sub

 

[doveandrose]

Khổ thật, hok lẻ cài lại cái Office 2013 32 bit.

tội nghiệp vậy . máy 64 bit mà cài office 32 bit xăng pha nhớt à

 

[saobekhonglac]

Em làm đươc rồi. cám ơn anh. Nếu trong file em muốn tổng hợp thêm những file có đuôi là xlsx thì sữa code thành như thế nào vậy anh.

đây là làm theo kiểu chọn File

Public Sub beThichMuaCot()
Dim cn As Object, rs As Object, i As Byte, mRow As Lon
Set cn = CreateObject("adodb.connection")
    'Provider=Microsoft.ACE.OLEDB.12.0
    'microsoft.jet.oledb.4.0
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = ThisWorkbook.Path
        .Filters.Clear
        .Filters.Add "hello", "*.xls*"
        .AllowMultiSelect = True
        .Show
        For i = 1 To .SelectedItems.Count Step 1
            cn.Open ("provider=microsoft.jet.oledb.4.0; data source=" & _
            .SelectedItems(i) & _
                     ";mode=read;extended properties=""Excel 8.0;hdr=no"";")
            Set rs = cn.Execute("select * from [TH$A:E] where f1 is not null")
            mRow = Sheet1.[A50000].End(xlUp).Row + 1
            If Not rs.EOF Then Worksheets("TH").Range("A" & mRow).CopyFromRecordset rs
            rs.Close
            cn.Close
        Next
    End With
End Sub

 

[doveandrose]

Em thử với code mới rồi nhưng không được. Anh xem lại giúp em.

Cám ơn

ồ mình ghi nhầm dòng đầu tiên
VBA không có kiểu dữ liệu nào tên là Lon hết . ngại quá
chỉ có kiểu Long thôi à

 

[doveandrose]

 [COLOR=#000000][I]Dim cn As Object, rs As Object, i As Byte, mRow As [/I][/COLOR][COLOR=#ff0000][I][B]Lon [/B][/I][/COLOR]

Cái chi chi đây???

có thật bạn không biết đấy là cái chi chi hôn ?

 

[saobekhonglac]

Thiếu chữ g cuối cùng

 [COLOR=#000000][I]Dim cn As Object, rs As Object, i As Byte, mRow As [/I][/COLOR][COLOR=#ff0000][I][B]Lon [/B][/I][/COLOR]

Cái chi chi đây???

 

[doveandrose]

Em làm đươc rồi. cám ơn anh. Nếu trong file em muốn tổng hợp thêm những file có đuôi là xlsx thì sữa code thành như thế nào vậy anh.

bạn cứ thử chơi tới đi . không được thì vào khiếu nại . bạn thử với file xlsx chưa ?

 

[giangleloi]

 [COLOR=#000000][I]Dim cn As Object, rs As Object, i As Byte, mRow As [/I][/COLOR][COLOR=#ff0000][I][B]Lon [/B][/I][/COLOR]

Cái chi chi đây???

Ông 1 vợ 2 con rồi không biết thì có chăng đang lừa "tềnh" em nào nữa

 

[doveandrose]

Ông 1 vợ 2 con rồi không biết thì có chăng đang lừa "tềnh" em nào nữa

trời đất ơi . ổng già vậy rồi đó hả .
vậy là có mỗi tui còn "zin" tui hổng biết cái kia là cái gì . hi hi

 

[giangleloi]

trời đất ơi . ổng già vậy rồi đó hả .
vậy là có mỗi tui còn "zin" tui hổng biết cái kia là cái gì . hi hi

Ảnh ấy hông có già đâu. "Đu" sớm quá thôi. kaka. Còn hay hông kiểm tra mới biết được (Trăm nghe hông bằng mắt thấy).

 

[saobekhonglac]

Em thử với xlsx rồi nó báo lỗi. Anh xem lại giúp em.

bạn cứ thử chơi tới đi . không được thì vào khiếu nại . bạn thử với file xlsx chưa ?

 

[doveandrose]

máy bạn có đọc được xlsx thì chơi vầy luôn

Cn.Open ("provider=Microsoft.ACE.OLEDB.12.0;data source=" & _
        .SelectedItems(i) & ";mode=Read;extended properties=""Excel 12.0;hdr=no"";")

 

[saobekhonglac]

Cám ơn anh nhiều. Nếu trường hợp em cần tổng hợp dữ liệu ở nhiều file khách nhau, nhưng mỗi file chỉ có 1 sheet (tên các sheet trong mỗi file không giống nhau, vd T01, T02, T03, ....) thì code như thế nào vậy anh (code vẫn chọn file được nha anh)

Cám ơn anh.

máy bạn có đọc được xlsx thì chơi vầy luôn

Cn.Open ("provider=Microsoft.ACE.OLEDB.12.0;data source=" & _
        .SelectedItems(i) & ";mode=Read;extended properties=""Excel 12.0;hdr=no"";")

 

[doveandrose]

Cám ơn anh nhiều. Nếu trường hợp em cần tổng hợp dữ liệu ở nhiều file khách nhau, nhưng mỗi file chỉ có 1 sheet (tên các sheet trong mỗi file không giống nhau, vd T01, T02, T03, ....) thì code như thế nào vậy anh (code vẫn chọn file được nha anh)

Cám ơn anh.

select * from [A:E] .......