Điền dữ liệu vào các file (1 người xem)

[nncb2008]

Chào các anh, chị.
Tôi có một thư mục "C:\thumuc", trong đó có nhiều file excel cùng cấu trúc. Tôi muốn viết code để điền giá trị gt vào ô A2 của shee1 trong tất cả các file đó. Các anh, chị giúp tôi nhé. Xin cảm ơn nhiều.

 

[nhapmon]

bạn chép đạon code này vào một file nào đó,
nhập liệu vào cell A2, sheet 1 của file nay
sau đó cho chay macro
ban se duoc nhu y


Sub openAllfilesInALocation()


Dim i As Integer, wb As Workbook
With Application.FileSearch
.NewSearch
.LookIn = "C:\thumuc"
.SearchSubFolders = False
.Filename = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
Set wb = Workbooks.Open(Filename:=.FoundFiles(i))
wb.Worksheets("sheet1").Range("A2") = thisworkbook.Worksheets("sheet1").Range("A2")
wb.Save
wb.Close
Next i
End With
End Sub