Tham chiếu nhiều file xls vào 1 file xls

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

platuan

Thành viên mới
Tham gia
2/12/09
Bài viết
45
Được thích
12
Theo file đính kèm Mình đang làm bảng báo cáo như file TONG KET.xls từ 2 file 1.xls và 2.xls

Nhờ các cao thú giúp mình cách dùng hàm để file TONGKET.xls sẽ lần lượt lấy nội dung từ các file 1.xls 2.xls 3.xls ... n.xls theo thứ tự từ trên xuống.

Cám ơn các bác nhiều lắm.
 

File đính kèm

Cái này khó nhờ, mình toàn làm trên 1 file thôi, gộp file 1, 2... thành các Sheet. ^^
 
Theo file đính kèm Mình đang làm bảng báo cáo như file TONG KET.xls từ 2 file 1.xls và 2.xls

Nhờ các cao thú giúp mình cách dùng hàm để file TONGKET.xls sẽ lần lượt lấy nội dung từ các file 1.xls 2.xls 3.xls ... n.xls theo thứ tự từ trên xuống.

Cám ơn các bác nhiều lắm.
Bài bạn làm có kiểu giống như vầy phải không? bảng dò nằm ở file bảng dò, và bài làm cần dò nằm ở file bài làm
 

File đính kèm

Bài post đầu tiên mình có để file đính kèm đó bạn
Mình nghĩ bạn nên dùng code mới được bạn xem file coi giúp được gì không. Bạn nhấn vào nút Load File rồi chọn những file bạn muốn lấy dữ liệu ví dụ trong đó có file 1, 2 bạn chọn cả 2 file rồi Ok
 

File đính kèm

Mình nghĩ bạn nên dùng code mới được bạn xem file coi giúp được gì không. Bạn nhấn vào nút Load File rồi chọn những file bạn muốn lấy dữ liệu ví dụ trong đó có file 1, 2 bạn chọn cả 2 file rồi Ok

Bạn ơi, như vậy la đúng ý của mình rồi đó. Bạn có cách nào mỗi lần Load file nó ko mất đi dữ liệu cũ không bạn, mà dữ liệu sẽ tiếp tục tham chiếu ở hàng tiếp theo được ko bạn.
 
Bạn ơi, như vậy la đúng ý của mình rồi đó. Bạn có cách nào mỗi lần Load file nó ko mất đi dữ liệu cũ không bạn, mà dữ liệu sẽ tiếp tục tham chiếu ở hàng tiếp theo được ko bạn.
Vậy bạn xóa đoạn code này đi là được. Chúc thành công
PHP:
Set shTK = Sheets("Chi tiet GD")
shTK.Range(shTK.[C3], shTK.[C65000].End(xlUp).Offset(1, -2).Resize(, 13)).Clear
 
Vậy bạn xóa đoạn code này đi là được. Chúc thành công
PHP:
Set shTK = Sheets("Chi tiet GD")
shTK.Range(shTK.[C3], shTK.[C65000].End(xlUp).Offset(1, -2).Resize(, 13)).Clear

hihi, thành công rồi bạn ơi, bạn giỏi quá, cái này gọi là VBA phải ko bạn, để học để viết được như vậy học khoảng bao lâu vậy bạn?
 
Web KT

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

Back
Top Bottom