Cập nhật dữ liệu vào nhiều file Excel

[NH_DK]

Em có 1 vi dụ này muốn nhờ các anh chị xem dùm. Câu hỏi cụ thể trong file NhapLieu.

 

[viehoai]

Em có 1 vi dụ này muốn nhờ các anh chị xem dùm. Câu hỏi cụ thể trong file NhapLieu.

Hỏi thêm NGọc:
1. Trước khi cập nhật các dữ liệu có sẵn có xóa không hay nối tiếp?
2. Các File A hoặc B hoặc C không cần mở. Vậy khi cập nhật nó mở ra, cập nhật xong đóng lại được không?
Góp ý: Ngọc lần sau đưa file có dữ liệu đủ để mọi người giúp (các file A, B, C chẳng có dữ liệu gì cả)

 

[NH_DK]

Hỏi thêm NGọc:
1. Trước khi cập nhật các dữ liệu có sẵn có xóa không hay nối tiếp?
2. Các File A hoặc B hoặc C không cần mở. Vậy khi cập nhật nó mở ra, cập nhật xong đóng lại được không?
Góp ý: Ngọc lần sau đưa file có dữ liệu đủ để mọi người giúp (các file A, B, C chẳng có dữ liệu gì cả)

Cám ơn anh @viehoai nhiều!
- File nhập liệu khi nhập dữ liệu xong và chọn nút CapNhat thì nó sẽ xóa dữ liệu đó đi.
- Các file A, B, C không cần mở anh.
Ở file NhapLieu em có "bịa" 1 ít dữ liệu đó anh @viehoai!?
Nhờ anh và các anh chị xem dùm em nhé!

 

[viehoai]

Cám ơn anh @viehoai nhiều!
- File nhập liệu khi nhập dữ liệu xong và chọn nút CapNhat thì nó sẽ xóa dữ liệu đó đi.
- Các file A, B, C không cần mở anh.
Ở file NhapLieu em có "bịa" 1 ít dữ liệu đó anh @viehoai!?
Nhờ anh và các anh chị xem dùm em nhé!

Sao Ngọc không "bịa" dữ liệu ở các file A, B, C cho đỡ mất công người giúp ?

 

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

Sao Ngọc không "bịa" dữ liệu ở các file A, B, C cho đỡ mất công người giúp ?

Theo mình nghĩ thì đề bài yêu cầu cập nhật tiếp vào các file A+B+C rồi xóa dữ liệu ở file nhập liệu, hỏng biết có phải vậy không tác giả?

 

[viehoai]

Cảm ơn anh,
Em cũng nghĩ lại chắc em làm ngược ý tác giả rồi?
Chờ ý kiến tác giả

 

[NH_DK]

Theo mình nghĩ thì đề bài yêu cầu cập nhật tiếp vào các file A+B+C rồi xóa dữ liệu ở file nhập liệu, hỏng biết có phải vậy không tác giả?

Ý anh @dom đúng ý em rùi.
Em test thử file của anh @viehoai rùi. Nhưng nó vẫn còn lỗi:
- Nó không cập nhật nối tiếp dữ liệu vào các file A, B, C?
Ý em là: Khi nhập liệu đầy đủ ở file NhapLieu va chọn nút CapNhat thì nó sẽ tự động cập nhật dữ liệu đó đển file cùng tên trong ô A1 và nó sẽ tự xóa dữ liệu ở file NhapLieu này luôn để nhập tiếp ah!

 

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

Ý anh @dom đúng ý em rùi.
Em test thử file của anh @viehoai rùi. Nhưng nó vẫn còn lỗi:
- Nó không cập nhật nối tiếp dữ liệu vào các file A, B, C?
Ý em là: Khi nhập liệu đầy đủ ở file NhapLieu va chọn nút CapNhat thì nó sẽ tự động cập nhật dữ liệu đó đển file cùng tên trong ô A1 và nó sẽ tự xóa dữ liệu ở file NhapLieu này luôn để nhập tiếp ah!

Nếu bạn chịu chỉnh sửa tên sheet giống nhau và xóa bỏ khoảng trống và tiêu đề của các file A+B+C thì mình sẽ có cách giúp bạn.

 

[NH_DK]

Nếu bạn chịu chỉnh sửa tên sheet giống nhau và xóa bỏ khoảng trống và tiêu đề của các file A+B+C thì mình sẽ có cách giúp bạn.

Không hiểu ý anh @dom lắm. Anh cứ làm cho em một ví dụ nhé!

 

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

Không hiểu ý anh @dom lắm. Anh cứ làm cho em một ví dụ nhé!

Bạn dùng thử code sau:

Public cnn As New ADODB.Connection

Sub CapNhat()
Dim rs As New ADODB.Recordset
Dim i, r As Integer
Set cnn = New ADODB.Connection
r = Range("A65000").End(xlUp).Row
  With cnn
    .ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; data source=" & ThisWorkbook.Path & "\" & Range("F1").Value & ".xls;Extended Properties=Excel 8.0;"
    .CursorLocation = adUseClient
    .Open
  End With

Set rs = Nothing
rs.Open "Select * from [UP$]", cnn, 1, 3
 For i = 2 To r
    With rs
       .AddNew
         ![MA_SP] = Range("A" & i).Value
         !TEN_SP = Range("B" & i).Value
         !SL_SP = Range("C" & i).Value
       .Update
    End With
 Next
 Range("A2:C65000").ClearContents
Set rs = Nothing
cnn.Close
Set cnn = Nothing
    
End Sub

 

[nmhung49]

Sao em nhấn nút cập nhật nó đứng yên nguyên vậy anh Dom?

 

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

Sao em nhấn nút cập nhật nó đứng yên nguyên vậy anh Dom?

Nó sẽ ghi dữ liệu qua cái file mà bạn chọn tại cell F1, bạn mở file đó lên thử nhé.

 

[nmhung49]

Nó sẽ ghi dữ liệu qua cái file mà bạn chọn tại cell F1, bạn mở file đó lên thử nhé.

Tốc độ thật khủng, cho em hỏi cái này cập nhật dữ liệu dùng ADO phải không anh? Nếu có thể anh giải thích sơ sơ về nó để tụi em học hỏi thêm, Thanks

 

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

Tốc độ thật khủng, cho em hỏi cái này cập nhật dữ liệu dùng ADO phải không anh? Nếu có thể anh giải thích sơ sơ về nó để tụi em học hỏi thêm, Thanks

Bạn down ADO Toàn tập của anh Duyệt về ngâm cứu, hoặc vào link sau tham khảo.
Một ví dụ bổ sung cho eBook ADO toàn tập Tốc độ ADO thì khỏi chê. Còn 1 điều là bạn thử mở file A rồi sang file Cập Nhật, cập nhật dữ liệu sang file A, bây giờ bạn click sang file A sẽ thấy dữ liệu nhập vào đó mà không cần nhấn Update gì hết...


[video=youtube;EHrpttGdsmA]http://www.youtube.com/watch?v=EHrpttGdsmA[/video]

 

[Quang_Hải]

Cho mình góp vui cách đơn giản này nhé. Cách này với những bạn không giỏi sẽ có thể chỉnh sữa code khi muốn thêm files mới

 

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

Cho mình góp vui cách đơn giản này nhé. Cách này với những bạn không giỏi sẽ có thể chỉnh sữa code khi muốn thêm files mới

1./ Tác giả yêu cầu là nhập liệu không cần mở file mà bạn.
2./ Workbooks.Open ThisWorkbook.Path & "\A.xls" sao bạn không sửa lại thành Workbooks.Open ThisWorkbook.Path & "\" & [A1].value & ".xls". Khỏi dùng If, nếu nhiều file thì If đến bao giờ mới xong?

 

[nmhung49]

Cho mình góp vui cách đơn giản này nhé. Cách này với những bạn không giỏi sẽ có thể chỉnh sữa code khi muốn thêm files mới

Bạn nói đúng cái này mình có thể giúp các bạn mới gia nhập code học từ tự Với đoạn code trên mình có thể rút gọn thế này

Sub updata()
Range("A4:A" & [a65000].End(xlUp).Row).Resize(, 3).Copy
With Workbooks.Open(ThisWorkbook.Path & "\" & [A1].Value & ".xls")
   Sheets("sheet1").[a65000].End(xlUp).Offset(1).PasteSpecial 3
    .Close (True)
End With
Application.CutCopyMode = False
End Sub