Cách viết Macro để thực hiện lệnh coppy (1 người xem)

[choncam]

Kính gửi các anh!

Hiện nay tôi đang dự định viết 1 macro để thực hiện các công việc coppy số liệu từ nhiều file khác nhau vào 1 file. Nhờ các Bác chỉ giúp, các file cần mở ra để coppy có tên file khác nhau sau khi mở các file này ra coppy dữ liệu qua 1 file tổng hợp.

Các file có tên file giống nhau từ trái đến ở giữa là thứ tự ngày trong tháng ví dụ: giaonhan01......xls, giaonhan02....xls. các số thứ tự 01 đến 30 hoặc 31 là ngày trong tháng. Các phần còn lại của tên file sau ngày tháng là khác nhau đến hết tên file.

Nhờ các Bác chỉ giúp. cám ơn nhiều.

 

[Hoàng Trọng Nghĩa]

Bạn thử tham khảo thêm tại đường link này:

http://www.giaiphapexcel.com/forum/...cel-đến-file-Access/page3&p=452144#post452144

nếu bạn vẫn có những thắc mắc thì bạn gửi file của bạn lên một vài file tượng trưng thôi và nói rõ yêu cầu copy bảng biểu nào, thuộc sheet nào trong đó và kết quả mong đợi như thế nào.

 

[nhapmon]

neu tat ca cac file cua ban o trong cung mot folder, ban co the dung cach nay

Sub openAllfilesInALocation()

Application.ScreenUpdating = False
On Error Resume Next
Dim i As Integer, wb As Workbook
With Application.FileSearch
.NewSearch
.LookIn = "C:\MyFolder\MySubFolder" 'khai lai duong dan folder cua ban
.SearchSubFolders = False
.Filename = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
'mo tat ca cac file trong folder
Set wb = Workbooks.Open(Filename:=.FoundFiles(i))
'chep noi dung sang file nay, ban thay doi lai sheet, vung ma ban muon chep du lieu
ThisWorkbook.Sheets(1).Range("A1").Value = wb.Worksheets("sheet1").Range("A1").Value
'Save and close the workbook
wb.Save
wb.Close

Next i
End With

Application.ScreenUpdating = True
On Error GoTo 0
End Sub

 

[choncam]

Cám ơn anh Hoàng Trọng Nghĩa và anh nhapmon!

Tôi gửi cho anh các file excel như đính kèm, trong đó tôi có gửi hai file: BangKeThanhToanNgay_G10703_01112012_27122012100145969.xls BangKeThanhToanNgay_G10703_02112012_27122012100145801.xls

Trong hai file này có phần ...G10703_01... trong đó 01 đến 31 là số ngày trong tháng. sau khi mở hai file này lên coppy sữ liệu từ sheet T1 đến T6 rồi coppy qua file Tong hop BK ngay_T11.xls là xong.

Cám ơn các anh.

 

[Hoàng Trọng Nghĩa]

Cám ơn anh Hoàng Trọng Nghĩa và anh nhapmon!

Tôi gửi cho anh các file excel như đính kèm, trong đó tôi có gửi hai file: BangKeThanhToanNgay_G10703_01112012_27122012100145969.xls BangKeThanhToanNgay_G10703_02112012_27122012100145801.xls

Trong hai file này có phần ...G10703_01... trong đó 01 đến 31 là số ngày trong tháng. sau khi mở hai file này lên coppy sữ liệu từ sheet T1 đến T6 rồi coppy qua file Tong hop BK ngay_T11.xls là xong.

Cám ơn các anh.

Copy dữ liệu gì vậy bạn? Trống lốc trống lơ, có gì mà chép? Tên file dài thấy sợ thiệt đó.